Tadashi Okoshi
slash****@users*****
2006年 7月 3日 (月) 11:02:35 JST
Index: affelio/lib/Affelio/misc/Debug.pm
diff -u affelio/lib/Affelio/misc/Debug.pm:1.12 affelio/lib/Affelio/misc/Debug.pm:1.13
--- affelio/lib/Affelio/misc/Debug.pm:1.12 Wed Mar 22 18:15:28 2006
+++ affelio/lib/Affelio/misc/Debug.pm Mon Jul 3 11:02:35 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: Debug.pm,v 1.12 2006/03/22 09:15:28 slash5234 Exp $
+# $Id: Debug.pm,v 1.13 2006/07/03 02:02:35 slash5234 Exp $
package Affelio::misc::Debug;
{
@@ -23,29 +23,30 @@
@Affelio::misc::Debug::EXPORT = qw (debug_print);
sub debug_print{
- my ($msg)= @_;
-####################
-# return;
-####################
- chomp ($msg);
- $msg .= "\n";
- if($msg){
- my $filename="";
+ if( (defined($ENV{DEBUG}))
+ && ($ENV{DEBUG} ne "") ){
- #SECURITY |;"
- if(defined($ENV{'SCRIPT_NAME'})){
- $ENV{'SCRIPT_NAME'} =~ /([^\|\;\"]*)/;
- $filename = $1;
+ my ($msg)= @_;
+ chomp ($msg);
+ $msg .= "\n";
+ if($msg){
+ my $filename="";
- $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);
+ #SECURITY |;"
+ 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);
+ }
}
}
}