check.cgi

1。超强文件读写锁定

#!/usr/bin/perl
$dirname=&mypath;
##################################################################
##                                                              ##
## 本版使用于WINDOWS和Unix/Linux等操作系统版                    ## 
##################################################################
require "$dirname/setup2002.pl";
require "$dirname/svote.lib";
&read_form;
&GetCookies;
&Ursid;
$num=$FORM{'num'};
$cuntdir="$dirname/$FILE{'poll'}/$id/$num";
$compose="50";
if($CONFIG{'compose'}){$compose=$CONFIG{'compose'};}
unless (-e "$cuntdir"){ &error("错误","ID项目不存在或已删除");}
open(NUMBER,"$dirname/$FILE{'poll'}/$id/$num.cgi");
$NUMBER=<NUMBER>;  
close(NUMBER); 
($l_num,$l_date,$l_lockid,$l_mode,$l_pollname,$years,$mons,$mdays,$hours,$mins,$l_no,$l_no,$l_total,$l_neat,$l_six)=split(/\t/,$NUMBER);

open(NUM,"$cuntdir/name.cgi"); 
@ndat=<NUM>;
close(NUM);
 @used_values = split(/\s/,$FORM{'used_values'}); 
	foreach $used_value (@used_values) {
			if($FORM{$used_value}){	 
			$misc_values ="$FORM{$used_value}\n";
			push(@misc_values,$misc_values);
			$misc_name=@ndat[$used_value];
			($p_name,$mo,$p_six)=split(/\t/,$misc_name);
			$pname1 .="[$p_name]"; 
		}
   	}
	$misc_id=@misc_values;
 if($FORM{'DEL'}){
	if($misc_id !=1){ &error("错误","删除的参投者只能是自己名字!");}
	if($p_name ne $name){ &error("错误","你不是此[$p_name]参投者,是否未登陆?");}
	$lockerror = &LockFile("$cuntdir/name.cgi");
	&error("错误","服务器占用中，请稍后再试") if($lockerror);
	open(MAIN,">$cuntdir/name.cgi");
		foreach $main (@ndat) { 
		$main=~s/[\n\r]//g;
		($pname,$momain,$sixmain)=split(/\t/,$main);
		if($pname ne $name){ print MAIN "$main\n";}
		}
	close(MAIN); 
	&UnlockFile("$cuntdir/name.cgi");
	&error("完成","你的投票已被删除,现可重新投入项目");
 }
 else{
	if($misc_id < 2){ &error("错误","请选定至少二位参投者才能统计");}
	open(COCO,"$cuntdir/$num.cgi"); 
	@nums=<COCO>;
	$max=@nums;
	close(COCO);
	for ($i=0; $i<$max; $i++) { 
		$ber=@nums[$i];
		$ber=~s/[\r\n]//g;
		($sh,$pollname)=split(/\t/,$ber);
		$j="0";
			foreach $misc(@misc_values) {
				if($misc=~/$pollname/){ $j++;}
			}
	$m="$j.$pollname\n";
	push(@SORTED,$m);
	}
	@SORTED = (sort { $a <=> $b } @SORTED); 
	&Header('票数统计');
	&Top;
	$sa1="-1";
	print qq~<p><table border=0 width=100%><tr bgcolor=#FFD7C height=24><td>&nbsp;<img src="$CONFIG{'img_url'}/sub.gif" width="16" height="16"> $l_num  &nbsp;&nbsp;（共选 $misc_id 位参投者）</table>~;
	print qq~<TABLE border=1 borderColor=#ffffff bordercolordark=#ffffff borderColorLight=#006600 cellSpacing=0 width=100%><tr bgcolor="#77BBFF"><td>$pname1<br><dir width=10>~;
	foreach $SORTED(@SORTED) {	
		($sa,$sname)=split(/\./,$SORTED);
		if($sa1 != $sa){$sa1="$sa";	print "<p><b>[$sa1 票]</b> $sname";}
		else {	print " $sname"; }
	}
	print "<p>&nbsp;</dir></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;
}
}
exit;