smeserver-userpanel/contribs8/smeserver-userpanel-0.9_telnet_unitialized_values.patch

diff -Nur smeserver-userpanel-0.9.old/root/usr/lib/perl5/site_perl/esmith/cgi5.pm smeserver-userpanel-0.9/root/usr/lib/perl5/site_perl/esmith/cgi5.pm
--- smeserver-userpanel-0.9.old/root/usr/lib/perl5/site_perl/esmith/cgi5.pm     2014-08-22 20:35:35.703544729 +0200
+++ smeserver-userpanel-0.9/root/usr/lib/perl5/site_perl/esmith/cgi5.pm 2014-08-22 20:36:39.364635943 +0200
@@ -128,8 +128,8 @@
                           $q->h5 ('Warning: you have not yet changed the default system password.'));
        }
 
-       my $TelnetAccess = db_get_prop($confref, 'telnet', 'access');
-        my $TelnetMode = db_get_prop($confref, 'telnet', 'status');
+       my $TelnetAccess = db_get_prop($confref, 'telnet', 'access') || '';
+        my $TelnetMode = db_get_prop($confref, 'telnet', 'status') || '';
        if ($TelnetAccess eq 'public' && $TelnetMode eq 'enabled')
        {
            print $q->div ({-STYLE => 'color: #FF3E00'},
1	stephdl	1.1	diff -Nur smeserver-userpanel-0.9.old/root/usr/lib/perl5/site_perl/esmith/cgi5.pm smeserver-userpanel-0.9/root/usr/lib/perl5/site_perl/esmith/cgi5.pm
2			--- smeserver-userpanel-0.9.old/root/usr/lib/perl5/site_perl/esmith/cgi5.pm 2014-08-22 20:35:35.703544729 +0200
3			+++ smeserver-userpanel-0.9/root/usr/lib/perl5/site_perl/esmith/cgi5.pm 2014-08-22 20:36:39.364635943 +0200
4			@@ -128,8 +128,8 @@
5			$q->h5 ('Warning: you have not yet changed the default system password.'));
6			}
7
8			- my $TelnetAccess = db_get_prop($confref, 'telnet', 'access');
9			- my $TelnetMode = db_get_prop($confref, 'telnet', 'status');
10			+ my $TelnetAccess = db_get_prop($confref, 'telnet', 'access') \|\| '';
11			+ my $TelnetMode = db_get_prop($confref, 'telnet', 'status') \|\| '';
12			if ($TelnetAccess eq 'public' && $TelnetMode eq 'enabled')
13			{
14			print $q->div ({-STYLE => 'color: #FF3E00'},