use suffix .cgi for cgi scripts

At least bug.pl appears to be blacklisted in our content filter. As well as
filing a bug there workaround it.

diff --git a/CGI/bug.pl b/CGI/bug.pl
index a1d7cf9dbf2d8e3ba7fbca3a5c632ef84608fcfd..d7e33982702bff8d98590a00ae907eb31ec85305 100755 (executable)
--- a/CGI/bug.pl
+++ b/CGI/bug.pl
@@ -18,7 +18,7 @@ use Encode qw/encode decode/;
 use Emesinae::Bug;
 use Emesinae::Common;
 
-require 'common.pl';
+require 'common.cgi';
 
 readconfig;
 my $dbh = opendb;

diff --git a/CGI/bugs.pl b/CGI/bugs.pl
index fcad9e0514e4fdeda05c8d948f132a020c2ea2ea..2f99e52c861d93a4032f9178151ce2f40fff17ad 100755 (executable)
--- a/CGI/bugs.pl
+++ b/CGI/bugs.pl
@@ -9,7 +9,7 @@ use CGI::Carp qw(fatalsToBrowser);
 use Emesinae::Bug;
 use Emesinae::Common;
 
-require 'common.pl';
+require 'common.cgi';
 
 readconfig;
 

diff --git a/CGI/common.pl b/CGI/common.pl
index 91afed30a7039ee2518cdaa9f1bc671bc2f6b323..217ab9dc46a6290e1b3095ffcfa739e373948942 100644 (file)
--- a/CGI/common.pl
+++ b/CGI/common.pl
@@ -6,7 +6,7 @@ sub cgipath {
 sub buglink {
     my $b   = shift;
     my $t   = shift or $b->{title};
-    my $url = cgipath("bug.pl?id=" . $b->{id});
+    my $url = cgipath("bug.cgi?id=" . $b->{id});
     return a( { href => $url }, $t );
 }
 
@@ -15,7 +15,7 @@ sub msglink {
     my $t    = shift;
     my %attr = @_;
 
-    my $url = cgipath("message.pl?id=" . $m->{id});
+    my $url = cgipath("message.cgi?id=" . $m->{id});
     $url .= "&part=" . $attr{part} if $attr{part};
     $url .= "&raw=" . $attr{raw}   if $attr{raw};
 

diff --git a/Makefile b/Makefile
index 626f2cdc4e6f43ce3f832daec9d290154cda9367..9fb661334b4c8c56ae3e5f2e8cb6fe4a424584f0 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -58,7 +58,7 @@ install: build
        done
 
        set -e; for CGI in $(CGIS) ; do \
-               $(INSTALL) $${CGI} $(CGIS_DIR) ; \
+               $(INSTALL) $${CGI} $(CGIS_DIR)/$$(basename $${CGI} .pl).cgi; \
        done
 
        set -e; for CSS in $(CSSS) ; do \

diff --git a/scripts/control.pl b/scripts/control.pl
index cf7f7bbb0502d7cd57898b15067e9d64930195f6..57a2579a543c6ccf9b440321817abdcb1280f3fc 100755 (executable)
--- a/scripts/control.pl
+++ b/scripts/control.pl
@@ -394,7 +394,7 @@ while (<M>) {
 
 sub bugurl ($) {
     my $bn = shift;
-    return "http://" . $c{TrackerHost} . $c{CGIPath} . "bug.pl?id=$bn";
+    return "http://" . $c{TrackerHost} . $c{CGIPath} . "bug.cgi?id=$bn";
 }
 
 push @reply, ( "", "Modified/created Bugs:" ) if %bugs;