[project @ 2000-11-17 03:03:15 by ajt]

[debbugs.git] / cgi / common.pl

diff --git a/cgi/common.pl b/cgi/common.pl
index 7786b9c97f1c1e66c8a67e02c6bae256467a0dcf..ae8cc172034fc3218fcacac9f46a001d92e809af 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -123,9 +123,17 @@ sub htmlindexentrystatus {
     return $result;
 }
 
+sub submitterurl {
+    my $ref = shift;
+    my $params = "submitter=" . emailfromrfc822($ref);
+    $params .= "&archive=yes" if ($common_archive);
+    $params .= "&repeatmerged=yes" if ($common_repeatmerged);
+    return $debbugs::gCGIDomain . "pkgreport.cgi" . "?" . $params;
+}
+
 sub mainturl {
     my $ref = shift;
-    my $params = "maintenc=" . maintencoded($ref);
+    my $params = "maint=" . emailfromrfc822($ref);
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=yes" if ($common_repeatmerged);
     return $debbugs::gCGIDomain . "pkgreport.cgi" . "?" . $params;
@@ -345,6 +353,13 @@ sub pkgbugsindex {
     return %descstr;
 }
 
+sub emailfromrfc822 {
+    my $email = shift;
+    $email =~ s/\s*\(.*\)\s*//;
+    $email = $1 if ($email =~ m/<(.*)>/);
+    return $email;
+}
+
 sub maintencoded {
     my $input = shift;
     my $encoded = '';