newvote.cgi

1。超强文件读写锁定

#!/usr/bin/perl
$dirname=&mypath;
##################################################################
##                                                              ##
## 本版使用于WINDOWS和Unix/Linux等操作系统版                    ## 
##################################################################
require "$dirname/setup2002.pl";
require "$dirname/svote.lib";
&read_form;
&GetCookies;
&Ursid;


	opendir(MEMBERDIR, "$usrpwdfile");
	@hastitles=readdir(MEMBERDIR);
	closedir(MEMBERDIR);
	@hastitles=reverse @hastitles;
&Header("$home调查列表");
&Top;
print qq~<table cellSpacing="0" cellPadding="2" width="550" bgColor="#000084" border="0"><tr><td><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="550" id="AutoNumber1">
<tr bgcolor=#FFD7C  height=25 align=center><td width="310">调查主题<td width="50">人 数<td width="120">建立时间<td width="120">截止时间</tr>~;
 foreach $m(@hastitles){
   if($m !~/\./){
	open(MSGS,"$usrpwdfile/$m.cgi");
   	$lines = <MSGS>; 
   	close(MSGS); 
	if($lines){
		($l_num,$l_date,$l_lockid,$l_mode,$l_look,$years,$mons,$mdays,$hours,$mins,$pmax,$pmin)=split(/\t/,$lines);
		open(NAME,"$usrpwdfile/$m/name.cgi");
		@NAME=<NAME>;
		$nameip=@NAME;
		close(NAME); 
		print "<tr height=22 bgColor=ECF6F5><td><IMG src=$CONFIG{'img_url'}/sub.gif border=0> <a href='$CGI{'vote'}?id=$id&num=$m' target='_blank'>$l_num</A><td align=center>$nameip<td align=center>$l_date<td align=center>$years-$mons-$mdays $hours:$mins";
	}
   }
 }
print qq~</td></tr></table><tr><td align="center"><font color="#83C6C0">COPYRIGHT2002-2004&copy;<a href=http://hk666b.126.com><font color="#83C6C0">CK联合小组</font></a> BBC  QQ：66622488 Email：hk666b\@21cn.com 《CKvote_h》V2.0</font></td></table>~;
&Tailer;
exit;
###
sub mypath {
$dirname=__FILE__;
if ($dirname=~/\\/) { $dirname=~ s/\\/\//g;}
if ($dirname) {$mypath=substr($dirname,0,rindex($dirname,"/"));}
else {
$mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
$mypath=~ s/\\/\//g;
}
}