45 lines
835 B
Perl
45 lines
835 B
Perl
|
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;
|
||
|
|
|