#!/usr/bin/perl -Tw -I/usr/local/positive/Perl -I. use strict; use CGI qw/:standard/; use APR::Request::Cookie; use MIME::Base64; use POSIX (); use Pos::Webtop::webtopFormBuilder; use Digest::MD5::File qw(file_md5_hex); use Pos::Webtop::OcxLauncher; my $wtfb = webtopFormBuilder->new(); my $tb = Pos::Webtop::Toolbox->new(); my $client = $tb->getClient(); my $cgi = CGI->new; my $conf = new Config::General("/usr/local/positive/conf/PosPerl.conf"); my %config = $conf->getall; my $vpnConf = new Config::General('/usr/local/positive/conf/VpnDownload.conf'); my %vpnConfig = $vpnConf->getall; my $thisUrl = $config{thisUrl}; my $q = $cgi->param('q'); $q = "" unless( defined( $q ) && length( $q ) ); my $mode = $cgi->param('m'); $mode = "" unless( defined( $mode ) && length( $mode ) ); my $si = $wtfb->getClientSessionId(); if( length( $mode ) && $si == 0 || length( $si ) == 0 ) { exitNow(); } $client->setRestrictionSetId( tb=>$tb ); #if( defined( $q ) && ! defined( $f ) ) { # print "Content-Type: text/html\nCache-Control: no-cache\n\n # # ## # # # # # "; # # exit(); #} my $remoteAddr = $ENV{'REMOTE_ADDR'}; sub showSignonMessage { my $db = $tb->getWebtopDbWriter(); my $restrictionSetId = $client->setRestrictionSetId(tb=>$tb); my $userId = $client->getUserIdDB( db=> $db ); my( @msg ) = $db->query( sql => " SELECT title_text, message_text FROM pol_signon_messages AS psm JOIN user_signon_message AS usm ON psm.pol_signon_message_id = usm.pol_signon_message_id WHERE user_id = $userId AND restrict_set_id = $restrictionSetId " ); my( $cnt ) = $db->query( sql=> " SELECT COUNT(1) FROM client_sessions WHERE captive_portalized = 1 AND client_session_id = $si " ); if( scalar( @msg ) && $cnt > 0 ) { my( $title, $body) = @{ $msg[0] }; $body = HTML::Entities::encode($body); $body =~ s/_BR_/
/g; print "

$body
"; } if( ! scalar( @msg ) ) { $db->do( sql=> "UPDATE client_sessions SET captive_portalized = 0 WHERE client_session_id = $si" ); $db->commit(); } } sub checkCaptivePortalized { showSignonMessage(); } sub touchSession { my $db = $tb->getWebtopDbWriter(); $db->do( sql=> " UPDATE client_sessions SET touch_time = NOW() WHERE user_id = " . $client->getUserIdDB( db=> $db ) ); $db->commit(); } sub exitNow { my($issue) = @{{@_}}{qw/issue/}; warn "$config{'webtopRelease'}:$remoteAddr:exitNow():No session\n"; my $q = $config{'webtopTimedout'}; my $s = $config{'webtopLanding'}; print "Content-Type: text/html\nCache-Control: no-cache\n\n "; exit(); } sub strim { my($str) = @{{@_}}{qw/str/}; !defined $str and return undef; $str =~ s/^\s+//; $str =~ s/\s+$//; return $str; } sub deleteSession() { my $db = $tb->getWebtopDbWriter(); if( length( $si ) ) { $db->do( sql=> "DELETE FROM client_sessions WHERE client_session_id = $si" ); $db->commit(); } } # # End utilities # sub showRecent { my $db = $tb->getWebtopDbWriter(); print "
Recent

Nothing recent to show

"; } sub showBookmark { my( $restrictionSetId ) = @{{@_}}{qw/restrictionSetId/}; print "
Bookmarks
"; my $cbm = $config{'webtopGetCorporateBookmark'}; my $pbm = $config{'webtopGetPersonalBookmark'}; print " "; showBookmarkGroupModal(); showBookmarkModal(); } sub showFileshare { my( $restrictionSetId ) = @{{@_}}{qw/restrictionSetId/}; print "
Fileshares
"; my $cfs = $config{'webtopGetCorporateFileshare'}; my $pfs = $config{'webtopGetPersonalFileshare'}; print " "; showFileshareModal(); } sub showStopModal { print "

You are signed in elsewhere, please close this tab.
"; } sub showDisconnectModal { print "
"; } sub showPreDiagnostic { print "
"; } sub showDiagnostic { showPreDiagnostic(); print "
"; } sub showAclModal { print "
"; } sub showIdleTimoutModal { print "
"; } sub showBookmarkGroupModal { print "

Group is a required field

"; } sub showBookmarkModal { print "

Group is a required field

Name is a required field

URL is a required field

"; my $gbdd = $config{'webtopGetBookmarkGroup'}; print " "; } sub showFileshareModal { print "

Remote Location is a required field

"; } sub showTunnelModal { print "

"; } sub showConfirmModal { print "

Disconnect tunnel and close this window?
"; } sub showPreferenceModal { print "

Security

Current password is a required field

New password is a required field

Confirm password is a required field

"; } sub showDashboard { my $restrictionSetId = $client->getRestrictionSetId(); my $db = $tb->getWebtopDbWriter(); my $cmi = $client->getUserContentModules(); my @sortedKeys = sort { $cmi->{$a}->{'linkOrder'} cmp $cmi->{$b}->{'linkOrder'} } keys %{ $cmi }; print "
"; touchSession(); showRecent(); foreach ( @sortedKeys ) { my $class = $_; my $moduleName = $cmi->{$_}->{'moduleName'}; if( $moduleName eq "File Shares" ) { showFileshare( restrictionSetId=> $restrictionSetId ); } elsif( $moduleName eq "Intranet" ) { showBookmark( restrictionSetId=> $restrictionSetId ); } } my( $privateIpAddress ) = $db->query( sql=> " SELECT rawip32_to_dotted_quad(private_ip_address) FROM client_sessions WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " AND client_session_type_id = 4 "); my $msg = "Core security"; $msg = "Secure+ tunnel on $privateIpAddress" unless( ! length( $privateIpAddress ) ); print "

$msg

"; print "
"; showTunnelModal(); showConfirmModal(); showPreferenceModal(); } sub showHome { my $greeting = ""; my $db = $tb->getWebtopDbWriter(); my( $firstName ) = $db->query( sql=> "SELECT first_name FROM users WHERE user_id = " . $client->getUserIdDB( db=> $db ) ); if( length( $firstName ) ) { $firstName = " " . ucfirst( $firstName ) . ","; } else { $firstName = ","; } my( $hour ) = $db->query( sql=> "SELECT TO_CHAR(NOW(), 'hh24')" ); if( $hour > 0 && $hour < 12 ) { $greeting = "Good morning"; } elsif( $hour >= 12 && $hour < 18 ) { $greeting = "Good afternoon"; } else { $greeting = "Good evening"; } $greeting .= $firstName; print "
$greeting
I would like to...
"; } sub showVpnDownloadPage { my $db = $tb->getWebtopDbWriter(); my( @vpnDownloads ) = $db->query( sql => " SELECT can_download_vpn, can_download_l2tp_ios, can_download_l2tp_macosx FROM user_vpn_access WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " LIMIT 1 "); my( $canDownloadVpn, $canDownloadL2tpIos, $canDownloadL2tpMacosx ) = @{ $vpnDownloads[0] }; # # Disabling macOS and iOS until we modernize # $canDownloadL2tpIos = 0; $canDownloadL2tpMacosx = 0; if( $canDownloadVpn == 1 ) { my $macClientDmg = $config{macClientDmg}; my $modeText = "vpn"; my $windowsOS = ""; my $oem = $tb->getOem(); my $productName = $oem->getSetting(setting => 'vpnProductName'); my $productInstallPath = $oem->getSetting(setting => 'installerPath'); my $filePath = ""; my $fileSizeUnit = ""; my $site = ""; my $softwareBranch = 0; my $digest = 0; my $fileSize = 0; my @stat = (); my( @userSoftwareVersions ) = $db->query( sql=> " SELECT major_release_number, minor_release_number FROM user_software_versions AS usv JOIN software_products AS sp ON sp.software_product_id = usv.software_product_id JOIN software_releases AS sr ON sr.software_release_id = usv.software_release_id WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " AND sp.distribution_identifier = '$modeText'" ); my( $majorReleaseNumber, $minorReleaseNumber ) = @{ $userSoftwareVersions[0] }; if( $majorReleaseNumber == $vpnConfig{showWin10MajorVersion} && $minorReleaseNumber >= $vpnConfig{showWin10MinorVersion} ) { $windowsOS = "Windows® 10 and Windows® 11"; } else { $windowsOS = "Windows® 7 and Windows® 8.1"; } if( $productInstallPath =~ /vpn\-(.+)\// ) { $site = $0; $softwareBranch = $1; } my $pos = index( $productInstallPath, "downloads" ); if( $pos > 0 ) { $filePath = substr( $productInstallPath, $pos ); } else { $pos = index( $productInstallPath, "install" ); $filePath = substr( $productInstallPath, $pos ); } if( -e $filePath ) { @stat = stat $filePath; $fileSize = $stat[7]; my $i = 0; my @units = ("B", "KB", "MB", "GB"); for( @units ) { last if $fileSize < 1024; $fileSize /= 1024; $i++; } $fileSizeUnit = sprintf("%.2f %s", $fileSize, $units[$i]); $digest = file_md5_hex( $filePath ); } my( @version ) = $db->query(sql => " SELECT sr.major_release_number, sr.minor_release_number FROM user_software_versions AS usv, software_product_branches AS spb, software_releases AS sr WHERE spb.software_product_id = usv.software_product_id AND spb.software_branch_type_id = usv.software_branch_type_id AND sr.software_release_id = spb.software_release_id AND usv.software_product_id = 1 AND usv.user_id = " . $client->getUserIdDB( db=> $db ) . " "); my $initialDownload = ""; my( $downloadCount ) = $db->query( sql=> " SELECT COUNT(1) FROM user_enrollment_metrics WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " "); if( $downloadCount > 0 ) { ( $initialDownload ) = $db->query( sql=> " SELECT TO_CHAR(client_download_date, 'DD/MM/YYYY hh12:mi:ss AM') FROM user_enrollment_metrics WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " "); } $initialDownload = "Unknown" unless( length( $initialDownload ) > 0 ); print "
Compatible with $windowsOS

Product

Version

File Size

Checksum

Initial Download

Download Count

$productName

$softwareBranch

$fileSizeUnit

$digest

$initialDownload

$downloadCount

Windows® is a registered trademark of Microsoft Corporation
"; } #macOS® is a registered trademark of Apple Inc. if( $canDownloadVpn == 0 && $canDownloadL2tpIos == 0 && $canDownloadL2tpMacosx == 0 ) { print "
"; } deleteSession(); } sub showNetconDownloadPage { my $db = $tb->getWebtopDbWriter(); my( $canDownloadVpn ) = $db->query( sql => " SELECT can_download_vpn FROM user_vpn_access WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " LIMIT 1 "); if( $canDownloadVpn == 1 ) { my $modeText = "netcon"; my $windowsOS = ""; my( @userSoftwareVersions ) = $db->query( sql=> " SELECT major_release_number, minor_release_number FROM user_software_versions AS usv JOIN software_products AS sp ON sp.software_product_id = usv.software_product_id JOIN software_releases AS sr ON sr.software_release_id = usv.software_release_id WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " AND sp.distribution_identifier = '$modeText'" ); my( $majorReleaseNumber, $minorReleaseNumber ) = @{ $userSoftwareVersions[0] }; if( $majorReleaseNumber == $vpnConfig{showWin10NetconMajorVersion} && $minorReleaseNumber >= $vpnConfig{showWin10NetconMinorVersion} ) { $windowsOS = "Windows® 10, Windows® 11, Windows Server® 2016 and Windows Server® 2019"; } else { $windowsOS = "Windows® 7, Windows® 8.1, Windows Server® 2012 R2"; } my $oem = $tb->getOem(); my $productName = $oem->getSetting(setting => 'networkConnectorName'); my $productInstallPath = $oem->getSetting(setting => 'netconInstallerPath'); my $oemNetconInstallerFileName = $oem->getSetting(setting => 'oemNetconInstallerFileName'); my $filePath = ""; my $fileSizeUnit = ""; my $site = ""; my $digest = 0; my $fileSize = 0; my @stat = (); my $pos = index( $productInstallPath, "downloads" ); if( $pos > 0 ) { $filePath = substr( $productInstallPath, $pos ); } else { $pos = index( $productInstallPath, "install" ); $filePath = substr( $productInstallPath, $pos ); } if( -e $filePath ) { @stat = stat $filePath; $fileSize = $stat[7]; my $i = 0; my @units = ("B", "KB", "MB", "GB"); for( @units ) { last if $fileSize < 1024; $fileSize /= 1024; $i++; } $fileSizeUnit = sprintf("%.2f %s", $fileSize, $units[$i]); $fileSizeUnit = strim( str=> $fileSizeUnit ); $digest = file_md5_hex( $filePath ); $digest = strim( str=> $digest ); } my( @version ) = $db->query(sql => " SELECT sr.major_release_number, sr.minor_release_number FROM user_software_versions AS usv, software_product_branches AS spb, software_releases AS sr WHERE spb.software_product_id = usv.software_product_id AND spb.software_branch_type_id = usv.software_branch_type_id AND sr.software_release_id = spb.software_release_id AND usv.software_product_id = 1 AND usv.user_id = " . $client->getUserIdDB( db=> $db ) . " "); my $initialDownload = ""; my( $downloadCount ) = $db->query( sql=> " SELECT COUNT(1) FROM user_enrollment_metrics WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " "); if( $downloadCount > 0 ) { ( $initialDownload ) = $db->query( sql=> " SELECT TO_CHAR(client_download_date, 'DD/MM/YYYY hh12:mi:ss AM') FROM user_enrollment_metrics WHERE user_id = " . $client->getUserIdDB( db=> $db ) . " "); } $initialDownload = "Unknown" unless( length( $initialDownload ) > 0 ); print "
Compatible with $windowsOS

Product

Version

File Size

Checksum

Initial Download

Download Count

$productName

$majorReleaseNumber . $minorReleaseNumber

$fileSizeUnit

$digest

$initialDownload

$downloadCount

Windows® is a registered trademark of Microsoft Corporation
"; warn "DEBUG: productInstallPath=$productInstallPath\n"; } deleteSession(); } $wtfb->showHeader( request=> $q, mode=> $mode ); if( $mode eq $config{'webtopNetconDownload'} ) { showNetconDownloadPage(); } elsif( $mode eq $config{'webtopVPNDownload'} ) { showVpnDownloadPage(); } else { my $referrer = $ENV{'HTTP_REFERER'}; showStopModal(); showDashboard(); checkCaptivePortalized(); showDisconnectModal(); showIdleTimoutModal(); showAclModal(); showDiagnostic(); } $wtfb->showFooter(); exit(0);