diff --git a/data/System/DebugLogPlugin.txt b/data/System/DebugLogPlugin.txt index 9af5942..0ca9790 100644 --- a/data/System/DebugLogPlugin.txt +++ b/data/System/DebugLogPlugin.txt @@ -42,7 +42,7 @@ Many thanks to the following sponsors for supporting this work: | License: | [[http://www.gnu.org/licenses/gpl.html][GPL (Gnu General Public License)]] | | Plugin Version: | 0 (20 Apr 2009) | | Change History: |   | -| 20 Apr 2009 | Ported to Foswiki -- Foswiki:Main.WillNorris | +| 20 Apr 2009 | Ported to Foswiki -- Foswiki:Main.WillNorris and Foswiki:Main.GilmarSantosJr | | Dependencies: | None | | Plugin Home: | http://foswiki.org/Extensions/DebugLogPlugin | | Support: | http://foswiki.org/Support/DebugLogPlugin | diff --git a/lib/Foswiki/Plugins/DebugLogPlugin.pm b/lib/Foswiki/Plugins/DebugLogPlugin.pm index cf754f7..93d520e 100644 --- a/lib/Foswiki/Plugins/DebugLogPlugin.pm +++ b/lib/Foswiki/Plugins/DebugLogPlugin.pm @@ -197,14 +197,14 @@ sub writeTEXT { $Current_web.'.'.$Current_topic, $Current_user, $session, Foswiki::Func::formatTime(time(), '$ye:$mo:$day:$hours:$minutes:$seconds', 'gmtime'), rand() )); - my $tickfile = '>'.$dir.'/'.$file; + my $tickfile = $dir.'/'.$file; Foswiki::Func::writeDebug( "$tickfile" ) if $debug; $tickfile =~ /^(.*)$/; #TODO: need to remove this and untaint at the right source $tickfile = $1; - open( TICK, $tickfile); + open( TICK, '>', $tickfile) or warn $!; Foswiki::Func::getCgiQuery()->save(\*TICK); #save the CGI query params print TICK "\n==============\n"; print TICK $text; #a nothing :)