Tadashi Okoshi
slash****@users*****
2005年 12月 10日 (土) 11:22:20 JST
Index: affelio/incoming.cgi
diff -u affelio/incoming.cgi:1.10 affelio/incoming.cgi:1.11
--- affelio/incoming.cgi:1.10 Sat Dec 10 09:46:28 2005
+++ affelio/incoming.cgi Sat Dec 10 11:22:20 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.10 2005/12/10 00:46:28 slash5234 Exp $
+# $Id: incoming.cgi,v 1.11 2005/12/10 02:22:20 slash5234 Exp $
use strict;
@@ -70,6 +70,7 @@
debug_print("incoming.cgi: forward_id =$forward_id");
my $dest_URL = $wi->PTN_URL($q->url_param("dest_url"));
+debug_print("incoming.cgi: dest_URL =$dest_URL");
############################################################################
#Load Friend manager and get passAB
@@ -133,7 +134,11 @@
#error $errormsg;
debug_print("incoming.cgi: ERROR! : $errormsg");
debug_print("incoming.cgi: Just go to my Affelio without any cookie.");
- print $q->redirect( -url => $af->{site__web_root});
+ if($dest_URL ne ""){
+ print $q->redirect( -url => $dest_URL);
+ }else{
+ print $q->redirect( -url => $af->{site__web_root});
+ }
}
############################################################################
@@ -168,7 +173,11 @@
debug_print("incoming.cgi: OK. You already have a cookie, and");
debug_print("incoming.cgi: the existing session has higher right!");
debug_print("incoming.cgi: end. Forwarding to my homepage.");
- print $q->redirect( -url => $af->{site__web_root});
+ if($dest_URL ne ""){
+ print $q->redirect( -url => $dest_URL);
+ }else{
+ print $q->redirect( -url => $af->{site__web_root});
+ }
}else{
#########################