Tadashi Okoshi
slash****@users*****
2005年 12月 17日 (土) 12:02:06 JST
Index: affelio/incoming.cgi
diff -u affelio/incoming.cgi:1.12 affelio/incoming.cgi:1.13
--- affelio/incoming.cgi:1.12 Fri Dec 16 18:04:31 2005
+++ affelio/incoming.cgi Sat Dec 17 12:02:06 2005
@@ -16,16 +16,13 @@
# 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.12 2005/12/16 09:04:31 slash5234 Exp $
+# $Id: incoming.cgi,v 1.13 2005/12/17 03:02:06 slash5234 Exp $
use strict;
use lib("./extlib");
use CGI qw(-unique_headers);
-$CGI::DISABLE_UPLOADS = 1;
-$CGI::POST_MAX = 102_400;
use CGI::Session; #qw(-ip_match);
-use HTML::Template;
use Error qw(:try);
use lib("./lib");
@@ -35,7 +32,6 @@
use Affelio::misc::Time qw(get_timestamp get_expire_stamp);
use Affelio::misc::MyCrypt qw(msg_decrypt url_decode);
use Affelio::misc::NetMisc;
-use Affelio::SNS::Handshaker_c;
use Affelio::misc::WebInput;
debug_print("incoming.cgi: start.");
Index: affelio/outgoing.cgi
diff -u affelio/outgoing.cgi:1.10 affelio/outgoing.cgi:1.11
--- affelio/outgoing.cgi:1.10 Fri Dec 16 18:04:31 2005
+++ affelio/outgoing.cgi Sat Dec 17 12:02:06 2005
@@ -16,21 +16,17 @@
# 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.10 2005/12/16 09:04:31 slash5234 Exp $
+# $Id: outgoing.cgi,v 1.11 2005/12/17 03:02:06 slash5234 Exp $
use strict;
use lib("./extlib");
use CGI qw(-unique_headers);
-$CGI::DISABLE_UPLOADS = 1;
-$CGI::POST_MAX = 102_400;
use CGI::Session; #qw(-ip_match);
-use HTML::Template;
use Error qw(:try);
use lib("./lib");
use Affelio;
-use Affelio::SNS::Handshaker_c;
use Affelio::misc::CGIError;
use Affelio::misc::Debug;
use Affelio::misc::Time;
@@ -91,7 +87,7 @@
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");
+debug_print("outgoing.cgi: dest_URL=$dest_URL");
#########################################
# retrieve passAB
@@ -184,6 +180,7 @@
my $TMPL_FILE = "$af->{site__fs_root}/templates/$af->{site__template}/"
."owner_side/outgoing_warn.tmpl";
+ require HTML::Template;
my $tmpl = new HTML::Template( filename => $TMPL_FILE,
die_on_bad_params => 0);