scripts/receive.in

   1 #!/usr/bin/perl -w
   2 # $Id: receive.in,v 1.10 2001/08/16 06:39:59 doogie Exp $
   3 # usage: mail is piped directly into program
   4
   5 #set umask in order to have group-writable incoming/*
   6 #umask 002;
   7
   8 #load configuration file
   9 require( '/etc/debbugs/config' );
  10
  11 #set source of mail delivery
  12 #sets any prefix needed to get mailer to add it to error mail
  13 if ( $gMailer eq 'exim' )
  14 {       $gBadEmailPrefix = '';
  15         $_ = $ENV{'LOCAL_PART'};
  16 } elsif ( $gMailer eq 'qmail' )
  17 {       $gBadEmailPrefix = '//';
  18         $_ = $ENV{'DEFAULT'};
  19 #       $_ = $ENV{'RECIPIENT'};
  20 #       s/^\w+-bugs--?//;
  21 } else
  22 {       $gBadEmailPrefix = '';
  23         $_ = $ARGV[0];
  24         s/\>//;
  25         s/\<//;
  26 }
  27 require("/etc/debbugs/text");
  28
  29 #remove everything from @ to end of line
  30 s/\@.*$//;
  31
  32 #convert remaining upper case to lower case
  33 y/A-Z/a-z/;
  34
  35 #set up to determine command
  36 %withbugaddressmap= ('-submit',     'B',
  37                    '',            'B',
  38                    '-maintonly',  'M',
  39                    '-quiet',      'Q',
  40                    '-forwarded',  'F',
  41                    '-fixed',      'X',
  42                    '-done',       'D',
  43                    '-close',      'D',
  44                    '-request',    'R',
  45                    '-submitter',  'U');
  46
  47 %withpkgaddressmap= ('-request',     'R');
  48
  49 %withoutaddressmap= ('submit',     'B',
  50                       'bugs',       'B',
  51                       'maintonly',  'M',
  52                       'quiet',      'Q',
  53                       'forwarded',  'F',
  54                       'done',       'D',
  55                       'close',      'D',
  56                       'request',    'R',
  57                       'submitter',  'U',
  58                       'control',    'C');
  59
  60 #determine command
  61 if (s/^(\d{1,9})\b//) {
  62     $bugnumber= $1;
  63     $map= $withbugaddressmap{$_};
  64     $addrrec= "$bugnumber$_";
  65 } elsif (s/^(\w+)-//) {
  66     $bugnumber= $1;
  67     $map= $withpkgaddressmap{"-$_"};
  68     $addrrec= "$bugnumber-$_";
  69 } else {
  70     $bugnumber= '';
  71     $map= $withoutaddressmap{$_};
  72     $addrrec= "$_";
  73 }
  74
  75 #print no command received
  76 if (!defined($map)) {
  77     print STDERR <<ENDTEXT;
  78 $gBadEmailPrefix
  79 $gBadEmailPrefix Unknown $gBug service address $_\@$gEmailDomain.
  80 $gBadEmailPrefix Recognised addresses are:
  81 $gBadEmailPrefix
  82 $gBadEmailPrefix     General:       Read $gBug# in Subject:    $gBug# is NNNN:
  83 $gBadEmailPrefix
  84 $gBadEmailPrefix      request        submit  $gBug             NNNN  NNNN-submit
  85 $gBadEmailPrefix      control        maintonly                NNNN-maintonly
  86 $gBadEmailPrefix      owner          quiet                    NNNN-quiet
  87 $gBadEmailPrefix      postmaster     forwarded                NNNN-forwarded
  88 $gBadEmailPrefix                     done  close              NNNN-done  NNNN-close
  89 $gBadEmailPrefix                     submitter                NNNN-submitter
  90 $gBadEmailPrefix
  91 $gBadEmailPrefix (all \@$gEmailDomain.)
  92 $gBadEmailPrefix
  93 $gBadEmailPrefix For instructions via the WWW see:
  94 $gBadEmailPrefix   http://$gWebDomain/
  95 $gBadEmailPrefix   http://$gWebDomain/Reporting.html
  96 $gBadEmailPrefix   http://$gWebDomain/Developer.html
  97 $gBadEmailPrefix   http://$gWebDomain/Access.html
  98 $gTextInstructions
  99 $gBadEmailPrefix For details of how to access $gBug report logs by email:
 100 $gBadEmailPrefix   send \`request\@$gEmailDomain' the word \`help'
 101 $gBadEmailPrefix
 102 ENDTEXT
 103     exit(100);
 104 }
 105
 106 @months=qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
 107 ($sec,$min,$hour,$mday,$mon,$year)= gmtime(time);
 108
 109 $queue= "$map$bugnumber";
 110
 111 chdir("$gSpoolDir/incoming") || &failure("chdir to spool: $!");
 112
 113 $id= time.$$;
 114 open(FILE,">T.$id") || &failure("open temporary file: $!");
 115 printf(FILE "Received: (at %s) by $gEmailDomain; %d %s %d %02d:%02d:%02d +0000\n",
 116        $addrrec, $mday,$months[$mon],$year+1900, $hour,$min,$sec) ||
 117     &failure("write header to temporary file: $!");
 118 while(<STDIN>) { print(FILE) || &failure("write temporary file: $!"); }
 119 close(FILE) || &failure("close temporary file: $!");
 120
 121 rename("T.$id","I$queue.$id") || &failure("rename spool message: $!");
 122
 123 exit(0);
 124
 125 sub failure {
 126     length($id) && unlink("T.$id");
 127     print STDERR "bugs receive failure: @_\n";
 128     exit(75); # EX_TEMPFAIL
 129 }