#!/usr/bin/perl
$user="tlcplus";
$passwd="tlcgo";
print "Content-type: text/html\n\n";
print "<HEAD><TITLE>Send mail to the unregister user</TITLE></HEAD>\n";
print "<BODY BGCOLOR=#000000 TEXT=#FFFFFF><H2>\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@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;
    $FORM{$name} = $value;
}
$check = $FORM{'passwd'};
if( ($FORM{'user'}==$user) && ($FORM{'passwd'}==$passwd) && ( length($check) == 5 )){
	print "<CENTER>e-mail broadcasting center</CENTER><BR>\n";
	print "Content of notpaid.html<BR>\n";
	print "<FORM METHOD=POST ACTION=s_unreg><TEXTAREA NAME=s_name rows=5 cols=30>";
	open(F,"/var/spool/news/htdocs/tlcplus/notpaid.html");
	while(<F>){
		print $_;
	}
	close(F);
	print "</TEXTAREA>\n";
	print "<BR>Subject: <INPUT TYPE=TEXT NAME=s_sub VALUE=\"Love connection TLCPLUS\">\n";
	print "<BR><BR>Content of letter1.html<BR>\n";
	print "<BR><TEXTAREA NAME=s_mess rows=5 cols=50>\n";
	open(F,"/var/spool/news/htdocs/tlcplus/letter1.html");
	while(<F>){
		print $_;
	}
	print "</TEXTAREA>\n";
	print "<BR><BR><BR><CENTER><INPUT TYPE=submit value=submit>";
	print "<INPUT TYPE=reset value=reset>";
	print "</FORM>";
	
}else{
	print "Authorization File!!!";
}
