#!/usr/bin/perl -I../../../..
package Pos::Webtop::Web::OEM::20;
use strict;
use Pos::Webtop::Toolbox();
use Pos::Webtop::OcxLauncher();
# ---------------------------------------------------------------
# OEM #20
# EarthLink HTML Framework
# ---------------------------------------------------------------
sub new
{
my $this = shift;
my $class = ref($this) || $this;
my $self;
my ($oemId) = @{{@_}}{qw/oemId/};
if ( not defined $self )
{
$self = {};
bless($self,$class);
}
$self->{'oemId'} = $oemId;
return $self;
}
sub setOemInformation {
my $self = shift;
my ($id, $name, $rebrandName, $short, $vpnProductName, $webtopProductName, $customerServiceUrl, $customerServicePhone, $learnMoreUrl, $installerPath, $webtopUrl, $gettingStartedUrl, $helpUrl, $supportEmail, $domain, $webtopTutorialUrl, $clientTutorialUrl, $pmTutorialUrl, $oemWebtopContactUrl, $oemNetconInstallerPath, $oemNetworkConnectorName, $webtopSupportToolLink, $webtopInstallerPath) = @{{@_}}{qw/id name rebrandName short vpnProductName webtopProductName customerServiceUrl customerServicePhone learnMoreUrl installerPath webtopUrl gettingStartedUrl helpUrl supportEmail domain webtopTutorialUrl clientTutorialUrl pmTutorialUrl webtopContactUrl netconInstallerPath networkConnectorName webtopSupportToolLink webtopInstallerPath/};
$self->{'id'} = $id;
$self->{'name'} = $name;
$self->{'rebrandName'} = $rebrandName;
$self->{'short'} = $short;
$self->{'vpnProductName'} = $vpnProductName;
$self->{'webtopProductName'} = $webtopProductName;
$self->{'customerServiceUrl'} = $customerServiceUrl;
$self->{'customerServicePhone'} = $customerServicePhone;
$self->{'learnMoreUrl'} = $learnMoreUrl;
$self->{'installerPath'} = $installerPath;
$self->{'webtopUrl'} = $webtopUrl;
$self->{'gettingStartedUrl'} = $gettingStartedUrl;
$self->{'helpUrl'} = $helpUrl;
$self->{'supportEmail'} = $supportEmail;
$self->{'domain'} = $domain;
$self->{'webtopTutorialUrl'} = $webtopTutorialUrl;
$self->{'clientTutorialUrl'} = $clientTutorialUrl;
$self->{'pmTutorialUrl'} = $pmTutorialUrl;
$self->{'webtopContactUrl'} = $oemWebtopContactUrl;
$self->{'netconInstallerPath'} = $oemNetconInstallerPath;
$self->{'networkConnectorName'} = $oemNetworkConnectorName;
$self->{'webtopSupportToolLink'} = $webtopSupportToolLink;
$self->{'webtopInstallerPath'} = $webtopInstallerPath;
return 1;
}
sub getSetting {
my $self = shift;
my $setting = @{{@_}}{qw/setting/};
return $self->{$setting};
}
sub printHtmlHeader
{
my $self = shift;
my ($title,$isLogin) = @{{@_}}{qw/title isLogin/};
my $tb;
my $launcherJs = "";
if (!$isLogin)
{
$tb = Pos::Webtop::Toolbox->new();
$launcherJs = Pos::Webtop::OcxLauncher::getLauncherHtml( tb=>$tb );
}
if (not defined($title)) {
$title = "";
}
my $oemStylesheetFileVersion = Pos::Webtop::Web::OEMLoader::getStylesheetFileVersion(oemId=> $self->{'oemId'});
# print "Content-type: text/html\n\n
#
#
#
#
# $title
#
#
#
# ";
print "Content-type: text/html\n\n
" . HTML::Entities::encode($title) . "
" . $launcherJs . "
";
}
sub printBodyHeader
{
my $self = shift;
my ($onLoad) = @{{@_}}{qw/onLoad/};
print "
";
}
sub printBodyContent
{
my $self = shift;
my ($mode,$desc,$b1) = @{{@_}}{qw/mode desc b1/};
if( defined $mode and $mode eq 'vpn')
{
print "
Installing the EarthLink VPNLink client
Please sign on to download the EarthLink VPNLink client software.
VPNLink
Pleas enter the Username and Password you were given by
your company's VPN administrator and Sign On to begin the
download process.
VPNLink Sign On
";
}
elsif( defined $mode and $mode eq 'netcon' )
{
print "
Installing the EarthLink Site Connector
Please sign on to download the EarthLink Site Connector software.
VPNLink
Pleas enter the Username and Password you were given by
your company's VPN administrator and Sign On to begin the
download process.
VPNLink Sign On
";
}
else
{
print "
" . $self->getSetting( setting=> 'webtopProductName' ) . "
Away from a computer with VPNLink installed? Sign on to
WebLink instead. WebLink lets you access your company's
network securely using a standard Web browser.
" . $self->getSetting( setting=> 'webtopProductName') . " Sign On
";
}
#
#
#
}
sub printPasswordHelp
{
my $self = shift;
print "
";
}
sub printBodyContentFooter
{
my $self = shift;
my ($err,$b1,$mode) = @{{@_}}{qw/err b1 mode/};
# This is closing the signon table because earthlink wanted text to show
# up under the buttons in the same cell so i close it here and you can add stuff where you want
print "
For complete functionality, IE5.5+ with ActiveX or Safari Mac with Java is required.
";
if( defined $mode and $mode eq 'vpn')
{
print "
";
}
else
{
print "
If you do not know your EarthLink VPN username and password,
contact your company's VPN administrator.
More Services
Learn more about EarthLink business and consumer
Internet services.
Note: Please do not contact
EarthLink directly for support.
To ensure the safety of your
company's network, all
support requests must come
from your company's VPN
administrator or the billing
contact on file with EarthLink.
";
}
if ( defined $err )
{
print "$err";
}
}
sub printBodyFooter
{
my $self = shift;
print "
![\"Password](\"LocalWebLib/OEM/20/password_help.png\")
