scripts/errorlib

   1 # -*- perl -*-
   2
   3 use Mail::Address;
   4 use Debbugs::MIME qw(decode_rfc1522 encode_rfc1522 getmailbody);
   5 use Debbugs::Packages qw(:all);
   6 use Debbugs::Common qw(:all);
   7 use Debbugs::Status qw(:all);
   8 use Carp;
   9
  10 sub unlockreadbugmerge {
  11     local ($rv) = @_;
  12     &unfilelock if $rv >= 2;
  13     &unfilelock if $rv >= 1;
  14 }
  15
  16 %saniarray= ('<','lt', '>','gt', '&','amp', '"','quot');
  17
  18 sub sani {
  19     my ($in) = @_;
  20     carp "You should be using HTML::Entities instead.";
  21     $in =~ s/([<>&"])/\&$saniarray{$1};/g;
  22     return $in;
  23 }
  24
  25 sub get_addresses {
  26         return
  27             map { $_->address() }
  28             map { Mail::Address->parse($_) } @_;
  29 }
  30
  31 @severities= grep { not exists $gObsoleteSeverities{$_} } @gSeverityList;
  32 @showseverities= @severities;
  33 grep ($_= $_ eq '' ? $gDefaultSeverity : $_, @showseverities);
  34 %displayshowseverities= %gSeverityDisplay;
  35
  36 # compatibility
  37 if (defined $gFowardList and not defined $gForwardList) {
  38     $gForwardList = $gFowardList;
  39 }
  40
  41 1;