cginame(/home/jj/public_html/bin/talk)
formtitle(Talk terceiro-mundista)
uploaddir(/home/jj/PRH)
init(tai)
inv(d)

{
 i ( ) : string  70 
}

##
sub tai{ `tail -30 /home/jj/PRH/__TALK__`; }

sub d{ my $p = shift;
 my $s=remote_host();
 my $eu;
    if($s =~ m/193.136.19.132/)     {$eu="JJoao"}
 elsif($s =~ m/132.227.204./)       {$eu="Prh"}
 elsif($s =~ m/193.136.19.131/)     {$eu="Alberto"}

 open (F , ">> /home/jj/PRH/__TALK__");
 print F  br,red(strong($eu)), ": ", limpa($p->{i}),"\n" if $p->{i} =~ m/\S/;
 close F;
 "";
}

sub limpa{ my $p=shift;
 $p =~ s/(\r\n|\n\r|\r)/\n/g;
 $p =~ s/\s*$//;
 $p;
}

##