Tadashi Okoshi
slash****@users*****
2006年 4月 30日 (日) 20:26:01 JST
Index: affelio/lib/Affelio/App/Standalone/Public/Incoming.pm
diff -u affelio/lib/Affelio/App/Standalone/Public/Incoming.pm:1.1 affelio/lib/Affelio/App/Standalone/Public/Incoming.pm:1.2
--- affelio/lib/Affelio/App/Standalone/Public/Incoming.pm:1.1 Tue Mar 7 23:39:10 2006
+++ affelio/lib/Affelio/App/Standalone/Public/Incoming.pm Sun Apr 30 20:26:01 2006
@@ -14,7 +14,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.pm,v 1.1 2006/03/07 14:39:10 slash5234 Exp $
+# $Id: Incoming.pm,v 1.2 2006/04/30 11:26:01 slash5234 Exp $
package Affelio::App::Standalone::Public::Incoming;
{
@@ -80,8 +80,12 @@
$referrer =~ s|/$||;
debug_print("StandAlone::incoming.cgi: forward_id =$forward_id");
-my $dest_URL = $wi->PTN_URL($q->url_param("dest_url"));
-debug_print("StandAlone::incoming.cgi: dest_URL =$dest_URL");
+$ENV{'QUERY_STRING'} =~ /dest_url=(.*)/;
+my $dest_URL = $1;
+$dest_URL =~ s/\&forward_id=(.*)//;
+$dest_URL =~ s/\&referrer=(.*)//;
+$dest_URL =~ s|/$||;
+debug_print("StandAlone::incoming.cgi: dest_URL=$dest_URL");
############################################################################
#Load Friend manager and get passAB
Index: affelio/lib/Affelio/App/Standalone/Public/Outgoing.pm
diff -u affelio/lib/Affelio/App/Standalone/Public/Outgoing.pm:1.1 affelio/lib/Affelio/App/Standalone/Public/Outgoing.pm:1.2
--- affelio/lib/Affelio/App/Standalone/Public/Outgoing.pm:1.1 Tue Mar 7 23:39:10 2006
+++ affelio/lib/Affelio/App/Standalone/Public/Outgoing.pm Sun Apr 30 20:26:01 2006
@@ -14,7 +14,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.pm,v 1.1 2006/03/07 14:39:10 slash5234 Exp $
+# $Id: Outgoing.pm,v 1.2 2006/04/30 11:26:01 slash5234 Exp $
package Affelio::App::Standalone::Public::Outgoing;
{
@@ -99,10 +99,18 @@
#########################################
# Retrieve destination URL
- my $dest_URL = $wi->PTN_URL($q->param("dest_url"));
+
+ $ENV{'QUERY_STRING'} =~ /dest_url=(.*)/;
+ my $dest_URL = $1;
+ $dest_URL =~ s/\&dest_url2=(.*)//;
$dest_URL =~ s|/$||;
- my $dest_URL2 = $wi->PTN_URL($q->param("dest_url2"));
debug_print("StandAlone::outgoing.cgi: dest_URL=$dest_URL");
+
+ $ENV{'QUERY_STRING'} =~ /dest_url2=(.*)/;
+ my $dest_URL2 = $1;
+ $dest_URL2 =~ s/\&dest_url=(.*)//;
+ $dest_URL2 =~ s|/$||;
+ debug_print("StandAlone::outgoing.cgi: dest_URL2=$dest_URL2");
#########################################
# retrieve passAB