gildet98/cgi-bin/sendhjelp.pl

   1 #!/usr/bin/perl
   2 #
   3 # Author: Petter Reinholdtsen <pere@td.org.uit.no>
   4 # Date:   1997-12-27
   5 #
   6 # Send given CGI info via mail to receivers
   7
   8 $receiver = "pere\@td.org.uit.no";
   9 $receiver = "pere\@link.no";
  10 #$receiver = "pere\@td.org.uit.no,leneak\@hepp.uio.no";
  11 BEGIN {
  12 unshift(@INC, '/mn/trillian/u2/gildewww/opt/lib/perl5/site_perl');
  13 }
  14 use CGI qw(:standard);
  15 use Net::SMTP;
  16
  17 $mailer = 'pat.uio.no';
  18
  19 if (param()) {
  20     # mail info to those who what it
  21     foreach $key (param) {
  22         $val = param($key);
  23         push(@list, "$key = $val\n");
  24     }
  25     $smtp = Net::SMTP->new($mailer,
  26                            Hello => 'trillian.uio.no') || die "Unable to make SMTP object";
  27     $smtp->mail("Gildewww automailer <gildewww\@gildet.uio.no>");
  28     for $address (split(/,/, $receiver) ) {
  29         $smtp->to($address) || warn("Receiver $address not accepted");
  30     }
  31
  32     $smtp->data();
  33     $smtp->datasend("To: $receiver\n");
  34     $smtp->datasend("Subject: (auto) Gildehjelper melder seg\n");
  35     $smtp->datasend("\n");
  36     $smtp->datasend("En bruker har registrert seg via <URL:".
  37                     $ENV{'HTTP_REFERER'}."\n\n");
  38     for $line (@list) {
  39         $smtp->datasend(" $line");
  40     }
  41     $smtp->dataend();
  42     $smtp->quit;
  43
  44     print header;
  45     print join('<br>',@list);
  46 } else {
  47     # Something went wrong.
  48
  49     print header;
  50
  51     print start_html(-author=>'pere@td.org.uit.no',
  52                      'Feil med innrapportering av informasjon'),
  53     br,
  54     h1('Det har skjedd en feil'),
  55     "\nJeg har ikke klart å ta imot informasjonen du forsøkte å sende.\n",
  56     'Rapporter feilen til ',
  57     a({href=>"mailto:pere\@td.org.uit.no"},"pere\@td.org.uit.no"),
  58     br,
  59     end_html;
  60 }