Tadashi Okoshi
slash****@users*****
2005年 6月 30日 (木) 15:48:30 JST
Index: affelio/lib/Affelio/misc/Debug.pm diff -u affelio/lib/Affelio/misc/Debug.pm:1.3 affelio/lib/Affelio/misc/Debug.pm:1.4 --- affelio/lib/Affelio/misc/Debug.pm:1.3 Sat Jun 25 21:14:08 2005 +++ affelio/lib/Affelio/misc/Debug.pm Thu Jun 30 15:48:30 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: Debug.pm,v 1.3 2005/06/25 12:14:08 slash5234 Exp $ +# $Id: Debug.pm,v 1.4 2005/06/30 06:48:30 slash5234 Exp $ package Affelio::misc::Debug; { @@ -21,18 +21,20 @@ my $filename=""; #SECURITY |;" - $ENV{'SCRIPT_NAME'} =~ /([^\|\;\"]*)/; - $filename = $1; - - $filename =~ s/\//\_/g; - $filename =~ s/^\_//g; - $filename =~ s/\~//g; - $filename =~ s/\_bin\_.*//g; - $filename =~ s/\_[a-zA-Z]*\.cgi$//g; - open(OUT, ">> /tmp/af_$filename"); - - print OUT "$$: ", $msg; - close(OUT); + if(defined($ENV{'SCRIPT_NAME'})){ + $ENV{'SCRIPT_NAME'} =~ /([^\|\;\"]*)/; + $filename = $1; + + $filename =~ s/\//\_/g; + $filename =~ s/^\_//g; + $filename =~ s/\~//g; + $filename =~ s/\_bin\_.*//g; + $filename =~ s/\_[a-zA-Z]*\.cgi$//g; + open(OUT, ">> /tmp/af_$filename"); + + print OUT "$$: ", $msg; + close(OUT); + } } } }
