⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 svote8.lib

📁 1。超强文件读写锁定
💻 LIB
字号:
🔍 
#!/usr/bin/perl
#
### 修改下面的变量，你必清楚那是什么！###########

$FILE{'poll'}	= "spoll";		#对应存放会员调查数据文件夹
$FILE{'ursid'}	= "id";			#对应存放注册资料文件夹
$CGI{'cjyh'}	= "scjyh.cgi";		#对应CGI名
$CGI{'cookie'}	= "scookie.cgi";	
$CGI{'poll'}	= "spoll.cgi";		
$CGI{'reg'}	= "sreg.cgi";		
$CGI{'vote'}	= "svote.cgi";		
$CGI{'new'}	= "newvote.cgi";	
$CGI{'yhdl'}	= "syhdl.cgi";		
$CGI{'guest'}	= "sguest.cgi";		
$CGI{'check'}	= "check.cgi";
$CGI{'judge'}	= "judge.cgi";
$CGI{'register'}= "register.cgi";	
$Cookname	= "amembernamecookie";	#Cookies名字变量
$Cookpass	= "apasswordcookie";	#Cookies密码变量

################### 以下免修改 #############################################
$imgurl="$CONFIG{'img_url'}";
$FLOCK="$CONFIG{'unix'}";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time+(3600*$CONFIG{'hour'})+(60*$CONFIG{'min'}));
 @chwday = ('周日','周一','周二','周三','周四','周五','周六'); 
	$mon =$mon+1;  
	$year = $year+1900;
	if ($sec < 10) { $sec = "0$sec"; }  
	if ($min < 10) { $min = "0$min"; }  
	if ($hour < 10){ $hour = "0$hour";}  
	if ($mon < 10) { $mon = "0$mon"; }  
	if ($mday < 10) { $mday = "0$mday"; }  
	$RegPwd="ad4zv";
	$lasttime=$year."-".$mon."-".$mday;
	$logtime = "$year年$mon月$mday日 $hour时$min分$sec秒";
	$date_time = "$year/$mon/$mday $hour:$min";
	$long_date ="$year-$mon-$mday $chwday[$wday] $hour:$min";
	$time="$year$mon$mday$hour$min$sec";
	$polltime="$year$mon$mday$hour$min";
#
sub read_form { 
	if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
	else {$buffer = $ENV{'QUERY_STRING'};}
	@pairs = split(/&/, $buffer); 
		foreach $pair (@pairs) { 
			($name, $value) = split(/=/, $pair); 
			$value =~ tr/+/ /; 
			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
			$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
			$FORM{$name} = $value;
		}
	$id="$FORM{'id'}";
	$value =~ tr/A-Z/a-z/;
	$action=$FORM{'action'};
	$usrpwdfile="$dirname/$FILE{'poll'}/$id";
} 
#
sub Header {
   ($title,$header) = @_;
    #$ENV{'HTTP_HOST'}
$CryptPwd = crypt($ENV{'SERVER_NAME'}, substr($RegPwd, 0, 2));
print "Content-type: text/html\n\n"; 
print <<Header;
<html><head><title>$id调查引挚-$title</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="互动调查,免费调查引擎">
<meta name="Keywords" content="互动调查,调查,引擎调查,投票,免费调查,vote,research">
<LINK REL=stylesheet HREF="$imgurl/styles.css"  TYPE=text/css>
</head><base onmouseover="window.status='$CONFIG{'vote'}—互动调查,调查引擎';return true"><BODY leftMargin=0 topMargin=0><div align="center"><center>
<body bgcolor=#FFFFF0 background=$CONFIG{'img_url'}/vote3.gif>
Header
}
#
sub error {
&Header;
&Top;
print <<EOF;
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false"><p>&nbsp;<p>&nbsp;<table border="3" width="280" cellspacing="4" cellpadding="4" bordercolorlight="#0099CC" bordercolordark="#0099CC">
<tr><td valign="middle" align="center"><table border="0" width="100%" height="96" cellspacing="0" cellpadding="0"><tr><td width="11%" height="23" bgcolor="#FFE6FF" align="center"></td><td width="89%" height="23" bgcolor="#FFE6FF"><b> $_[0]</b><tr>
<td colspan="2" align="center" bgcolor="#E3E3E3"> $_[1]<hr><a href=mailto:$CONFIG{'email'}>如有疑问,请向管理员报告</a></table></table><p><a href='JavaScript:window.history.go(-1);'><img border=0 src=$imgurl/back.gif></a><p>&nbsp;
EOF
&Tailer;
exit;
}
#
sub Tailer {
	open(ENDINFO,"$dirname/$FILE{'poll'}/endinfo.cgi");  
	@endinfo = <ENDINFO>;
	close(ENDINFO);
	print qq~<center><P>@endinfo<P><a href=$CONFIG{'url'}>服务：$CONFIG{'vote'}</a><p><a href=http://hk666b.126.com>&copy;CK联合小组&nbsp;CKvote_h Ver2.0</a></HTML>~;
}
#
sub Top {
if($home && $url){$homurl="<a href=$url>$home</a>";}
open(ENDINFO,"$dirname/$FILE{'poll'}/topinfo.cgi");  
@topinfo = <ENDINFO>;
close(ENDINFO);
#if($CryptPwd ne "ad4zvBgFL5Irg"){unlink("$dirname/$CGI{'vote'}");}
#if($CryptPwd ne "ad4zvBgFL5Irg"){unlink("$dirname/$CGI{'register'}");}
print qq~<SCRIPT language=javaScript src="$imgurl/top.js" type=text/javascript></SCRIPT>
<div id=layer style="LEFT: 44%; POSITION: absolute; TOP: 0px; VISIBILITY: hidden; WIDTH: 220; Z-INDEX: 1">
<table  border=0 cellpadding=2 cellspacing=2 width=100%>
<tr align="center"><td bgcolor="#46C2FF"><a href="$CGI{'cjyh'}" title='站长管理登陆'>站长管理</a> | <a href="$CGI{'poll'}?id=$id" title="版主管理登陆">版主管理</a> | <a href="javascript:toExit('hide','layer')">关闭此窗口</a></table></div>
<table border=0 cellpadding=0 cellspacing=0 width=100% background=$CONFIG{'img_url'}/bg.gif>
<TR height=22><td width=25><IMG src=$CONFIG{'img_url'}/i.gif border=0>  
<td width=100><a href=$url><IMG src=$CONFIG{'img_url'}/vote2.gif border=0 alt="$home"></a> 
<td>->> $name 欢迎您 | <A href="$CGI{'new'}?id=$id" title="$home调查项目">调查列表</A> | <A href="$CGI{'reg'}?action=regid&id=$id" target="_blank" title="申请调查">申请调查</A> | <A href="$CGI{'reg'}?action=register&id=$id" title="注册你的网名">注册</A><A href="$CGI{'reg'}?action=yhdl&id=$id" title="登陆">登陆</A> | <a href="javascript:toExit('show','layer')">管理入口</A> | <A href="$CGI{'cookie'}" title="退出登陆">安全退出
<td width=35><A class=1 href="javascript:help()"><img border=0 src=$CONFIG{'img_url'}/help.gif alt=帮助></a><A href="javascript:window.close()"><IMG src=$CONFIG{'img_url'}/close.gif border=0 name=close alt=关闭窗口></a></td></tr></table>@topinfo~;

}
#
sub SendMail{
	local ($From, $Subject, $Message, $To) = @_;
	open (MAIL, "|$CONFIG{'sendmail'} -t") || &error("无法打开发邮件程序","请检查$FORM{'sendmail'}是否正确");
	print MAIL "To: $To\n";
	#print MAIL "From: $From\n";
	print MAIL "Subject: $Subject\n\n";
	print MAIL "$Message\n\n";
	close (MAIL);
}
######
sub UnlockFile {
	if ($FLOCK) {
	local($lockfilename) = $_[0];
	local(*FILE) = $_[0];
	close (FILE);
	unlink ("$lockfilename.lok");
	}
}
sub LockFile {
	local($lockfilename) = $_[0];
	local(*FILE) = $_[0];
	local($TrysLeft) = 10;
	if ((-M "$lockfilename.lok") > .001) {	unlink ("$lockfilename.lok");	}
	while ($TrysLeft--) {
		if (-f "$lockfilename.lok") {select(undef,undef,undef,0.1);}
		else {
		if ($FLOCK) {
		open (FILE,">$lockfilename.lok");
		$lockresult = eval("flock(FILE,6)");
		if ($@) {$FLOCK = 0;	last;	}
		if (!$lockresult) {
		close (FILE);
		unlink ("$lockfilename.lok");
		select(undef,undef,undef,0.1);
		}
		else {last;}
		}
		else {	last;}
		}
	}
	if ($TrysLeft >= 0) {	return 0;}
	else {	return 1;}
}
#
sub backup_file {
    my $filename = $_[0];
    my $backup_filename = $filename.'.backup';
    use File::Copy;
    copy("$filename","$backup_filename");
}
#
sub restore_file {
    my $filename = $_[0];
    my $backup_filename = $filename.'.backup';
    use File::Copy;
    copy("$backup_filename","$filename");
}   
#
sub GetCookies {
 if($ENV{'HTTP_COOKIE'}){
	foreach(split(/; /,$ENV{'HTTP_COOKIE'})){
		($cookie,$value)=split(/=/);
		$Cookies{$cookie}=$value;
		}
  }
	$name=$Cookies{$Cookname};		
	$password=$Cookies{$Cookpass};	
	if($name eq ""){ $name="$ENV{'REMOTE_ADDR'}";}
	unless (-f "$dirname/$FILE{'ursid'}/$name.cgi"){ $cookid="1";}
} 
##
sub Ursid {
unless (-e "$usrpwdfile"){ &error("错误","ID号 $id 不存在！");}
open(PASS,"$dirname/$FILE{'ursid'}/$id.cgi");
$PASS=<PASS>;
close(PASS); 
($ursid,$urspass,$question,$answer,$email,$url,$oicq,$date_no,$home)=split(/\t/,$PASS);

}




######################  e n d ###########

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -