diff -ruN smeserver-support-2.4.0.old/root/sbin/e-smith/console-menu-items/support.pl smeserver-support-2.4.0/root/sbin/e-smith/console-menu-items/support.pl --- smeserver-support-2.4.0.old/root/sbin/e-smith/console-menu-items/support.pl 1969-12-31 16:00:00.000000000 -0800 +++ smeserver-support-2.4.0/root/sbin/e-smith/console-menu-items/support.pl 2014-03-16 16:45:43.000000000 -0700 @@ -0,0 +1,44 @@ +package esmith::console::support; +use strict; +use warnings; +use esmith::console; +use Locale::gettext; + +sub new +{ + my $class = shift; + my $self = { + name => gettext('View support and licensing information'), + order => 60, + }; + bless $self, $class; + return $self; +} + +sub name +{ + return $_[0]->{name}; +} + +sub order +{ + return $_[0]->{order}; +} + +sub doit +{ + #------------------------------------------------------------ + # SUPPORT: + #------------------------------------------------------------ + my ($self, $console, $db) = @_; + my $licenseFile = esmith::util::getLicenseFile(); + my ($rc, $choice) = $console->textbox + ( + title => gettext('Support and licensing information'), + file => $licenseFile, + ); + return; +} + +return esmith::console::support->new; +