Item1476: a little enhancement and history update

git-svn-id: http://svn.foswiki.org/trunk/DebugLogPlugin@3573 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Apr 20, 2009 · 1424e87 · 1424e87
1 parent 1d9cc91
commit 1424e87
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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: | <!-- versions below in reverse order -->&nbsp; |
-|  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
@@ -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 :)