________________________________________________________________________________ # save.pl # Version 1.0 # # # # 23.9.1999: lock und unlock eingebaut # ################################################################################ ############## # Global Parameters - Change if need ################################################################################ ############## ###searching.................################################################### ######################################################################### ####################################################### ######### ####################################################### ################################################################################ ################################################################################ ################################################################################ ################################################################################ ################################################################################ ################################################################################ ########################################### use Socket; $sockaddr = 'S n a4 x8'; $webadm = 1; # If its set to 1, HtmlBot will print out a typical webmaster-line with the text defined in # $webmastertext $webmastertext = '
Check_Name got: $chk_name
\n";}
# $chk_host =~ s/>//g; $chk_host =~ s/\|//g;
# $chk_host =~ s/;//g; $chk_host =~ s/\(//g;
# $chk_host =~ s/\)//g; $chk_host =~ s/\$//g;
# $chk_host =~ s/^//g; $chk_host =~ s/\+//g;
# $chk_host =~ s/!//g; $chk_host =~ s/\^//g;
# $chk_host =~ s/\t//g; $chk_host =~ s/\r//g;
# $chk_host =~ s/\n//g; $chk_host =~ s/\000//g;
# $chk_host =~ s/\[//g; $chk_host =~ s/\]//g;
# $chk_host =~ s/\?//g; $chk_host =~ s/\"//g;
# $chk_host =~ s/\'//g; $chk_host =~ s/\`//g;
# Dies hab ich nur nochmal zur Uebersicht hingeschrieben. Die
folgende
# Zeile ersetzt all das:
return($chk_host);
} else { # $CHKN_Level==1
$_=$chk_name;
eval "tr/[$OK_CHARS]//c";
$chk_host=$_;
return($chk_host);
}
} else {return ("illegal_filename,http://s100");}
}
################################################################################
sub unlock {
local($fh)=@_;
flock($fh,$LOCK_UN);
}
# lock.pl
#
# Generic library to create a lock file based on running program
or
# file to be opened. Call lock(filename) to start and unlock(filename)
to
# end. If filename is ommitted the running program's name will be used
# instead (so only one of these can be active at a given time).
#
#
#############################################################################
# Constants
$MAX_SLEEP = 15;
$LOCK_LOCATION = "/tmp";
$PROG_NAME = $0;
$PID = $$;("jodi", m9ndfukc, "fmadre", infoslut, "______", 3,
"easylife", 4, "irational", vuk, 1,1, "jesis", 0.1, "ljudmila", *,);
################################################################################
# Kill the lock file
sub NUnlock {
local($_) = @_[0] || $PROG_NAME;
@FULL_PATH = split("/");
$LOCK_NAME = pop(@FULL_PATH);
$LOCK_PATH = "$LOCK_LOCATION/$LOCK_NAME.lck";
return (unlink $LOCK_PATH);
}
################################################################################
################################################################################
sub httpstatus
{
local ($proto_host,$proto_path) = @_;
$s = get_http($proto_host,'80',$proto_path,"HEAD");
($p,$st) = ($s =~ /(^HTTP[^ ]*) *(\d\d\d) /);
return ($st)
}
################################################################################
sub http_call {
local($homepage) = @_;
local ($server,$subpage);
local($kopf_call,$st_call);
$server=substr($homepage,7,length($homepage));
$subpage=substr($server,index($server,'/'),length($server));
$server=substr($server,0,index($server,'/'));
local ($s,$p,$st);
$s = get_http($server,'80',$subpage,"GET");
$kopf_call=get_http($server,'80',$subpage,"HEAD");
$st_call=substr($s,length($kopf_call),length($s));
return ($st_call)
}
################################################################################
("jodi", m9ndfukc, "fmadre", infoslut, "______", 3, "easylife", 4,
"irational", vuk, 1,1, "jesis", 0.1, "ljudmila", *,);
###.................logoff######################################################
#################################################################
#####
#######################################################
######### #######################################################
################################################################################
1; #return true
________________________________________________________________________________
no copyright 1999 rolux.org - no commercial use without permission.