[TWiki-Dev] [SVN] PeterThoeny r21120 - twiki/branches/TWikiRelease05x00/RecentVisitorPlugin/lib/TWiki/Plugins

[<de...@de...>]

Author: PeterThoeny
Date: 2011-05-01 14:46:23 -0500 (Sun, 01 May 2011)
New Revision: 21120
Trac url: http://develop.twiki.org/trac/changeset/21120

Modified:
   twiki/branches/TWikiRelease05x00/RecentVisitorPlugin/lib/TWiki/Plugins/RecentVisitorPlugin.pm
Log:
Item6701: Fix small warning issue if plugin is run by a shell script

Modified: twiki/branches/TWikiRelease05x00/RecentVisitorPlugin/lib/TWiki/Plugins/RecentVisitorPlugin.pm
===================================================================
--- twiki/branches/TWikiRelease05x00/RecentVisitorPlugin/lib/TWiki/Plugins/RecentVisitorPlugin.pm	2011-05-01 19:45:27 UTC (rev 21119)
+++ twiki/branches/TWikiRelease05x00/RecentVisitorPlugin/lib/TWiki/Plugins/RecentVisitorPlugin.pm	2011-05-01 19:46:23 UTC (rev 21120)
@@ -1,6 +1,6 @@
 # Plugin for TWiki Enterprise Collaboration Platform, http://TWiki.org/
 #
-# Copyright (C) 2001-2011 Peter Thoeny, pe...@th...
+# Copyright (C) 2001-2011 Peter Thoeny, peter[at]thoeny.org
 # Copyright (C) 2011 TWiki Contributors. All Rights Reserved.
 # TWiki Contributors are listed in the AUTHORS file in the root of
 # this distribution. NOTE: Please extend that file, not this notice.
@@ -30,7 +30,7 @@
     );
 
 $VERSION = '$Rev$';
-$RELEASE = '2011-02-03';
+$RELEASE = '2011-05-01';
 
 # One line description, is shown in the %TWIKIWEB%.TextFormattingRules topic:
 $SHORTDESCRIPTION = 'Show recent visitors to a TWiki site';
@@ -57,7 +57,7 @@
 
     TWiki::Func::registerTagHandler( 'RECENTVISITOR', \&_RECENTVISITOR );
 
-    _recordVisitor( $loginUser ) unless( $loginUser =~ /(TWikiGuest|guest)/ );
+    _recordVisitor( $loginUser ) if( $loginUser && $loginUser !~ /^(TWikiGuest|guest)/ );
 
     # Plugin correctly initialized
     return 1;