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	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'},