CGI: use path based parameters for message links.

diff --git a/CGI/bug.pl b/CGI/bug.pl
index 3c66bd30dd756e69ba4f186f0cefad554ccb84cd..af31aba00341ac2ae80819c7216eaafc3ef70261 100755 (executable)
--- a/CGI/bug.pl
+++ b/CGI/bug.pl
@@ -176,7 +176,7 @@ sub reply_link ($) {
 
 sub raw_link ($) {
     my $m = shift;
-    return msglink( $m, "Retrieve Raw Message", raw => 1 );
+    return msglink( $m, "Retrieve Raw Message", "/raw" );
 }
 
 sub getmailbody    # From Debbugs
@@ -238,7 +238,7 @@ sub parthdr {
     my $msgid = $m->id;
     return
         "["
-      . msglink( $m, $filename ? $filename : "Part $nr", part => $nr )
+      . msglink( $m, $filename ? $filename : "Part $nr", "/part/$nr" )
       . " ($type, $disposition)" . "]";
 }
 

diff --git a/CGI/common.pl b/CGI/common.pl
index 1ea05436e526b5e530e8f9abe10f29e6ed104a36..94b92fd61971fa32054cd9f9671da0d154226441 100644 (file)
--- a/CGI/common.pl
+++ b/CGI/common.pl
@@ -13,14 +13,11 @@ sub buglink {
 }
 
 sub msglink {
-    my $m    = shift;
-    my $t    = shift;
-    my %attr = @_;
-
-    my $url = cgipath( "message/" . $m->{id} );
-    $url .= "&part=" . $attr{part} if $attr{part};
-    $url .= "&raw=" . $attr{raw}   if $attr{raw};
+    my $m = shift;
+    my $t = shift;
+    my $p = shift or "";            # Optional subpath
 
+    my $url = cgipath( "message/" . $m->{id} . $p );
     return a( { href => $url }, $t );
 }