scripts/receive.in

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