Tadashi Okoshi
slash****@users*****
2006年 6月 4日 (日) 18:11:55 JST
Index: affelio/lib/AffelioApp.pm
diff -u affelio/lib/AffelioApp.pm:1.27 affelio/lib/AffelioApp.pm:1.28
--- affelio/lib/AffelioApp.pm:1.27 Sun Jun 4 17:20:59 2006
+++ affelio/lib/AffelioApp.pm Sun Jun 4 18:11:55 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: AffelioApp.pm,v 1.27 2006/06/04 08:20:59 slash5234 Exp $
+# $Id: AffelioApp.pm,v 1.28 2006/06/04 09:11:55 slash5234 Exp $
package AffelioApp;
{
@@ -28,6 +28,7 @@
use lib("../lib");
use Affelio;
use Affelio::misc::Debug;
+ use Affelio::misc::NetMisc;
use Affelio::exception::DBException;
######################################################################
@@ -137,6 +138,8 @@
debug_print("AffelioApp::new: visitor_nickname= [$visitor_nickname]");
debug_print("AffelioApp::new: visitor_afid= [$visitor_afid]");
+ debug_print("ENV:" . $self->get_env_info("script_uri"));
+
############################
#Am I in the owner mode?
############################
@@ -300,6 +303,19 @@
}
######################################################################
+ #get_env_info
+ ######################################################################
+ sub get_env_info{
+ my $self = shift;
+ my $type = shift;
+
+ if($type eq "script_uri"){
+ return(Affelio::misc::NetMisc::get_accessed_uri);
+ }
+ }
+
+
+ ######################################################################
#get_owner_info
######################################################################
sub get_owner_info{