#!/usr/bin/perl -I../../../.. package Pos::Webtop::Web::OEM::28; use strict; use Pos::Webtop::Toolbox(); use Pos::Webtop::OcxLauncher(); # --------------------------------------------------------------- # OEM #28 # 7 Medical Systems HTML Framework # not really a oem...only a customer # --------------------------------------------------------------- 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 7s Secure Remote Access Client

Please sign on to download the 7s Secure Remote Access client software.



"; } elsif( defined $mode and $mode eq 'netcon' ) { print "
Installing the Positive Networks Network Connector

Please sign on to download the Positive Networks Network Connector software.



7s Secure Remote Access VPN
 Pleas enter the Username and Password you were given by
your company's VPN administrator and Sign On to begin the
download process.
7s Secure Remote Access VPN Sign On
"; } else { print "


Network Connector
 Pleas enter the Username and Password you were given by
your company's VPN administrator and Sign On to begin the
download process.
Network Connector Sign On
"; } #
" . $self->getSetting( setting=> 'webtopProductName' ) . "
 Please enter the Username and Password provided by
your company's VPN administrator and Sign On to begin
the download process.
" . $self->getSetting( setting=> 'webtopProductName') . " Sign On
# # } sub printPasswordHelp { my $self = shift; print " \"Password "; } 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 ( defined $err ) { print "$err"; } } sub printBodyFooter { my $self = shift; print "
7 Medical Systems. 7s Secure Remote Access VPN powered by Positive Networks.
Copyright © 2002-2008 Positive Networks, Inc. All Rights Reserved.
7 Medical Systems and the 7 Medical Systems logo are registered trademarks or trademarks of 7 Medical Systems, LLC.
"; } sub printHtmlFooter { my $self = shift; print " "; } sub getMainHtmlHeader { my $self = shift; my ($title,$menu,$smenu,$wmenu,$navBar,$onLoad) = @{{@_}}{qw/title menu smenu wmenu navBar onLoad/}; if (not defined($title)) { $title = ""; } my $oemStylesheetFileVersion = Pos::Webtop::Web::OEMLoader::getStylesheetFileVersion(oemId=> $self->{'oemId'}); my $ret = "Content-type: text/html\n\n " . HTML::Entities::encode($title) . "

 
"; if (defined($menu)) { $ret .= "
" . (defined($wmenu) ? "$wmenu |" : "" ) . "$menu \ \  $smenu

"; } else { $ret .= "
"; } return $ret; } sub getMainHtmlFooter { my $self = shift; my $ret .= "
7 Medical Systems. 7s Secure Remote Access VPN powered by Positive Networks.
Copyright © 2002-2008 Positive Networks, Inc. All Rights Reserved.
7 Medical Systems and the 7 Medical Systems logo are registered trademarks or trademarks of 7 Medical Systems, LLC.
"; return $ret; } 1;