Tadashi Okoshi
slash****@users*****
2005年 12月 16日 (金) 18:04:31 JST
Index: affelio/incoming.cgi
diff -u affelio/incoming.cgi:1.11 affelio/incoming.cgi:1.12
--- affelio/incoming.cgi:1.11 Sat Dec 10 11:22:20 2005
+++ affelio/incoming.cgi Fri Dec 16 18:04:31 2005
@@ -16,7 +16,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: incoming.cgi,v 1.11 2005/12/10 02:22:20 slash5234 Exp $
+# $Id: incoming.cgi,v 1.12 2005/12/16 09:04:31 slash5234 Exp $
use strict;
@@ -24,7 +24,7 @@
use CGI qw(-unique_headers);
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 102_400;
-use CGI::Session qw(-ip_match);
+use CGI::Session; #qw(-ip_match);
use HTML::Template;
use Error qw(:try);
Index: affelio/index.cgi
diff -u affelio/index.cgi:1.21 affelio/index.cgi:1.22
--- affelio/index.cgi:1.21 Tue Nov 8 00:28:33 2005
+++ affelio/index.cgi Fri Dec 16 18:04:31 2005
@@ -16,7 +16,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: index.cgi,v 1.21 2005/11/07 15:28:33 slash5234 Exp $
+# $Id: index.cgi,v 1.22 2005/12/16 09:04:31 slash5234 Exp $
use strict;
@@ -24,7 +24,7 @@
use CGI qw(-unique_headers);
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 102_400;
-use CGI::Session qw(-ip_match);
+use CGI::Session; #qw(-ip_match);
use HTML::Template;
use Error qw(:try);
use Fcntl;
Index: affelio/outgoing.cgi
diff -u affelio/outgoing.cgi:1.9 affelio/outgoing.cgi:1.10
--- affelio/outgoing.cgi:1.9 Sat Dec 10 09:46:28 2005
+++ affelio/outgoing.cgi Fri Dec 16 18:04:31 2005
@@ -16,7 +16,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-# $Id: outgoing.cgi,v 1.9 2005/12/10 00:46:28 slash5234 Exp $
+# $Id: outgoing.cgi,v 1.10 2005/12/16 09:04:31 slash5234 Exp $
use strict;
@@ -24,7 +24,7 @@
use CGI qw(-unique_headers);
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 102_400;
-use CGI::Session qw(-ip_match);
+use CGI::Session; #qw(-ip_match);
use HTML::Template;
use Error qw(:try);
@@ -89,6 +89,7 @@
#########################################
# Retrieve destination URL
my $dest_URL = $wi->PTN_URL($q->param("dest_url"));
+$dest_URL =~ s|/$||;
my $dest_URL2 = $wi->PTN_URL($q->param("dest_url2"));
debug_print("outgoing.cgi: dst_URL=$dest_URL");
@@ -171,7 +172,6 @@
. "&dest_url=$dest_URL2";
debug_print("outgoing.cgi: forwarding_to= $forwarding_to\n");
-
############################################################################
#Output
############################################################################