geniuschat_kick.cgi

来自「由玉面白狐修改的即時聊天」· CGI 代码 · 共 21 行

sub kick {
open(KICK,"$filedir$kickfile");
@kick=<KICK>;
close(KICK);
open(KICK,">$filedir$kickfile");
print KICK "$FORM{'kickip'}↑$this_call_time↑\n";
foreach $kick (@kick){
$kick=~ s/\n//g;
($kickip,$kicktime,$end)=split(/↑/,$kick);
if($kicktime > ($this_call_time-$clearkicktime)){
print KICK $kick."\n";
}
}
close(KICK);
print "Location: $cgiurl?job=superadmin&supername=$FORM{'supername'}&superpassword=$FORM{'superpassword'}\n\n";
}
sub kickhtm {
print "Content-type: text/html\n\n";
print <<INDEX;
<style TYPE="text/css">
   body,td,select	{font:9pt 穝灿