Tadashi Okoshi
slash****@users*****
2005年 6月 28日 (火) 02:50:26 JST
Index: affelio/bin/loginexec.cgi diff -u affelio/bin/loginexec.cgi:1.1.1.1 affelio/bin/loginexec.cgi:1.2 --- affelio/bin/loginexec.cgi:1.1.1.1 Tue Jun 14 12:53:29 2005 +++ affelio/bin/loginexec.cgi Tue Jun 28 02:50:26 2005 @@ -6,7 +6,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: loginexec.cgi,v 1.1.1.1 2005/06/14 03:53:29 slash5234 Exp $ +# $Id: loginexec.cgi,v 1.2 2005/06/27 17:50:26 slash5234 Exp $ use strict; @@ -39,11 +39,12 @@ my $q = new CGI; my $username = $q->param("username"); my $password = $q->param("password"); +my $forward_URL = $q->param("forward_URL"); debug_print(" username = $username\n"); debug_print(" password = $password\n"); debug_print(" $af->{site__password}\n"); - +debug_print(" $forward_URL\n"); if( (verify_password($password, $af->{site__password}) > 0) && ($username eq $af->{site__username}) ){ @@ -105,7 +106,12 @@ #Print output -print $q->redirect( -url => "$af->{site__web_root}/admin.cgi", - -cookie => $cookie); +if($forward_URL ne ""){ + print $q->redirect( -url => $forward_URL, + -cookie => $cookie); +}else{ + print $q->redirect( -url => "$af->{site__web_root}/admin.cgi", + -cookie => $cookie); +} exit(1);
