/[qa]/trunk/pts/perl/common.pl
ViewVC logotype

Diff of /trunk/pts/perl/common.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 295 by hertzog, Tue Feb 12 12:09:58 2002 UTC revision 298 by hertzog, Thu Feb 14 15:07:21 2002 UTC
# Line 1  Line 1 
1  # Configuration and some common code  # Configuration and some common code
2    
3  use vars qw($pts_dir $spool_dir $conf_template $db_filename $db_tags_filename  use vars qw($pts_dir $spool_dir $conf_template $db_filename $db_tags_filename
4              $sendmail $sources $pts_email @available_tags              $sendmail $sources $pts_email @available_tags @default_tags
5              %db_content $db %db_tags_content $db_tags              %db_content $db %db_tags_content $db_tags
6              %bin2src %src $open_count);              %bin2src %src $open_count);
7    
# Line 14  $db_tags_filename = "$pts_dir/db/tags.db Line 14  $db_tags_filename = "$pts_dir/db/tags.db
14  $sendmail = '/usr/sbin/sendmail -f owner@packages.qa.debian.org';  $sendmail = '/usr/sbin/sendmail -f owner@packages.qa.debian.org';
15  $sources = "/org/bugs.debian.org/etc/indices/sources";  $sources = "/org/bugs.debian.org/etc/indices/sources";
16  $pts_email = 'pts@qa.debian.org';  $pts_email = 'pts@qa.debian.org';
17  @available_tags = qw(default bts bts-control buildd summary  @available_tags = qw(default bts bts-control cvs summary
18                       upload-source upload-binary katie-other);                       upload-source upload-binary katie-other);
19    @default_tags = qw(default bts bts-control summary upload-source katie-other);
20    
21  # Global variables  # Global variables
22  %db_content = ();  %db_content = ();
# Line 158  sub get_default_tags { Line 159  sub get_default_tags {
159      if (exists $db_tags_content{$email}) {      if (exists $db_tags_content{$email}) {
160          @res = split(/,/, $db_tags_content{$email});          @res = split(/,/, $db_tags_content{$email});
161      } else {      } else {
162          @res = available_tags();          @res = @default_tags;
163      }      }
164      close_db();      close_db();
165      return @res;      return @res;
# Line 180  sub get_tags { Line 181  sub get_tags {
181      } elsif (exists $db_tags_content{$email}) {      } elsif (exists $db_tags_content{$email}) {
182          @res = split(/,/, $db_tags_content{$email});          @res = split(/,/, $db_tags_content{$email});
183      } else {      } else {
184          @res = available_tags();          @res = @default_tags;
185      }      }
186      close_db();      close_db();
187      return @res;      return @res;
Legend:
Removed from v.295  
changed lines
  Added in v.298
  ViewVC Help
Powered by ViewVC 1.1.5