#!/usr/bin/perl -w $| = 1; # mail to tkowale@ (2006) # blad w 107 ???? 30.12.03 # VER 10.05.2002 # ---------------------------------------------------- # Author: Robert Trzaskowski / e-mail: kenzo_@gmx.de # Mobile: +48 609 487 674 / Date: 16 August 2001 # ---------------------------------------------------- if (1 == 1) { $skrypt = "http://fluid.ippt.gov.pl/ictam04/cgibin/mailer.cgi"; } else { $skrypt = "http://localhost/~ictam04/cgi-bin/mailer.cgi"; } $ENV{PATH} = ""; $from = ""; $subject = ""; $msg = ""; $fromcolor = ""; $subjectcolor = ""; $msgcolor = ""; unless ($ENV{'CONTENT_LENGTH'}) { &strona(); } else { &program(); } exit; sub strona { print ("Content-Type: text/html\n\n"); print ("
Mail ICTAM 2004
ICTAM 2004 mailer...
\n"); print ("System will send your email message to $to...");
open(SENDMAIL, "| /usr/sbin/sendmail -oi -oem -f\"$from\" -t") || die ("Otwieram /usr/sbin/sendmail: $!");
print SENDMAIL ("To: $to\n");
print SENDMAIL ("Subject: $subject\n");
print SENDMAIL ("$msg\n");
close(SENDMAIL) || die ("Zamykam /usr/sbin/sendmail: $!");
print (" sent by $from\.
Warning! ");
print ("If your email addrress $from is wrong this email will be rejected!!! \n
Come back to our homepage"); }