🚀 go-pugleaf

T. de Konink (tkonink@horizon.nl) wrote:
:   print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";

ah, ik zie het al.... cgi-script...

(names have been changed to protect the innocent.... I HATE perl)

#!/bin/perl

# files needed:
#   /usr/local/bin/mpack
#   /usr/bin/uuencode
#   /usr/bin/mail
# requests: transfer?dir/;word;0000
#                   ~~   ~~ 
#      NO starting /      use ; to separate
#
# mogelijke argumenten op de 2e plaats zijn: word en drtf

$URL_addr         = "http://mxxxxxxxxxxxxc.be:8001/";
$full_path_prefix = "/home/ssss/";

use CGI;
$query = new CGI;
print $query->header;
print <<END;
<HEAD><TITLE>          xxxxxxxxxxxxx</TITLE></HEAD>
<BODY BACKGROUND="/          xxxxxxxxxxxxxgif">
END

($path,$native,$number)=split(/;/,$ENV{'QUERY_STRING'});
$nfofile ="word".$number.".nfo";
$docfile ="word".$number.".doc";
$rtffile ="drtf".$number.".rtf";
$doczip ="word".$number.".zip";
$rtfzip="drtf".$number.".zip";

@list = $query->param;
if ($list[0] eq 'keywords')   
{
print <<END;
<FORM METHOD="POST">
Please enter your e-mail address:
<INPUT TYPE="text" NAME="email" SIZE=50 MAXLENGTH=50>
<HR>
END

$full_path_filename=$full_path_prefix.$path."/".$docfile;
if(-e $full_path_filename)
  {
  print <<END
  <B>DOC </B>
  <INPUT TYPE="radio" NAME="mail_it" VALUE="doc" CHECKED><IMG SRC="/ssssssssssssssssssssssss.gif">
END
  } 

$full_path_filename=$full_path_prefix.$path."/".$doczip;
if(-e $full_path_filename)
  {
  print <<END;
  <INPUT TYPE="radio" NAME="mail_it" VALUE="doczip"><IMG SRC="/ssssssssssssssssssssssss.gif">
END
  }

$full_path_filename=$full_path_prefix.$path."/".$rtffile;
if(-e $full_path_filename)
  {
  print <<END
  &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;
  <B>RTF </B>
  <INPUT TYPE="radio" NAME="mail_it" VALUE="rtf"><IMG SRC="/ssssssssssssssssssssssss.gif">
END
  } 

$full_path_filename=$full_path_prefix.$path."/".$rtfzip;
if(-e $full_path_filename)
  {
  print <<END;
  <INPUT TYPE="radio" NAME="mail_it" VALUE="rtfzip"><IMG
SRC="/ssssssssssssssssssssssss.gif"><BR><br>
END
  }

print <<END;
<INPUT TYPE="radio" NAME="mail_method" VALUE="mime" CHECKED>MIME
<INPUT TYPE="radio" NAME="mail_method" VALUE="uuencode">UUENCODED<BR>
<BR>
<INPUT TYPE="submit" VALUE="Mail transaction will be logged">
</FORM>
END
}
##########################################################################
## End of the form -- Beginning of interpretation                       ##
##########################################################################

@list = $query->param;
if ($list[0] ne 'keywords')   
  {
  $email = $query->param(email);
  ($path,$native,$number)=split(/;/,$ENV{'QUERY_STRING'});
  if(($email eq ''))
    {print "<HR><P>If you want this document mailed, you should give us your E-Mail address</P>\n";exit;}
  else
    {
    if($query->param(mail_it) eq 'doc')
      {$filename="word".$number.".doc";}
    if($query->param(mail_it) eq 'rtf')
      {$filename="drtf".$number.".rtf";}
    if($query->param(mail_it) eq 'doczip')
      {$filename="word".$number.".zip";}
    if($query->param(mail_it) eq 'rtfzip')
      {$filename="drtf".$number.".zip";}
    };
  $full_path_filename=$full_path_prefix.$path."/".$filename;
  &mail_document;
  };

print "<HR>";
$full_path_filename=$full_path_prefix.$path."/".$nfofile;
if(-e $full_path_filename)
  {
  open(HANDLE,$full_path_filename);
  while(<HANDLE>)
    {print;};
  close(HANDLE);
  print "<HR>";
  };
print "\n";
exit;

sub mail_document
{

###############################ssssssssssssssssssssssss instructions (testing 1, 2, 3)
$subject="\"CEN/TC 251 ".$filename."\"";
$subjec2="CEN/TC_251_".$filename;
print "<IMG SRC=\"/cgi-bin/nph-transjdc?$email;$subjec2\">";
####################sssssssssssssssssssssssssssssssssssssssssssssss

if($query->param(mail_method) eq 'mime')
  {system("/usr/local/bin/mpack -s $subject $full_path_filename $email");} 
else
  {system ("/usr/bin/uuencode $full_path_filename $filename |/usr/bin/mail -s $subject $email");}; 
print "<HR><P>The file $subject is sent by E-Mail to $email</P>";
exit;
}