fix warnings:

wiki.pl: Use of uninitialized value $UseModWiki::UserID in substitution (s///) at /var/www/cgi-bin/wiki.pl line 450.
wiki.pl: Use of uninitialized value $UseModWiki::UserID in numeric lt (<) at /var/www/cgi-bin/wiki.pl line 451.

warnings on normal page view
This commit is contained in:
Markus Lude
2017-10-28 19:06:16 +02:00
parent 19ad47ff11
commit 6a64c22e12

View File

@@ -446,7 +446,7 @@ sub InitCookie {
undef $q->{'.cookies'}; # Clear cache if it exists (for SpeedyCGI)
%UserData = (); # Fix for persistent environments.
%UserCookie = $q->cookie($CookieName);
$UserID = $UserCookie{'id'};
$UserID = $UserCookie{'id'} || 0;
$UserID =~ s/\D//g; # Numeric only
if ($UserID < 200) {
$UserID = 111;