scookie.cgi

1。超强文件读写锁定

#!/usr/bin/perl
$dirname=&mypath;
##################################################################
## 本版使用于WINDOWS和Unix/Linux等操作系统版                    ## 
##################################################################
require "$dirname/setup2002.pl";
require "$dirname/svote.lib";
$Cookie_Exp_Date = '';
&SetCookies("name",$n,"password",$n,"$Cookname",$n,"$Cookpass",$n);
&Header("已经退出");
print <<EOF;
<script language="JavaScript"><!--
function clock(){
i=i-1
document.title="窗口将在"+i+"秒后自动关闭";
if(i>0)setTimeout("clock();",1000);
else self.close();
}
var i=5
clock();
//--></script>
<table width="100%" height="80"><tr><td align="center" width="100%">
您现在已经安全退出</p></td></tr></table></body></html>
EOF

exit;

####
sub SetCookies {
local(@cookies) = @_;
local($cookie,$value,$char);
while( ($cookie,$value) = @cookies ) {
foreach $char (@Cookie_Encode_Chars) {
$cookie =~ s/$char/$Cookie_Encode_Chars{$char}/g;
$value =~ s/$char/$Cookie_Encode_Chars{$char}/g;
}
print 'Set-Cookie: ' . $cookie . '=' . $value . ';';
if ($Cookie_Exp_Date) { print ' expires=' . $Cookie_Exp_Date . ';'; }
if ($Cookie_Path) { print ' path=' . $Cookie_Path . ';'; }
print "\n";
shift(@cookies); shift(@cookies);
}
}
sub mypath {
$dirname=__FILE__;
if ($dirname=~/\\/) { $dirname=~ s/\\/\//g;  $Unix = 0;}
if ($dirname) {$mypath=substr($dirname,0,rindex($dirname,"/"));}
else {
$mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
$mypath=~ s/\\/\//g;
$Unix = 1;
}
}