+my $common_leet_urls = 0;
+
+my %common_reverse = (
+ 'pending' => 0,
+ 'severity' => 0,
+);
+my %common = (
+ 'show_list_header' => 1,
+ 'show_list_footer' => 1,
+);
+
+sub exact_field_match {
+ my ($field, $values, $status) = @_;
+ my @values = @$values;
+ my @ret = grep {$_ eq $status->{$field} } @values;
+ $#ret != -1;
+}
+sub contains_field_match {
+ my ($field, $values, $status) = @_;
+ foreach my $data (@$values) {
+ return 1 if (index($status->{$field}, $data) > -1);
+ }
+ return 0;
+}
+
+sub detect_user_agent {
+ my $userAgent = $ENV{HTTP_USER_AGENT};
+ return { 'name' => 'unknown' } unless defined $userAgent;
+ return { 'name' => 'links' } if ( $userAgent =~ m,^ELinks,);
+ return { 'name' => 'lynx' } if ( $userAgent =~ m,^Lynx,);
+ return { 'name' => 'wget' } if ( $userAgent =~ m,^Wget,);
+ return { 'name' => 'gecko' } if ( $userAgent =~ m,^Mozilla.* Gecko/,);
+ return { 'name' => 'ie' } if ( $userAgent =~ m,^.*MSIE.*,);
+ return { 'name' => 'unknown' };
+}
+
+my %field_match = (
+ 'subject' => \&contains_field_match,
+ 'tags' => sub {
+ my ($field, $values, $status) = @_;
+ my %values = map {$_=>1} @$values;
+ foreach my $t (split /\s+/, $status->{$field}) {
+ return 1 if (defined $values{$t});
+ }
+ return 0;
+ },
+ 'severity' => \&exact_field_match,
+ 'pending' => \&exact_field_match,
+ 'originator' => \%contains_field_match,
+ 'forwarded' => \%contains_field_match,
+ 'owner' => \%contains_field_match,
+);
+my @common_grouping = ( 'severity', 'pending' );
+my %common_grouping_order = (
+ 'pending' => [ qw( pending forwarded pending-fixed fixed done absent ) ],
+ 'severity' => \@gSeverityList,
+);
+my %common_grouping_display = (
+ 'pending' => 'Status',
+ 'severity' => 'Severity',
+);
+my %common_headers = (
+ 'pending' => {
+ "pending" => "outstanding",
+ "pending-fixed" => "pending upload",
+ "fixed" => "fixed in NMU",
+ "done" => "resolved",
+ "forwarded" => "forwarded to upstream software authors",
+ "absent" => "not applicable to this version",
+ },
+ 'severity' => \%gSeverityDisplay,
+);
+
+my $common_version;
+my $common_dist;
+my $common_arch;