#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<body bgcolor=fffffff text=000000>";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@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;
      $cgi{$name} = $value;
}
# load in the form contents
$email = $cgi{'email'};
open(F1,"/var/spool/news/cgi-bin/tlc/dev/passlog");
open(F2,">/var/spool/news/cgi-bin/tlc/dev/killlog");
while(<F1>)
{
	$s1 = $_;
	chop($s1);
	@ss = split(/:/,$s1);
	if( $email =~ /@ss[1]/ ){
		print F2 $this = @ss[2];
		print F2 "\n";
	}
}
close(F2);
close(F1);
open(F3,"/var/spool/news/cgi-bin/tlc/dev/chat/.htaccess");
open(F4,">/var/spool/news/cgi-bin/tlc/dev/chat/htaccess");
while(<F3>){
	$record = $_;
	@ss = split(/ /,$record);
	$this = @ss[2];
	chop($this);
	open(F2,"/var/spool/news/cgi-bin/tlc/dev/killlog");
	$flag = 1;
	while(<F2>){
		$athis = $_;
		chop($athis);
		if(( length($this) == length($athis))&& ($this =~ /$athis/)){
			print "--> $athis had been erased htaccess<BR>";
			$flag = 0;
		}else{
		}
	}
	close(F2);
	if($flag == 1){
		print F4 $record;
	}
}
close(F4);
close(F3);
open(F5,"/var/spool/news/cgi-bin/tlc/dev/chat/.htpasswd");
open(F6,">/var/spool/news/cgi-bin/tlc/dev/chat/htpasswd");
while(<F5>){
	$record = $_;
	@ss = split(/:/,$record);
	$this = @ss[0];
	open(F2,"/var/spool/news/cgi-bin/tlc/dev/killlog");
	$flag = 1;
	while(<F2>){
		$athis = $_;
		chop($athis);
		if(( length($this) == length($athis))&& ($this =~ /$athis/)){
			print "--> $athis had been erased htpasswd<BR>";
			$flag = 0;
		}else{
		}
	}
	close(F2);
	if($flag == 1){
		print F6 $record;
	}
}
close(F6);
close(F5);
system("mv /var/spool/news/cgi-bin/tlc/dev/chat/htpasswd /var/spool/news/cgi-bin/tlc/dev/chat/.htpasswd");
system("mv /var/spool/news/cgi-bin/tlc/dev/chat/htaccess /var/spool/news/cgi-bin/tlc/dev/chat/.htaccess");
open(F,">>/var/spool/news/htdocs/tlcplus/dev/locked.html");
print F "$email\n";
close(F);
open(F5,"/var/spool/news/cgi-bin/tlc/dev/passlog");
open(F6,">/var/spool/news/cgi-bin/tlc/dev/passlog.tmp");
while(<F5>){
	$record = $_;
	@ss = split(/:/,$record);
	$this = @ss[1];
	open(F2,"/var/spool/news/cgi-bin/tlc/dev/killlog");
	$flag = 1;
	while(<F2>){
		$athis = $_;
		chop($athis);
		if(( length($this) == length($athis))&& ($this =~ /$athis/)){
			print "--> $athis had been erased htpasswd<BR>";
			$flag = 0;
		}else{
		}
	}
	close(F2);
	if($flag == 1){
		print F6 $record;
	}
}
close(F6);
close(F5);
print "$email has been locked<br>";
