Tadashi Okoshi
slash****@users*****
2006年 6月 8日 (木) 15:03:32 JST
Index: affelio/lib/AffelioApp.pm
diff -u affelio/lib/AffelioApp.pm:1.30 affelio/lib/AffelioApp.pm:1.31
--- affelio/lib/AffelioApp.pm:1.30 Thu Jun 8 00:07:13 2006
+++ affelio/lib/AffelioApp.pm Thu Jun 8 15:03:32 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.30 2006/06/07 15:07:13 slash5234 Exp $
+# $Id: AffelioApp.pm,v 1.31 2006/06/08 06:03:32 slash5234 Exp $
package AffelioApp;
{
@@ -58,7 +58,7 @@
my $my_af_url = $ENV{FARM_WEB_TOP} . "/$tmp_a/" . $ENV{REDIRECT_AF_USERNAME} . "/apps/";
$my_af_url =~ s|([^:])//|$1/|g; #Translate "//" to "/"
- $install_name = $ENV{SCRIPT_URI};
+ $install_name = get_env_info("", "script_uri");
$install_name =~ s|([^:])//|$1/|g; #Translate "//" to "/"
$install_name =~ s|\Q$my_af_url\E||g; #Distill later than "apps/"
$install_name =~ s|(.*?)/(.*)|$1|; #Distill only app dir name.