Compare commits
	
		
			5 Commits
		
	
	
		
			11_0_0-47_
			...
			11_0_0-51_
		
	
	| Author | SHA1 | Date | |
|---|---|---|---|
| d776f20736 | |||
| a4668da720 | |||
| 7ad224998c | |||
| 3070e0656c | |||
| 642d013437 | 
| @@ -68,9 +68,18 @@ color: #8ebe43; | ||||
| background-color: #8ebe43; | ||||
|     } | ||||
|        | ||||
| /* flag container no flag */ | ||||
| /* flag container*/ | ||||
| #flag-container span { | ||||
|   font-size: 24px; | ||||
| 	font-size: 24px; | ||||
|     display: flex;                     /* Allows for easy centering */ | ||||
|     justify-content: center;           /* Center horizontally */ | ||||
|     align-items: center;               /* Center vertically */ | ||||
|     width: 100%;                       /* Full width of parent */ | ||||
|     height: 24px;                      /* Set a fixed height */ | ||||
|     border: 1px solid #ccc;            /* Light gray border */ | ||||
|     border-radius: 5px;                /* Rounded corners */ | ||||
|     cursor: default;                   /* Prevent text cursor */ | ||||
|  | ||||
| } | ||||
|  | ||||
| .fallback-box { | ||||
| @@ -84,4 +93,4 @@ background-color: #8ebe43; | ||||
| } | ||||
|  | ||||
| HERE | ||||
| } | ||||
| } | ||||
| @@ -275,7 +275,19 @@ a.menu-title { | ||||
|     left: 2px; | ||||
| } | ||||
|  | ||||
| .roundcube div { | ||||
| 	height:462px; | ||||
| 	width:85%; | ||||
| 	margin-bottom:1%; | ||||
| } | ||||
|  | ||||
| .roundcube object { | ||||
| 	margin-top:1%; | ||||
| 	height:95%; | ||||
| 	width:100%; | ||||
| } | ||||
|  | ||||
|  | ||||
| /*end*/ | ||||
| EOF | ||||
| } | ||||
| } | ||||
|   | ||||
| @@ -17,6 +17,7 @@ use Mojo::Home; | ||||
|  | ||||
| use DBM::Deep; | ||||
| use Mojo::JWT; | ||||
| use POSIX qw(strftime); | ||||
|  | ||||
| use Mojolicious::Plugin::Config; | ||||
| #use Mojolicious::Plugin::I18N; | ||||
| @@ -27,8 +28,10 @@ use SrvMngr::Model::Main; | ||||
|  | ||||
| use SrvMngr::Plugin::WithoutCache; | ||||
|  | ||||
| use esmith::I18N; | ||||
|  | ||||
| #this is overwrittrn with the "release" by the spec file - release can be "99.el8.sme" | ||||
| our $VERSION = '';  | ||||
| our $VERSION = '51.el8.sme';  | ||||
| #Extract the release value | ||||
| if ($VERSION =~ /^(\d+)/) { | ||||
|     $VERSION = $1;  # $1 contains the matched numeric digits | ||||
| @@ -43,6 +46,7 @@ our @EXPORT_OK = qw( | ||||
| 	getNavigation ip_number is_normal_password email_simple | ||||
| 	mac_address_or_blank mac_address ip_number_or_blank | ||||
| 	lang_space get_routes_list subnet_mask get_reg_mask | ||||
| 	gen_locale_date_string get_public_ip_address | ||||
| 	); | ||||
|  | ||||
| has home => sub { | ||||
| @@ -784,6 +788,29 @@ sub is_normal_password { | ||||
|     } | ||||
| } | ||||
|  | ||||
| sub gen_locale_date_string | ||||
| { | ||||
|     my $self = shift; | ||||
|     my $i18n = esmith::I18N->new(); | ||||
|     $i18n->setLocale('formmagick', $i18n->preferredLanguage()); | ||||
|     return strftime "%c", localtime; | ||||
| } | ||||
|  | ||||
| sub get_public_ip_address | ||||
| { | ||||
|     my $self = shift; | ||||
| 	my $cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
|     my $sysconfig = $cdb->get('sysconfig'); | ||||
|     if ($sysconfig) | ||||
|     { | ||||
|         my $publicIP = $sysconfig->prop('PublicIP'); | ||||
|         if ($publicIP) | ||||
|         { | ||||
|             return $publicIP; | ||||
|         } | ||||
|     } | ||||
|     return undef; | ||||
| } | ||||
|  | ||||
| sub email_simple { | ||||
|     my ($c, $data) = @_; | ||||
| @@ -866,4 +893,4 @@ sub get_reg_mask { | ||||
| } | ||||
|  | ||||
|  | ||||
| 1; | ||||
| 1; | ||||
|   | ||||
| @@ -14,7 +14,7 @@ use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
| use Text::Template; | ||||
| use File::Basename; | ||||
| use esmith::FormMagick qw( gen_locale_date_string ); | ||||
| use SrvMngr qw( gen_locale_date_string ); | ||||
| our $cdb = esmith::ConfigDB->open or die "Couldn't open ConfigDB\n"; | ||||
|  | ||||
| # Get some basic info on the current SME install | ||||
|   | ||||
| @@ -12,8 +12,8 @@ use Mojo::Base 'Mojolicious::Controller'; | ||||
| use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
| use esmith::FormMagick; | ||||
| use esmith::util; | ||||
| use SrvMngr qw( gen_locale_date_string ); | ||||
| our $cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
|  | ||||
| sub main { | ||||
| @@ -41,7 +41,7 @@ sub main { | ||||
|  | ||||
|     # get rid of trailing carriage return on last field | ||||
|     chop($dat_datas{ampm}); | ||||
|     $dat_datas{'now_string'} = esmith::FormMagick->gen_locale_date_string(); | ||||
|     $dat_datas{'now_string'} = gen_locale_date_string; | ||||
|     $c->stash(title => $title, modul => $modul, dat_datas => \%dat_datas); | ||||
|     $c->render('datetime'); | ||||
| } ## end sub main | ||||
|   | ||||
| @@ -14,8 +14,6 @@ use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
|  | ||||
| #use esmith::util qw(ldapBase); | ||||
| use esmith::FormMagick::Panel::directory; | ||||
| our $db = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
|  | ||||
| sub main { | ||||
| @@ -75,4 +73,21 @@ sub do_update { | ||||
|     $c->stash(title => $title, modul => $result); | ||||
|     $c->render(template => 'module'); | ||||
| } ## end sub do_update | ||||
|  | ||||
| sub get_ldap_base { | ||||
|     return esmith::util::ldapBase(get_value('','DomainName')); | ||||
| } | ||||
|  | ||||
| sub get_value { | ||||
|     my $fm = shift; | ||||
|     my $item = shift; | ||||
|  | ||||
|     my $record = $db->get($item); | ||||
|     if ($record) { | ||||
|         return $record->value(); | ||||
|     } | ||||
|     else { | ||||
|         return ''; | ||||
|     } | ||||
| } | ||||
| 1; | ||||
|   | ||||
| @@ -20,9 +20,9 @@ use esmith::DomainsDB; | ||||
| use esmith::AccountsDB; | ||||
|  | ||||
| #use URI::Escape; | ||||
| our $ddb = esmith::DomainsDB->open  || die "Couldn't open domains db"; | ||||
| our $cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| my ($ddb,$cdb,$adb); | ||||
| #our $cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| #our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| our $REGEXP_DOMAIN = qq([a-zA-Z0-9\-\.]+); | ||||
|  | ||||
| sub main { | ||||
| @@ -30,6 +30,9 @@ sub main { | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my %dom_datas = (); | ||||
|     my $title     = $c->l('dom_FORM_TITLE'); | ||||
| 	$ddb = esmith::DomainsDB->open  || die "Couldn't open domains db"; | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $dom_datas{trt} = 'LST'; | ||||
|     my @domains; | ||||
|  | ||||
| @@ -54,6 +57,9 @@ sub do_display { | ||||
|     my $rt     = $c->current_route; | ||||
|     my $trt    = $c->param('trt'); | ||||
|     my $domain = $c->param('Domain') || ''; | ||||
| 	$ddb = esmith::DomainsDB->open  || die "Couldn't open domains db"; | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|  | ||||
|     #$trt = 'DEL' if ( $rt eq 'domaindel1' ); | ||||
|     #$trt = 'UPD' if ( $rt eq 'domainupd1' ); | ||||
| @@ -121,6 +127,9 @@ sub do_update { | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my $rt        = $c->current_route; | ||||
|     my $trt       = $c->param('trt'); | ||||
| 	$ddb = esmith::DomainsDB->open  || die "Couldn't open domains db"; | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     my %dom_datas = (); | ||||
|     my ($res, $result) = ''; | ||||
|  | ||||
|   | ||||
| @@ -18,14 +18,17 @@ use SrvMngr qw(theme_list init_session); | ||||
| #use Data::Dumper; | ||||
| #use esmith::FormMagick::Panel::groups; | ||||
| use esmith::AccountsDB; | ||||
| our $cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| #our $cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| #our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| my ($cdb,$adb); | ||||
|  | ||||
| sub main { | ||||
|     my $c = shift; | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my %grp_datas = (); | ||||
|     my $title     = $c->l('grp_FORM_TITLE'); | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $grp_datas{trt} = 'LST'; | ||||
|     my @groups; | ||||
|  | ||||
| @@ -44,6 +47,8 @@ sub do_display { | ||||
|     my $group     = $c->param('group'); | ||||
|     my %grp_datas = (); | ||||
|     my $title     = $c->l('grp_FORM_TITLE'); | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $grp_datas{'trt'} = $trt; | ||||
|  | ||||
|     if ($trt eq 'ADD') { | ||||
| @@ -99,6 +104,8 @@ sub do_update { | ||||
|     my $title     = $c->l('grp_FORM_TITLE'); | ||||
|     my ($res, $result) = ''; | ||||
|     my %grp_datas = (); | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $grp_datas{'trt'}   = $trt; | ||||
|     $grp_datas{'group'} = $groupName; | ||||
|     my @members = (); | ||||
|   | ||||
| @@ -25,10 +25,11 @@ use HTML::Entities; | ||||
| use Net::IPv4Addr qw(ipv4_in_network); | ||||
|  | ||||
| #use URI::Escape; | ||||
| our $ddb = esmith::DomainsDB->open  || die "Couldn't open hostentries db"; | ||||
| our $cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| our $hdb = esmith::HostsDB->open    || die "Couldn't open hosts db"; | ||||
| our $ndb = esmith::NetworksDB->open || die "Couldn't open networks db"; | ||||
| #our $ddb = esmith::DomainsDB->open  || die "Couldn't open hostentries db"; | ||||
| #our $cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| #our $hdb = esmith::HostsDB->open    || die "Couldn't open hosts db"; | ||||
| #our $ndb = esmith::NetworksDB->open || die "Couldn't open networks db"; | ||||
| my ($ddb,$cdb,$hdb,$ndb); | ||||
|  | ||||
| sub main { | ||||
|     my $c = shift; | ||||
| @@ -36,6 +37,10 @@ sub main { | ||||
|     my %hos_datas = (); | ||||
|     my $title     = $c->l('hos_FORM_TITLE'); | ||||
|     my $notif     = ''; | ||||
| 	#my $ddb = esmith::DomainsDB->open  || die "Couldn't open hostentries db"; | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$hdb = esmith::HostsDB->open    || die "Couldn't open hosts db"; | ||||
| 	$ndb = esmith::NetworksDB->open || die "Couldn't open networks db"; | ||||
|     $hos_datas{trt} = 'LIST'; | ||||
|     my %dom_hosts = (); | ||||
|  | ||||
| @@ -68,6 +73,9 @@ sub do_display { | ||||
|     $trt = 'LST' if ($trt ne 'DEL' && $trt ne 'UPD' && $trt ne 'ADD'); | ||||
|     my %hos_datas = (); | ||||
|     my $title     = $c->l('hos_FORM_TITLE'); | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$hdb = esmith::HostsDB->open    || die "Couldn't open hosts db"; | ||||
| 	$ndb = esmith::NetworksDB->open || die "Couldn't open networks db"; | ||||
|     my $notif     = ''; | ||||
|     $hos_datas{'trt'} = $trt; | ||||
|  | ||||
| @@ -112,6 +120,9 @@ sub do_update { | ||||
|     my $trt       = ($c->param('trt') || 'LIST'); | ||||
|     my %hos_datas = (); | ||||
|     my $title     = $c->l('hos_FORM_TITLE'); | ||||
| 	$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$hdb = esmith::HostsDB->open    || die "Couldn't open hosts db"; | ||||
| 	$ndb = esmith::NetworksDB->open || die "Couldn't open networks db"; | ||||
|     my $notif     = ''; | ||||
|     my $result    = ''; | ||||
|     $hos_datas{'name'}       = lc $c->param('Name'); | ||||
|   | ||||
| @@ -18,16 +18,18 @@ use esmith::AccountsDB; | ||||
| use esmith::ConfigDB; | ||||
| use esmith::DomainsDB; | ||||
|  | ||||
| #use esmith::FormMagick::Panel::ibays; | ||||
| our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| our $cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
| #our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| #our $cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
| my ($adb,$cdb); | ||||
|  | ||||
| sub main { | ||||
|     my $c = shift; | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my %iba_datas = (); | ||||
|     my $title     = $c->l('iba_FORM_TITLE'); | ||||
|     $iba_datas{'trt'} = 'LIST'; | ||||
|     $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| 	$cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
| 	$iba_datas{'trt'} = 'LIST'; | ||||
|     my @ibays; | ||||
|  | ||||
|     if ($adb) { | ||||
| @@ -42,6 +44,8 @@ sub do_display { | ||||
|     my $rt   = $c->current_route; | ||||
|     my $trt  = ($c->param('trt') || 'LIST'); | ||||
|     my $ibay = $c->param('ibay') || ''; | ||||
|     $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| 	$cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
|  | ||||
|     #$trt = 'DEL' if ( $ibay ); | ||||
|     #$trt = 'ADD' if ( $rt eq 'ibayadd' ); | ||||
| @@ -116,6 +120,8 @@ sub do_update { | ||||
|     $iba_datas{'trt'} = $trt; | ||||
|     my $result = ''; | ||||
|     my $res; | ||||
|     $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| 	$cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
|  | ||||
|     if ($trt eq 'ADD') { | ||||
|         my $name = ($c->param('ibay') || ''); | ||||
|   | ||||
| @@ -17,8 +17,9 @@ use SrvMngr qw(theme_list init_session subnet_mask get_reg_mask ip_number); | ||||
| #use Data::Dumper; | ||||
| use esmith::util; | ||||
| use esmith::HostsDB; | ||||
| my $network_db = esmith::NetworksDB->open() || die("Couldn't open networks db"); | ||||
| #my $network_db = esmith::NetworksDB->open() || die("Couldn't open networks db"); | ||||
| my $ret = "OK"; | ||||
| my ($network_db); | ||||
|  | ||||
| sub main { | ||||
|     my $c = shift; | ||||
| @@ -26,6 +27,7 @@ sub main { | ||||
|     my %ln_datas = (); | ||||
|     $ln_datas{return} = ""; | ||||
|     my $title = $c->l('ln_LOCAL NETWORKS'); | ||||
| 	$network_db = esmith::NetworksDB->open() || die("Couldn't open networks db"); | ||||
|     my $modul = ''; | ||||
|     $ln_datas{trt} = 'LIST'; | ||||
|     my @localnetworks; | ||||
| @@ -47,6 +49,7 @@ sub do_display { | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my $rt = $c->current_route; | ||||
|     my $trt = ($c->param('trt') || 'LIST'); | ||||
| 	$network_db = esmith::NetworksDB->open() || die("Couldn't open networks db"); | ||||
|     $trt = 'DEL'  if ($rt eq 'localnetworksdel'); | ||||
|     $trt = 'ADD'  if ($rt eq 'localnetworksadd'); | ||||
|     $trt = 'ADD1' if ($rt eq 'localnetworksadd1'); | ||||
| @@ -81,7 +84,7 @@ sub do_display { | ||||
|     if ($trt eq 'DEL1') { | ||||
|  | ||||
|         #After Remove clicked on Delete network panel | ||||
|         my $network_db   = esmith::NetworksDB->open() || die("Failed to open Networkdb-1"); | ||||
|         $network_db   = esmith::NetworksDB->open() || die("Failed to open Networkdb-1"); | ||||
|         my $localnetwork = $c->param("localnetwork"); | ||||
|         my $delete_hosts = $c->param("deletehost") || "1";                                    #default to deleting them. | ||||
|         my $rec = $network_db->get($localnetwork) || die("Failed to find network on db:$localnetwork"); | ||||
| @@ -135,7 +138,7 @@ sub do_display { | ||||
|  | ||||
| sub remove_network { | ||||
|     my $network      = shift; | ||||
|     my $network_db   = esmith::NetworksDB->open(); | ||||
|     $network_db   = esmith::NetworksDB->open(); | ||||
|     my $record       = $network_db->get($network); | ||||
|     my $delete_hosts = shift; | ||||
|  | ||||
| @@ -265,3 +268,4 @@ sub add_network { | ||||
|         ); | ||||
|     } ## end else [ if ($totalHosts == 1) ] | ||||
| } ## end sub add_network | ||||
| 1; | ||||
|   | ||||
| @@ -18,12 +18,11 @@ use SrvMngr qw(theme_list init_session); | ||||
| #use Data::Dumper; | ||||
| use esmith::util; | ||||
| use esmith::HostsDB; | ||||
| our $db = esmith::ConfigDB->open | ||||
|     || die "Can't open configuration database: $!\n"; | ||||
| our $tcp_db = esmith::ConfigDB->open('portforward_tcp') | ||||
|     || die "Can't open portforward_tcp database: $!\n"; | ||||
| our $udp_db = esmith::ConfigDB->open('portforward_udp') | ||||
|     || die "Can't open portforward_udp database: $!\n"; | ||||
| #our $db = esmith::ConfigDB->open || die "Can't open configuration database: $!\n"; | ||||
| #our $tcp_db = esmith::ConfigDB->open('portforward_tcp') || die "Can't open portforward_tcp database: $!\n"; | ||||
| #our $udp_db = esmith::ConfigDB->open('portforward_udp') || die "Can't open portforward_udp database: $!\n"; | ||||
| my ($cdb,$tcp_db,$udp_db); | ||||
|  | ||||
| my %ret = (); | ||||
| use constant FALSE => 0; | ||||
| use constant TRUE  => 1; | ||||
| @@ -35,6 +34,9 @@ sub main { | ||||
|     $pf_datas{return} = ""; | ||||
|     my $title = $c->l('pf_FORM_TITLE'); | ||||
|     my $modul = ''; | ||||
| 	$cdb = esmith::ConfigDB->open || die "Can't open configuration database: $!\n"; | ||||
| 	$tcp_db = esmith::ConfigDB->open('portforward_tcp') || die "Can't open portforward_tcp database: $!\n"; | ||||
| 	$udp_db = esmith::ConfigDB->open('portforward_udp') || die "Can't open portforward_udp database: $!\n"; | ||||
|     $pf_datas{trt} = 'LIST'; | ||||
|     my @tcpforwards = $tcp_db->get_all; | ||||
|     my @udpforwards = $udp_db->get_all; | ||||
| @@ -55,6 +57,9 @@ sub do_display { | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my $rt = $c->current_route; | ||||
|     my $trt = ($c->param('trt') || 'LIST'); | ||||
| 	my $cdb = esmith::ConfigDB->open || die "Can't open configuration database: $!\n"; | ||||
| 	my $tcp_db = esmith::ConfigDB->open('portforward_tcp') || die "Can't open portforward_tcp database: $!\n"; | ||||
| 	my $udp_db = esmith::ConfigDB->open('portforward_udp') || die "Can't open portforward_udp database: $!\n"; | ||||
|     $trt = 'DEL'  if ($rt eq 'portforwardingdel'); | ||||
|     $trt = 'ADD'  if ($rt eq 'portforwardingadd'); | ||||
|     $trt = 'ADD1' if ($rt eq 'portforwardingadd1'); | ||||
| @@ -207,8 +212,8 @@ sub add_portforward { | ||||
| sub get_destination_host { | ||||
|     my $q           = shift; | ||||
|     my $dhost       = $q->param("dhost"); | ||||
|     my $localip     = $db->get_prop('InternalInterface', 'IPAddress'); | ||||
|     my $external_ip = $db->get_prop('ExternalInterface', 'IPAddress') || $localip; | ||||
|     my $localip     = $cdb->get_prop('InternalInterface', 'IPAddress'); | ||||
|     my $external_ip = $cdb->get_prop('ExternalInterface', 'IPAddress') || $localip; | ||||
|  | ||||
|     if ($dhost =~ /^(127.0.0.1|$localip|$external_ip)$/i) { | ||||
|  | ||||
| @@ -354,8 +359,8 @@ sub validate_destination_host { | ||||
|     my $c     = shift; | ||||
|     my $dhost = $c->param('dhost'); | ||||
|     $dhost =~ s/^\s+|\s+$//g; | ||||
|     my $localip = $db->get_prop('InternalInterface', 'IPAddress'); | ||||
|     my $external_ip = $db->get_prop('ExternalInterface', 'IPAddress') || $localip; | ||||
|     my $localip = $cdb->get_prop('InternalInterface', 'IPAddress'); | ||||
|     my $external_ip = $cdb->get_prop('ExternalInterface', 'IPAddress') || $localip; | ||||
|  | ||||
|     if ($dhost =~ /^(localhost|127.0.0.1|$localip|$external_ip)$/i) { | ||||
|  | ||||
| @@ -363,7 +368,7 @@ sub validate_destination_host { | ||||
|         $c->param(-name => 'dhost', -value => 'localhost'); | ||||
|         return (ret => 'pf_SUCCESS'); | ||||
|     } ## end if ($dhost =~ /^(localhost|127.0.0.1|$localip|$external_ip)$/i) | ||||
|     my $systemmode = $db->get_value('SystemMode'); | ||||
|     my $systemmode = $cdb->get_value('SystemMode'); | ||||
|  | ||||
|     if ($systemmode eq 'serveronly') { | ||||
|         return (ret => 'pf_IN_SERVERONLY'); | ||||
|   | ||||
| @@ -14,14 +14,15 @@ use Mojo::Base 'Mojolicious::Controller'; | ||||
| use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
| use esmith::FormMagick::Panel::printers; | ||||
| our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| #our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| my $adb; | ||||
|  | ||||
| sub main { | ||||
|     my $c = shift; | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my %prt_datas = (); | ||||
|     my $title     = $c->l('prt_FORM_TITLE'); | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $prt_datas{'trt'} = 'LIST'; | ||||
|     my @printerDrivers; | ||||
|  | ||||
| @@ -37,6 +38,7 @@ sub do_display { | ||||
|     my $rt      = $c->current_route; | ||||
|     my $trt     = ($c->param('trt') || 'LIST'); | ||||
|     my $printer = $c->param('printer') || ''; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|  | ||||
|     #$trt = 'DEL' if ( $printer ); | ||||
|     #$trt = 'ADD' if ( $rt eq 'printeradd' ); | ||||
| @@ -77,6 +79,7 @@ sub do_update { | ||||
|     my $trt       = ($c->param('trt') || 'LIST'); | ||||
|     my %prt_datas = (); | ||||
|     my $title     = $c->l('prt_FORM_TITLE'); | ||||
|    	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $prt_datas{'trt'} = $trt; | ||||
|     my ($res, $result) = ''; | ||||
|  | ||||
|   | ||||
| @@ -20,8 +20,9 @@ use SrvMngr qw(theme_list init_session); | ||||
| use esmith::AccountsDB; | ||||
|  | ||||
| #use URI::Escape; | ||||
| our $cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| #our $cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| #our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| my ($cdb,$adb); | ||||
|  | ||||
| sub main { | ||||
|     my $c = shift; | ||||
| @@ -31,6 +32,8 @@ sub main { | ||||
|     my $notif     = ''; | ||||
|     $pse_datas{trt} = 'LST'; | ||||
|     my @pseudonyms; | ||||
| 	#$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|  | ||||
|     if ($adb) { | ||||
|         @pseudonyms = $adb->pseudonyms(); | ||||
| @@ -47,7 +50,9 @@ sub do_display { | ||||
|     my $pseudonym = $c->param('pseudonym') || ''; | ||||
|     my $title     = $c->l('pse_FORM_TITLE'); | ||||
|     my %pse_datas = (); | ||||
|     $pse_datas{'trt'} = $trt; | ||||
|  	#$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| 	$pse_datas{'trt'} = $trt; | ||||
|  | ||||
|     if ($trt eq 'ADD') { | ||||
|  | ||||
| @@ -92,6 +97,8 @@ sub do_update { | ||||
|     my $rt        = $c->current_route; | ||||
|     my $trt       = ($c->param('trt') || 'LST'); | ||||
|     my $title     = $c->l('pse_FORM_TITLE'); | ||||
|    	#$cdb = esmith::ConfigDB->open   || die "Couldn't open configuration db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     my %pse_datas = (); | ||||
|     $pse_datas{'trt'} = $trt; | ||||
|     my ($res, $result) = ''; | ||||
|   | ||||
| @@ -10,7 +10,7 @@ package SrvMngr::Controller::Qmailanalog; | ||||
| use strict; | ||||
| use warnings; | ||||
| use Mojo::Base 'Mojolicious::Controller'; | ||||
| use esmith::FormMagick qw(gen_locale_date_string); | ||||
| use SrvMngr qw(gen_locale_date_string); | ||||
| use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
|   | ||||
| @@ -11,22 +11,21 @@ package SrvMngr::Controller::Quota; | ||||
| use strict; | ||||
| use warnings; | ||||
| use Mojo::Base 'Mojolicious::Controller'; | ||||
| use esmith::FormMagick::Panel::quota; | ||||
|  | ||||
| #use esmith::TestUtils; | ||||
| use Scalar::Util qw(looks_like_number); | ||||
| use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
|  | ||||
| #our $db = esmith::ConfigDB->open || die "Couldn't open config db"; | ||||
| our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| #our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| my $adb; | ||||
|  | ||||
| sub main { | ||||
|     my $c = shift; | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my %quo_datas = (); | ||||
|     my $title     = $c->l('quo_FORM_TITLE'); | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $quo_datas{'trt'} = 'LIST'; | ||||
|     my @userAccounts; | ||||
|  | ||||
| @@ -45,6 +44,7 @@ sub do_display { | ||||
|     $trt = 'UPD' if ($user); | ||||
|     my %quo_datas = (); | ||||
|     my $title     = $c->l('quo_FORM_TITLE'); | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $quo_datas{'trt'} = $trt; | ||||
|  | ||||
|     if ($trt eq 'UPD') { | ||||
| @@ -53,9 +53,9 @@ sub do_display { | ||||
|         if ($rec and $rec->prop('type') eq 'user') { | ||||
|             $quo_datas{user}    = $user; | ||||
|             $quo_datas{userRec} = $rec; | ||||
|             my $max = esmith::FormMagick::Panel::quota->toBestUnit($rec->prop('MaxBlocks')); | ||||
|             my $max = $c->toBestUnit($rec->prop('MaxBlocks')); | ||||
|             $quo_datas{hardlim} = $max; | ||||
|             $max                = esmith::FormMagick::Panel::quota->toBestUnit($rec->prop('MaxBlocksSoftLim')); | ||||
|             $max                = $c->toBestUnit($rec->prop('MaxBlocksSoftLim')); | ||||
|             $quo_datas{softlim} = $max; | ||||
|         } ## end if ($rec and $rec->prop...) | ||||
|     } ## end if ($trt eq 'UPD') | ||||
| @@ -73,6 +73,7 @@ sub do_update { | ||||
|     $quo_datas{trt} = $trt; | ||||
|     my $result = ''; | ||||
|     my $res; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|  | ||||
|     if ($trt eq 'UPD') { | ||||
|         $quo_datas{user}    = ($c->param('user') || ''); | ||||
| @@ -156,4 +157,54 @@ sub validate_quota { | ||||
|         or die($c->l('quo_ERR_MODIFYING') . "\n"); | ||||
|     return 'OK'; | ||||
| } ## end sub validate_quota | ||||
|  | ||||
| sub toMB | ||||
| { | ||||
|     my ($self,$kb) = @_; | ||||
|     return sprintf("%.2f", $kb / 1024); | ||||
| } | ||||
|  | ||||
| sub toMBNoDecimalPlaces | ||||
| { | ||||
|     my ($self,$kb) = @_; | ||||
|     return sprintf("%.0f", $kb / 1024); | ||||
| } | ||||
|  | ||||
| sub toGBNoDecimalPlaces | ||||
| { | ||||
|     my ($self,$kb) = @_; | ||||
|     return sprintf("%.0f", $kb / 1024 / 1024); | ||||
| } | ||||
|  | ||||
| sub toKB  | ||||
| { | ||||
|     my ($self,$mb) = @_; | ||||
|     return sprintf("%.0f", $mb * 1024); | ||||
| } | ||||
|  | ||||
|  | ||||
| sub GBtoKB | ||||
| { | ||||
|     my ($self,$gb) = @_; | ||||
|     return sprintf("%.0f", $gb * 1024 * 1024); | ||||
| } | ||||
|  | ||||
| sub MBtoKB | ||||
| { | ||||
|     my ($self,$mb) = @_; | ||||
|     return sprintf("%.0f", $mb * 1024); | ||||
| } | ||||
|  | ||||
| sub toBestUnit | ||||
| { | ||||
|     my ($self,$kb) = @_; | ||||
|     return 0 if($kb == 0); | ||||
|     return $kb."K" if($kb < 1024); | ||||
|     return $kb."K" if($kb > 1024 && $kb < 1048576 && $kb % 1024 != 0); | ||||
|     return $self->toMBNoDecimalPlaces($kb)."M" if($kb < 1048576); | ||||
|     return $self->toMBNoDecimalPlaces($kb)."M" if($kb > 1048576  | ||||
| 	&& ($kb % 1048576 != 0)); | ||||
|     return $self->toGBNoDecimalPlaces($kb)."G"; | ||||
| } | ||||
|  | ||||
| 1 | ||||
|   | ||||
| @@ -17,10 +17,11 @@ use Mojo::Base 'Mojolicious::Controller'; | ||||
| use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
| use SrvMngr qw(gen_locale_date_string); | ||||
|  | ||||
|  | ||||
| #use SrvMngr::Review_sub qw(print_page); | ||||
| #use smeserver::Panel::review; | ||||
| use esmith::FormMagick::Panel::review; | ||||
| our $db       = esmith::ConfigDB->open_ro   || die "Couldn't open config db"; | ||||
| our $domains  = esmith::DomainsDB->open_ro  || die "Couldn't open domains"; | ||||
| our $networks = esmith::NetworksDB->open_ro || die "Couldn't open networks"; | ||||
| @@ -33,7 +34,7 @@ sub main { | ||||
|     my %rvw_datas = (); | ||||
|     $rvw_datas{'servermode'} = (get_value('', 'SystemMode') || ''); | ||||
|     $rvw_datas{'localip'}          = get_value('$c', 'LocalIP') . '/' . get_value('$c', 'LocalNetmask'); | ||||
|     $rvw_datas{'publicip'}         = esmith::FormMagick::Panel::review->get_public_ip_address($c); | ||||
|     $rvw_datas{'publicip'}         = $c->get_public_ip_address($c); | ||||
|     $rvw_datas{'gateway'}          = $c->render_to_string(inline => print2_gateway_stanza($c)); | ||||
|     $rvw_datas{'serveronly'}       = $c->render_to_string(inline => print2_serveronly_stanza($c)); | ||||
|     $rvw_datas{'addlocalnetworks'} = get_local_networks($c); | ||||
| @@ -151,6 +152,55 @@ sub get2_local_networks { | ||||
|     } ## end else [ if ($numNetworks == 0)] | ||||
| } ## end sub get2_local_networks | ||||
|  | ||||
| sub get_net_prop { | ||||
|   my $fm = shift; | ||||
|   my $item = shift; | ||||
|   my $prop = shift; | ||||
|  | ||||
|   my $record = $networks->get($item); | ||||
|   if ($record) { | ||||
|     return $record->prop($prop); | ||||
|   } | ||||
|   else { | ||||
|     return ''; | ||||
|   } | ||||
|  | ||||
| } | ||||
|  | ||||
|  | ||||
| sub get_local_networks { | ||||
|     my $fm = shift; | ||||
|  | ||||
|     my @nets = $networks->get_all_by_prop('type' => 'network'); | ||||
|  | ||||
|     my $numNetworks = @nets; | ||||
|     if ($numNetworks == 0) { | ||||
|         return  $fm->localise('NO_NETWORKS'); | ||||
|     } | ||||
|     else { | ||||
|         my $out = ""; | ||||
|         foreach my $network (sort @nets) { | ||||
|             if ($out ne "") { | ||||
|                 $out .= "<BR>"; | ||||
|             } | ||||
|  | ||||
|             $out .= $network->key."/" . get_net_prop($fm, $network->key, 'Mask'); | ||||
|  | ||||
|             if ( defined get_net_prop($fm, $network->key, 'Router') ) { | ||||
|                 $out .= " via " . get_net_prop ($fm, $network->key, 'Router');  | ||||
|             } | ||||
|         } | ||||
|         return $out; | ||||
|     } | ||||
|  | ||||
| } | ||||
|  | ||||
| sub get_local_domain | ||||
| { | ||||
|     return (get_value('','DomainName')); | ||||
| } | ||||
|  | ||||
|  | ||||
| =head2 print2_gateway_stanza | ||||
|  | ||||
| If this system is a server gateway, show the external ip and gateway ip (mojo ver) | ||||
| @@ -216,4 +266,51 @@ sub print2_dhcp_stanza { | ||||
|     } ## end if (get_prop($c, 'dhcpd'...)) | ||||
|     return $out; | ||||
| } ## end sub print2_dhcp_stanza | ||||
|  | ||||
| sub get_value { | ||||
|   my $fm = shift; | ||||
|   my $item = shift; | ||||
|   my $record = $db->get($item); | ||||
|   if ($record) { | ||||
|     return $record->value(); | ||||
|   } | ||||
|   else { | ||||
|     return ''; | ||||
|   } | ||||
|    | ||||
| } | ||||
|  | ||||
| sub get_prop { | ||||
|   my $fm = shift if (ref($_[0]) ); # If we're being called in a formmagick context | ||||
| 				 # The first argument will always be a fm. | ||||
| 				 #otherwise, we don't want to grab it | ||||
|   my $item = shift; | ||||
|   my $prop = shift; | ||||
|  | ||||
|   my $record = $db->get($item); | ||||
|   if ($record) { | ||||
|     return $record->prop($prop); | ||||
|   } | ||||
|   else { | ||||
|     return ''; | ||||
|   } | ||||
|  | ||||
| } | ||||
|  | ||||
| sub get_public_ip_address | ||||
| { | ||||
|     my $self = shift; | ||||
|     my $sysconfig = $db->get('sysconfig'); | ||||
|     if ($sysconfig) | ||||
|     { | ||||
|         my $publicIP = $sysconfig->prop('PublicIP'); | ||||
|         if ($publicIP) | ||||
|         { | ||||
|             return $publicIP; | ||||
|         } | ||||
|     } | ||||
|     return undef; | ||||
| } | ||||
|  | ||||
|  | ||||
| 1; | ||||
|   | ||||
| @@ -2,7 +2,7 @@ package SrvMngr::Controller::Roundcubepanel; | ||||
|  | ||||
| #---------------------------------------------------------------------- | ||||
| # heading     : System | ||||
| # description : Roundcube webmail | ||||
| # description : Webmail | ||||
| # navigation  : 99999 9999 | ||||
| #---------------------------------------------------------------------- | ||||
| #---------------------------------------------------------------------- | ||||
| @@ -21,10 +21,9 @@ use SrvMngr qw(theme_list init_session); | ||||
| sub main { | ||||
|     my $c = shift; | ||||
|     $c->app->log->info($c->log_req); | ||||
|     my $title            = $c->l('Roundcube Webmail'); | ||||
|     my $title            = $c->l('Webmail'); | ||||
|     my $roundcube_url    = $c->param('url'); | ||||
|     my $roundcube_height = $c->param('height') | 600; | ||||
|     $c->stash(title => $title, modul => $roundcube_url, height => $roundcube_height); | ||||
|     $c->stash(title => $title, modul => $roundcube_url); | ||||
|     $c->render(template => 'roundcube'); | ||||
| } ## end sub main | ||||
|  | ||||
|   | ||||
| @@ -28,13 +28,15 @@ use esmith::util; | ||||
| #use Exporter; | ||||
| #use Carp qw(verbose); | ||||
| #use esmith::FormMagick::Panel::useraccounts; | ||||
| our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| our $cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
| #our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| #our $cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
| my ($cdb,$adb); | ||||
|  | ||||
| sub main { | ||||
|     my $c = shift; | ||||
|     $c->app->log->info($c->log_req); | ||||
| 	my $adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
| 	$cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     my $notif     = ''; | ||||
|     my %usr_datas = (); | ||||
|     my $title     = $c->l('usr_FORM_TITLE'); | ||||
| @@ -53,6 +55,8 @@ sub do_display { | ||||
|     my %usr_datas = (); | ||||
|     my $title     = $c->l('usr_FORM_TITLE'); | ||||
|     my ($notif, $modul) = ''; | ||||
| 	$cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|     $usr_datas{'trt'} = $trt; | ||||
|  | ||||
|     if ($trt eq 'ADD') { | ||||
| @@ -139,6 +143,8 @@ sub do_update { | ||||
|     $usr_datas{trt} = $trt; | ||||
|     my $title = $c->l('usr_FORM_TITLE'); | ||||
|     my ($res, $result) = ''; | ||||
| 	$cdb = esmith::ConfigDB->open() || die "Couldn't open config db"; | ||||
| 	$adb = esmith::AccountsDB->open || die "Couldn't open accounts db"; | ||||
|  | ||||
|     if ($trt eq 'ADD') { | ||||
|  | ||||
| @@ -819,4 +825,4 @@ sub system_change_password { | ||||
|         return $c->l("Error occurred while modifying password for admin.", 'First'); | ||||
|     } | ||||
| } ## end sub system_change_password | ||||
| 1 | ||||
| 1 | ||||
|   | ||||
| @@ -17,7 +17,7 @@ use esmith::AccountsDB; | ||||
| use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw( theme_list init_session is_normal_password ); | ||||
| our $cdb = esmith::ConfigDB->open_ro || die "Couldn't open configuration db"; | ||||
| #our $cdb = esmith::ConfigDB->open_ro || die "Couldn't open configuration db"; | ||||
|  | ||||
| sub main { | ||||
|     my $c         = shift; | ||||
| @@ -194,6 +194,7 @@ sub check_password { | ||||
|     my $c        = shift; | ||||
|     my $password = shift; | ||||
|     my $strength; | ||||
|    	my $cdb = esmith::ConfigDB->open_ro || die "Couldn't open configuration db"; | ||||
|     my $rec = $cdb->get('passwordstrength'); | ||||
|     $strength = ($rec ? ($rec->prop('Users') || 'none') : 'none'); | ||||
|     return validate_password($c, $strength, $password); | ||||
|   | ||||
| @@ -12,15 +12,13 @@ use strict; | ||||
| use warnings; | ||||
| use Mojo::Base 'Mojolicious::Controller'; | ||||
|  | ||||
| #use esmith::FormMagick qw(gen_locale_date_string); | ||||
| use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
| use esmith::ConfigDB; | ||||
| #use Time::TAI64; | ||||
| use File::Basename; | ||||
| use HTML::Entities; | ||||
| use esmith::FormMagick qw(gen_locale_date_string); | ||||
| use SrvMngr qw(gen_locale_date_string); | ||||
| use File::Temp qw(tempfile); | ||||
| use constant TRUE  => 1; | ||||
| use constant FALSE => 0; | ||||
| @@ -295,4 +293,4 @@ sub download_logFile { | ||||
|     ); | ||||
|     return undef; | ||||
| } ## end sub download_logFile | ||||
| 1; | ||||
| 1; | ||||
|   | ||||
| @@ -13,7 +13,6 @@ use Mojo::Base 'Mojolicious::Controller'; | ||||
| use Locale::gettext; | ||||
| use SrvMngr::I18N; | ||||
| use SrvMngr qw(theme_list init_session); | ||||
| use esmith::FormMagick::Panel::workgroup; | ||||
| our $db = esmith::ConfigDB->open || die "Couldn't open config db"; | ||||
|  | ||||
| sub main { | ||||
|   | ||||
| @@ -1,278 +1,298 @@ | ||||
| document.addEventListener('DOMContentLoaded', () => { | ||||
|   const flagContainer = document.getElementById('flag-container'); | ||||
|  | ||||
|         async function getCountryName(countryCode) { | ||||
|             try { | ||||
|                 const response = await fetch(`https://restcountries.com/v3.1/alpha/${countryCode}`); | ||||
|                 if (!response.ok) throw new Error('Country not found'); | ||||
|                 const data = await response.json(); | ||||
|                 // Return the name in the native language | ||||
|                 return data[0].name.common;  | ||||
|             } catch (error) { | ||||
|                 console.error(error); | ||||
|                 return 'Unknown Country'; | ||||
|             } | ||||
|         } | ||||
|  | ||||
|         function getFlagEmoji(locale) { | ||||
|             // Split the locale to get the language and country code | ||||
|             const parts = locale.split('-'); | ||||
|             let countryCode; | ||||
|  | ||||
|             // Handle single subtag (language only) or double subtag (language-country) | ||||
|             if (parts.length === 1) { | ||||
|                 countryCode = getCountryCodeFromLanguage(parts[0]); | ||||
|             } else if (parts.length === 2) { | ||||
|                 countryCode = parts[1].toLowerCase(); // Use the country code | ||||
|             } | ||||
|  | ||||
|             // If country code is not found, set a fallback output | ||||
|             if (!countryCode) { | ||||
|                 const fallback = `? ${locale.toUpperCase()}`; // Just a question mark and the full locale | ||||
|                 return { flag: fallback, isUnknown: true, countryName: 'Unknown Country' }; | ||||
|             } | ||||
|  | ||||
|             // Convert the country code to a flag emoji | ||||
|             return { | ||||
|                 flag: String.fromCodePoint(...[...countryCode.toUpperCase()].map(char => 0x1F1E6 + char.charCodeAt(0) - 'A'.charCodeAt(0))), | ||||
|                 isUnknown: false, | ||||
|                 countryCode: countryCode | ||||
|             }; | ||||
|         } | ||||
|  | ||||
|         function getCountryCodeFromLanguage(language) { | ||||
|             // Map languages to countries (this is an example, extend as needed) | ||||
|             const languageToCountryMap = { | ||||
|                   // Add more mappings as needed | ||||
|     "af": "NA", | ||||
|     "agq": "CM", | ||||
|     "ak": "GH", | ||||
|     "am": "ET", | ||||
|     "ar": "01", | ||||
|     "as": "IN", | ||||
|     "asa": "TZ", | ||||
|     "ast": "ES", | ||||
|     "az": "rl", | ||||
|     "bas": "CM", | ||||
|     "be": "BY", | ||||
|     "bem": "ZM", | ||||
|     "bez": "TZ", | ||||
|     "bg": "BG", | ||||
|     "bm": "ML", | ||||
|     "bn": "BD", | ||||
|     "bo": "CN", | ||||
|     "br": "FR", | ||||
|     "brx": "IN", | ||||
|     "bs": "rl", | ||||
|     "ca": "AD", | ||||
|     "ccp": "BD", | ||||
|     "ce": "RU", | ||||
|     "cgg": "UG", | ||||
|     "chr": "US", | ||||
|     "ckb": "IQ", | ||||
|     "cs": "CZ", | ||||
|     "cy": "GB", | ||||
|     "da": "DK", | ||||
|     "dav": "KE", | ||||
|     "de": "DE", | ||||
|     "dje": "NE", | ||||
|     "dsb": "DE", | ||||
|     "dua": "CM", | ||||
|     "dyo": "SN", | ||||
|     "dz": "BT", | ||||
|     "ebu": "KE", | ||||
|     "ee": "GH", | ||||
|     "el": "CY", | ||||
|     "en": "01", | ||||
|     "es": "ES", | ||||
|     "et": "EE", | ||||
|     "eu": "ES", | ||||
|     "ewo": "CM", | ||||
|     "fa": "AF", | ||||
|     "ff": "CM", | ||||
|     "fi": "FI", | ||||
|     "fil": "PH", | ||||
|     "fo": "FO", | ||||
|     "fr": "FR", | ||||
|     "fur": "IT", | ||||
|     "fy": "NL", | ||||
|     "ga": "IE", | ||||
|     "gd": "GB", | ||||
|     "gl": "ES", | ||||
|     "gsw": "CH", | ||||
|     "gu": "IN", | ||||
|     "guz": "KE", | ||||
|     "gv": "IM", | ||||
|     "ha": "GH", | ||||
|     "haw": "US", | ||||
|     "he": "IL", | ||||
|     "hi": "IN", | ||||
|     "hr": "HR", | ||||
|     "hsb": "DE", | ||||
|     "hu": "HU", | ||||
|     "hy": "AM", | ||||
|     "id": "ID", | ||||
|     "ig": "NG", | ||||
|     "ii": "CN", | ||||
|     "is": "IS", | ||||
|     "it": "IT", | ||||
|     "ja": "JP", | ||||
|     "jgo": "CM", | ||||
|     "jmc": "TZ", | ||||
|     "ka": "GE", | ||||
|     "kab": "DZ", | ||||
|     "kam": "KE", | ||||
|     "kde": "TZ", | ||||
|     "kea": "CV", | ||||
|     "khq": "ML", | ||||
|     "ki": "KE", | ||||
|     "kk": "KZ", | ||||
|     "kkj": "CM", | ||||
|     "kl": "GL", | ||||
|     "kln": "KE", | ||||
|     "km": "KH", | ||||
|     "kn": "IN", | ||||
|     "ko": "KP", | ||||
|     "kok": "IN", | ||||
|     "ks": "IN", | ||||
|     "ksb": "TZ", | ||||
|     "ksf": "CM", | ||||
|     "ksh": "DE", | ||||
|     "kw": "GB", | ||||
|     "ky": "KG", | ||||
|     "lag": "TZ", | ||||
|     "lb": "LU", | ||||
|     "lg": "UG", | ||||
|     "lkt": "US", | ||||
|     "ln": "AO", | ||||
|     "lo": "LA", | ||||
|     "lrc": "IQ", | ||||
|     "lt": "LT", | ||||
|     "lu": "CD", | ||||
|     "luo": "KE", | ||||
|     "Luo": "KE", | ||||
|     "luy": "KE", | ||||
|     "lv": "LV", | ||||
|     "mas": "KE", | ||||
|     "mer": "KE", | ||||
|     "mfe": "MU", | ||||
|     "mg": "MG", | ||||
|     "mgh": "MZ", | ||||
|     "mgo": "CM", | ||||
|     "mk": "MK", | ||||
|     "ml": "IN", | ||||
|     "mn": "MN", | ||||
|     "mr": "IN", | ||||
|     "ms": "BN", | ||||
|     "mt": "MT", | ||||
|     "mua": "CM", | ||||
|     "my": "MM", | ||||
|     "mzn": "IR", | ||||
|     "naq": "NA", | ||||
|     "nb": "NO", | ||||
|     "nd": "ZW", | ||||
|     "nds": "DE", | ||||
|     "ne": "IN", | ||||
|     "nl": "NL", | ||||
|     "nmg": "CM", | ||||
|     "nn": "NO", | ||||
|     "nnh": "CM", | ||||
|     "nus": "SS", | ||||
|     "nyn": "UG", | ||||
|     "om": "ET", | ||||
|     "or": "IN", | ||||
|     "os": "GE", | ||||
|     "pa": "ab", | ||||
|     "pl": "PL", | ||||
|     "ps": "AF", | ||||
|     "pt": "PT", | ||||
|     "qu": "BO", | ||||
|     "rm": "CH", | ||||
|     "rn": "BI", | ||||
|     "ro": "RO", | ||||
|     "rof": "TZ", | ||||
|     "ru": "RU", | ||||
|     "rw": "RW", | ||||
|     "rwk": "TZ", | ||||
|     "sah": "RU", | ||||
|     "saq": "KE", | ||||
|     "sbp": "TZ", | ||||
|     "se": "SE", | ||||
|     "seh": "MZ", | ||||
|     "ses": "ML", | ||||
|     "sg": "CF", | ||||
|     "shi": "tn", | ||||
|     "si": "LK", | ||||
|     "sk": "SK", | ||||
|     "sl": "SI", | ||||
|     "smn": "FI", | ||||
|     "sn": "ZW", | ||||
|     "so": "SO", | ||||
|     "sq": "AL", | ||||
|     "sr": "rl", | ||||
|     "sv": "AX", | ||||
|     "sw": "CD", | ||||
|     "ta": "IN", | ||||
|     "te": "IN", | ||||
|     "teo": "KE", | ||||
|     "tg": "TJ", | ||||
|     "th": "TH", | ||||
|     "ti": "ER", | ||||
|     "to": "TO", | ||||
|     "tr": "TR", | ||||
|     "tt": "RU", | ||||
|     "twq": "NE", | ||||
|     "tzm": "MA", | ||||
|     "ug": "CN", | ||||
|     "uk": "UA", | ||||
|     "ur": "IN", | ||||
|     "uz": "ab", | ||||
|     "vai": "tn", | ||||
|     "Vai": "tn", | ||||
|     "vi": "VN", | ||||
|     "vun": "TZ", | ||||
|     "wae": "CH", | ||||
|     "wo": "SN", | ||||
|     "xog": "UG", | ||||
|     "yav": "CM", | ||||
|     "yi": "01", | ||||
|     "yo": "BJ", | ||||
|     "yue": "ns", | ||||
|     "zgh": "MA", | ||||
|     "zh": "ns", | ||||
|     "zu": "ZA" | ||||
| 	const flagContainer = document.getElementById('flag-container'); | ||||
| 	// Mapping of language codes to country codes and their names | ||||
| 	const languageToCountryMap = { | ||||
| 		"af": { code: "NA", name: "Namibia" }, | ||||
| 		"agq": { code: "CM", name: "Cameroon" }, | ||||
| 		"ak": { code: "GH", name: "Ghana" }, | ||||
| 		"am": { code: "ET", name: "Ethiopia" }, | ||||
| 		"ar": { code: "SA", name: "Saudi Arabia" }, | ||||
| 		"as": { code: "IN", name: "India" }, | ||||
| 		"asa": { code: "TZ", name: "Tanzania" }, | ||||
| 		"ast": { code: "ES", name: "Spain" }, | ||||
| 		"az": { code: "AZ", name: "Azerbaijan" }, | ||||
| 		"bas": { code: "CM", name: "Cameroon" }, | ||||
| 		"be": { code: "BY", name: "Belarus" }, | ||||
| 		"bem": { code: "ZM", name: "Zambia" }, | ||||
| 		"bez": { code: "TZ", name: "Tanzania" }, | ||||
| 		"bg": { code: "BG", name: "Bulgaria" }, | ||||
| 		"bm": { code: "ML", name: "Mali" }, | ||||
| 		"bn": { code: "BD", name: "Bangladesh" }, | ||||
| 		"bo": { code: "CN", name: "China" }, | ||||
| 		"br": { code: "FR", name: "France" }, | ||||
| 		"brx": { code: "IN", name: "India" }, | ||||
| 		"bs": { code: "BA", name: "Bosnia and Herzegovina" }, | ||||
| 		"ca": { code: "AD", name: "Andorra" }, | ||||
| 		"ccp": { code: "BD", name: "Bangladesh" }, | ||||
| 		"ce": { code: "RU", name: "Russia" }, | ||||
| 		"cgg": { code: "UG", name: "Uganda" }, | ||||
| 		"chr": { code: "US", name: "United States" }, | ||||
| 		"ckb": { code: "IQ", name: "Iraq" }, | ||||
| 		"cs": { code: "CZ", name: "Czech Republic" }, | ||||
| 		"cy": { code: "GB", name: "United Kingdom" }, | ||||
| 		"da": { code: "DK", name: "Denmark" }, | ||||
| 		"dav": { code: "KE", name: "Kenya" }, | ||||
| 		"de": { code: "DE", name: "Germany" }, | ||||
| 		"dje": { code: "NE", name: "Niger" }, | ||||
| 		"dsb": { code: "DE", name: "Germany" }, | ||||
| 		"dua": { code: "CM", name: "Cameroon" }, | ||||
| 		"dyo": { code: "SN", name: "Senegal" }, | ||||
| 		"dz": { code: "BT", name: "Bhutan" }, | ||||
| 		"ebu": { code: "KE", name: "Kenya" }, | ||||
| 		"ee": { code: "GH", name: "Ghana" }, | ||||
| 		"el": { code: "CY", name: "Cyprus" }, | ||||
| 		"en": { code: "US", name: "United States" }, // Assume US for English if unspecified | ||||
| 		"es": { code: "ES", name: "Spain" }, | ||||
| 		"et": { code: "EE", name: "Estonia" }, | ||||
| 		"eu": { code: "ES", name: "Spain" }, | ||||
| 		"ewo": { code: "CM", name: "Cameroon" }, | ||||
| 		"fa": { code: "AF", name: "Afghanistan" }, | ||||
| 		"ff": { code: "CM", name: "Cameroon" }, | ||||
| 		"fi": { code: "FI", name: "Finland" }, | ||||
| 		"fil": { code: "PH", name: "Philippines" }, | ||||
| 		"fo": { code: "FO", name: "Faroe Islands" }, | ||||
| 		"fr": { code: "FR", name: "France" }, | ||||
| 		"fur": { code: "IT", name: "Italy" }, | ||||
| 		"fy": { code: "NL", name: "Netherlands" }, | ||||
| 		"ga": { code: "IE", name: "Ireland" }, | ||||
| 		"gd": { code: "GB", name: "United Kingdom" }, | ||||
| 		"gl": { code: "ES", name: "Spain" }, | ||||
| 		"gsw": { code: "CH", name: "Switzerland" }, | ||||
| 		"gu": { code: "IN", name: "India" }, | ||||
| 		"guz": { code: "KE", name: "Kenya" }, | ||||
| 		"gv": { code: "IM", name: "Isle of Man" }, | ||||
| 		"ha": { code: "GH", name: "Ghana" }, | ||||
| 		"haw": { code: "US", name: "United States" }, | ||||
| 		"he": { code: "IL", name: "Israel" }, | ||||
| 		"hi": { code: "IN", name: "India" }, | ||||
| 		"hr": { code: "HR", name: "Croatia" }, | ||||
| 		"hsb": { code: "DE", name: "Germany" }, | ||||
| 		"hu": { code: "HU", name: "Hungary" }, | ||||
| 		"hy": { code: "AM", name: "Armenia" }, | ||||
| 		"id": { code: "ID", name: "Indonesia" }, | ||||
| 		"ig": { code: "NG", name: "Nigeria" }, | ||||
| 		"ii": { code: "CN", name: "China" }, | ||||
| 		"is": { code: "IS", name: "Iceland" }, | ||||
| 		"it": { code: "IT", name: "Italy" }, | ||||
| 		"ja": { code: "JP", name: "Japan" }, | ||||
| 		"jgo": { code: "CM", name: "Cameroon" }, | ||||
| 		"jmc": { code: "TZ", name: "Tanzania" }, | ||||
| 		"ka": { code: "GE", name: "Georgia" }, | ||||
| 		"kab": { code: "DZ", name: "Algeria" }, | ||||
| 		"kam": { code: "KE", name: "Kenya" }, | ||||
| 		"kde": { code: "TZ", name: "Tanzania" }, | ||||
| 		"kea": { code: "CV", name: "Cabo Verde" }, | ||||
| 		"khq": { code: "ML", name: "Mali" }, | ||||
| 		"ki": { code: "KE", name: "Kenya" }, | ||||
| 		"kk": { code: "KZ", name: "Kazakhstan" }, | ||||
| 		"kkj": { code: "CM", name: "Cameroon" }, | ||||
| 		"kl": { code: "GL", name: "Greenland" }, | ||||
| 		"kln": { code: "KE", name: "Kenya" }, | ||||
| 		"km": { code: "KH", name: "Cambodia" }, | ||||
| 		"kn": { code: "IN", name: "India" }, | ||||
| 		"ko": { code: "KP", name: "North Korea" }, | ||||
| 		"kok": { code: "IN", name: "India" }, | ||||
| 		"ks": { code: "IN", name: "India" }, | ||||
| 		"ksb": { code: "TZ", name: "Tanzania" }, | ||||
| 		"ksf": { code: "CM", name: "Cameroon" }, | ||||
| 		"ksh": { code: "DE", name: "Germany" }, | ||||
| 		"kw": { code: "GB", name: "United Kingdom" }, | ||||
| 		"ky": { code: "KG", name: "Kyrgyzstan" }, | ||||
| 		"lag": { code: "TZ", name: "Tanzania" }, | ||||
| 		"lb": { code: "LU", name: "Luxembourg" }, | ||||
| 		"lg": { code: "UG", name: "Uganda" }, | ||||
| 		"lkt": { code: "US", name: "United States" }, | ||||
| 		"ln": { code: "AO", name: "Angola" }, | ||||
| 		"lo": { code: "LA", name: "Laos" }, | ||||
| 		"lrc": { code: "IQ", name: "Iraq" }, | ||||
| 		"lt": { code: "LT", name: "Lithuania" }, | ||||
| 		"lu": { code: "CD", name: "Democratic Republic of the Congo" }, | ||||
| 		"luo": { code: "KE", name: "Kenya" }, | ||||
| 		"Luo": { code: "KE", name: "Kenya" }, | ||||
| 		"luy": { code: "KE", name: "Kenya" }, | ||||
| 		"lv": { code: "LV", name: "Latvia" }, | ||||
| 		"mas": { code: "KE", name: "Kenya" }, | ||||
| 		"mer": { code: "KE", name: "Kenya" }, | ||||
| 		"mfe": { code: "MU", name: "Mauritius" }, | ||||
| 		"mg": { code: "MG", name: "Madagascar" }, | ||||
| 		"mgh": { code: "MZ", name: "Mozambique" }, | ||||
| 		"mgo": { code: "CM", name: "Cameroon" }, | ||||
| 		"mk": { code: "MK", name: "North Macedonia" }, | ||||
| 		"ml": { code: "IN", name: "India" }, | ||||
| 		"mn": { code: "MN", name: "Mongolia" }, | ||||
| 		"mr": { code: "IN", name: "India" }, | ||||
| 		"ms": { code: "BN", name: "Brunei" }, | ||||
| 		"mt": { code: "MT", name: "Malta" }, | ||||
| 		"mua": { code: "CM", name: "Cameroon" }, | ||||
| 		"my": { code: "MM", name: "Myanmar" }, | ||||
| 		"mzn": { code: "IR", name: "Iran" }, | ||||
| 		"naq": { code: "NA", name: "Namibia" }, | ||||
| 		"nb": { code: "NO", name: "Norway" }, | ||||
| 		"nd": { code: "ZW", name: "Zimbabwe" }, | ||||
| 		"nds": { code: "DE", name: "Germany" }, | ||||
| 		"ne": { code: "IN", name: "India" }, | ||||
| 		"nl": { code: "NL", name: "Netherlands" }, | ||||
| 		"nmg": { code: "CM", name: "Cameroon" }, | ||||
| 		"nn": { code: "NO", name: "Norway" }, | ||||
| 		"nnh": { code: "CM", name: "Cameroon" }, | ||||
| 		"nus": { code: "SS", name: "South Sudan" }, | ||||
| 		"nyn": { code: "UG", name: "Uganda" }, | ||||
| 		"om": { code: "ET", name: "Ethiopia" }, | ||||
| 		"or": { code: "IN", name: "India" }, | ||||
| 		"os": { code: "GE", name: "Georgia" }, | ||||
| 		"pa": { code: "PK", name: "Pakistan" }, | ||||
| 		"pl": { code: "PL", name: "Poland" }, | ||||
| 		"ps": { code: "AF", name: "Afghanistan" }, | ||||
| 		"pt": { code: "PT", name: "Portugal" }, | ||||
| 		"qu": { code: "BO", name: "Bolivia" }, | ||||
| 		"rm": { code: "CH", name: "Switzerland" }, | ||||
| 		"rn": { code: "BI", name: "Burundi" }, | ||||
| 		"ro": { code: "RO", name: "Romania" }, | ||||
| 		"rof": { code: "TZ", name: "Tanzania" }, | ||||
| 		"ru": { code: "RU", name: "Russia" }, | ||||
| 		"rw": { code: "RW", name: "Rwanda" }, | ||||
| 		"rwk": { code: "TZ", name: "Tanzania" }, | ||||
| 		"sah": { code: "RU", name: "Russia" }, | ||||
| 		"saq": { code: "KE", name: "Kenya" }, | ||||
| 		"sbp": { code: "TZ", name: "Tanzania" }, | ||||
| 		"se": { code: "SE", name: "Sweden" }, | ||||
| 		"seh": { code: "MZ", name: "Mozambique" }, | ||||
| 		"ses": { code: "ML", name: "Mali" }, | ||||
| 		"sg": { code: "CF", name: "Central African Republic" }, | ||||
| 		"shi": { code: "TN", name: "Tunisia" }, | ||||
| 		"si": { code: "LK", name: "Sri Lanka" }, | ||||
| 		"sk": { code: "SK", name: "Slovakia" }, | ||||
| 		"sl": { code: "SI", name: "Slovenia" }, | ||||
| 		"smn": { code: "FI", name: "Finland" }, | ||||
| 		"sn": { code: "ZW", name: "Zimbabwe" }, | ||||
| 		"so": { code: "SO", name: "Somalia" }, | ||||
| 		"sq": { code: "AL", name: "Albania" }, | ||||
| 		"sr": { code: "RS", name: "Serbia" }, | ||||
| 		"sv": { code: "SE", name: "Sweden" }, | ||||
| 		"sw": { code: "CD", name: "Democratic Republic of the Congo" }, | ||||
| 		"ta": { code: "IN", name: "India" }, | ||||
| 		"te": { code: "IN", name: "India" }, | ||||
| 		"teo": { code: "KE", name: "Kenya" }, | ||||
| 		"tg": { code: "TJ", name: "Tajikistan" }, | ||||
| 		"th": { code: "TH", name: "Thailand" }, | ||||
| 		"ti": { code: "ER", name: "Eritrea" }, | ||||
| 		"to": { code: "TO", name: "Tonga" }, | ||||
| 		"tr": { code: "TR", name: "Turkey" }, | ||||
| 		"tt": { code: "RU", name: "Russia" }, | ||||
| 		"twq": { code: "NE", name: "Niger" }, | ||||
| 		"tzm": { code: "MA", name: "Morocco" }, | ||||
| 		"ug": { code: "CN", name: "China" }, | ||||
| 		"uk": { code: "UA", name: "Ukraine" }, | ||||
| 		"ur": { code: "IN", name: "India" }, | ||||
| 		"uz": { code: "UZ", name: "Uzbekistan" }, | ||||
| 		"vai": { code: "TN", name: "Tunisia" }, | ||||
| 		"Vai": { code: "TN", name: "Tunisia" }, | ||||
| 		"vi": { code: "VN", name: "Vietnam" }, | ||||
| 		"vun": { code: "TZ", name: "Tanzania" }, | ||||
| 		"wae": { code: "CH", name: "Switzerland" }, | ||||
| 		"wo": { code: "SN", name: "Senegal" }, | ||||
| 		"xog": { code: "UG", name: "Uganda" }, | ||||
| 		"yav": { code: "CM", name: "Cameroon" }, | ||||
| 		"yi": { code: "01", name: "Unknown" }, // Placeholder for unspecified region | ||||
| 		"yo": { code: "BJ", name: "Benin" }, | ||||
| 		"yue": { code: "CN", name: "China" }, | ||||
| 		"zgh": { code: "MA", name: "Morocco" }, | ||||
| 		"zh": { code: "CN", name: "China" }, | ||||
| 		"zu": { code: "ZA", name: "South Africa" }, | ||||
| 	}; | ||||
|  | ||||
|  | ||||
|             }; | ||||
| 		//async function getCountryName(countryCode) { | ||||
| 			//try { | ||||
| 				//const response = await fetch(`https://restcountries.com/v3.1/alpha/${countryCode}`); | ||||
| 				//if (!response.ok) throw new Error('Country not found'); | ||||
| 				//const data = await response.json(); | ||||
| 				//// Return the name in the native language | ||||
| 				//return data[0].name.common;  | ||||
| 			//} catch (error) { | ||||
| 				//console.error(error); | ||||
| 				//return 'Unknown Country'; | ||||
| 			//} | ||||
| 		//} | ||||
|  | ||||
|             return languageToCountryMap[language] || null; | ||||
|         } | ||||
| 		function getCountryNameFromLanguage(language) { | ||||
| 			return languageToCountryMap[language] ? languageToCountryMap[language].name : null; | ||||
| 		} | ||||
|  | ||||
|         async function displayLocaleAndFlag() { | ||||
|             // Get the browser locale | ||||
|             const userLocale = navigator.language || navigator.userLanguage; | ||||
|             const { flag, isUnknown, countryCode } = getFlagEmoji(userLocale); | ||||
| 		function getCountryCodeFromLanguage(language) { | ||||
| 			return languageToCountryMap[language] ? languageToCountryMap[language].code : null; | ||||
| 		} | ||||
| 		 | ||||
| 		function getCountryNameFromCountryCode(countryCode) { | ||||
| 			//alert(`Country code: ${countryCode}`); | ||||
| 			for (const language in languageToCountryMap) { | ||||
| 				if (languageToCountryMap.hasOwnProperty(language)) { | ||||
| 					if (languageToCountryMap[language].code === countryCode) { | ||||
| 						return languageToCountryMap[language].name; | ||||
| 					} | ||||
| 				} | ||||
| 			} | ||||
| 			return null; // Return null if country code not found | ||||
| 		} | ||||
|  | ||||
|             // Display the locale and the corresponding flag (or fallback) | ||||
|             //document.getElementById('locale').textContent = `Your Locale: ${userLocale}`; | ||||
| 		function getFlagEmoji(locale) { | ||||
| 			// Split the locale to get the language and country code | ||||
| 			const parts = locale.split('-'); | ||||
| 			let countryCode; | ||||
|  | ||||
|             if (isUnknown) { | ||||
|                 const fallbackDiv = document.createElement('div'); | ||||
|                 fallbackDiv.className = 'fallback-box'; | ||||
|                 fallbackDiv.textContent = `? ${userLocale.toUpperCase()}`; // Only show ? and locale code inside the box | ||||
|                 //document.getElementById('flag-container').textContent = "Flag: "; | ||||
|                 document.getElementById('flag-container').appendChild(fallbackDiv); | ||||
|                 // Tooltip for fallback | ||||
|                 fallbackDiv.title = "Unknown Country"; // Tooltip for fallback | ||||
|             } else { | ||||
|                 const countryName = await getCountryName(countryCode); | ||||
|                 const flagSpan = document.createElement('span'); | ||||
|                 flagSpan.textContent = flag; // Use flag emoji | ||||
|                 flagSpan.title = countryName; // Tooltip for the flag in country language | ||||
|                 //document.getElementById('flag-container').textContent = "Flag: "; | ||||
|                 document.getElementById('flag-container').appendChild(flagSpan); | ||||
|             } | ||||
|         } | ||||
| 			// Handle single subtag (language only) or double subtag (language-country) | ||||
| 			if (parts.length === 1) { | ||||
| 				countryCode = getCountryCodeFromLanguage(parts[0]); | ||||
| 			} else if (parts.length === 2) { | ||||
| 				countryCode = parts[1].toLowerCase(); // Use the country code | ||||
| 			} | ||||
|  | ||||
|         displayLocaleAndFlag(); | ||||
| }); | ||||
| 			// If country code is not found, set a fallback output | ||||
| 			if (!countryCode) { | ||||
| 				const fallback = `? ${locale.toUpperCase()}`; // Just a question mark and the full locale | ||||
| 				return { flag: fallback, isUnknown: true, countryName: 'Unknown Country' }; | ||||
| 			} | ||||
|  | ||||
| 			// Convert the country code to a flag emoji | ||||
| 			return { | ||||
| 				flag: String.fromCodePoint(...[...countryCode.toUpperCase()].map(char => 0x1F1E6 + char.charCodeAt(0) - 'A'.charCodeAt(0))), | ||||
| 				isUnknown: false, | ||||
| 				countryCode: countryCode | ||||
| 			}; | ||||
| 		} | ||||
|  | ||||
| function displayLocaleAndFlag() { | ||||
|     // Get the browser locale | ||||
|     const userLocale = navigator.language || navigator.userLanguage; | ||||
|     //alert(`User Locale: ${userLocale}`); // Alert the detected locale | ||||
|  | ||||
|     const { flag, isUnknown, countryCode } = getFlagEmoji(userLocale); | ||||
|      | ||||
|     //alert(`Country Code: ${countryCode}, Is Unknown: ${isUnknown}`); // Debug country code and unknown flag status | ||||
|  | ||||
|     // Display the locale and the corresponding flag (or fallback) | ||||
|     //document.getElementById('locale').textContent = `Your Locale: ${userLocale}`; | ||||
|  | ||||
|     if (isUnknown) { | ||||
|         const fallbackDiv = document.createElement('div'); | ||||
|         fallbackDiv.className = 'fallback-box'; | ||||
|         fallbackDiv.textContent = `? ${userLocale.toUpperCase()}`; // Show ? and locale code inside the box | ||||
|         document.getElementById('flag-container').appendChild(fallbackDiv); | ||||
|          | ||||
|         // Tooltip for fallback | ||||
|         fallbackDiv.title = "Unknown Country"; // Tooltip for fallback | ||||
|         //alert('Fallback triggered: Unknown Country'); // Debug fallback | ||||
|     } else { | ||||
|         const countryName = getCountryNameFromCountryCode(countryCode.toUpperCase()); | ||||
|         //alert(`Country Name from Country Code: ${countryName}`); // Alert the country name | ||||
|  | ||||
|         const flagSpan = document.createElement('span'); | ||||
|         flagSpan.textContent = flag; // Use flag emoji | ||||
|         flagSpan.title = countryName; // Tooltip for the flag in country language | ||||
|         document.getElementById('flag-container').appendChild(flagSpan); | ||||
|          | ||||
|         //alert(`Flag Emoji: ${flag}`); // Debug flag emoji display | ||||
|     } | ||||
| } | ||||
| 		displayLocaleAndFlag(); | ||||
| 	}); | ||||
| @@ -64,7 +64,7 @@ | ||||
|                                         %       </a> | ||||
| 					%}; | ||||
| 					%my $remove_text = l('REMOVE');  # Localized text | ||||
| 					%my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 					%$csrf_token = "TOKEN";  # CSRF token for security | ||||
| 					%#my $hostentries_name = $_->{'HostName'};  # hostentries name extracted from the data structure | ||||
| 					%$actionRemove = qq{ | ||||
|                                         %       <a href="hostentriesd?CsrfDef=$csrf_token&trt=DEL&Hostname=$hostentries_name"> | ||||
|   | ||||
| @@ -90,7 +90,7 @@ | ||||
| 					%my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 					%my $ibays_entry_name = $ibay->key;  # ibays_entry name extracted from the data structure | ||||
| 					%$actionRemove = qq{ | ||||
|                                         %       <a href="ibaysd?CsrfDef=$csrf_token&trt=DEL&ibays=$ibays_entry_name"> | ||||
|                                         %       <a href="ibaysd?CsrfDef=$csrf_token&trt=DEL&ibay=$ibays_entry_name"> | ||||
| 					%	<button type='button' class='sme-remove-button' title='$remove_text' > | ||||
| 					%		$remove_text | ||||
| 					%	</button> | ||||
|   | ||||
| @@ -59,11 +59,11 @@ | ||||
|             %= t td => (class => 'sme-border') => "$first  $last" | ||||
|             %= t td => (class => 'sme-border') => $vpnaccess | ||||
|             %= t td => (class => 'sme-border') => $fwd | ||||
| 			%my ($actionModify, $actionLock, $actionResetPw, $actionRemove,$actionroundcube) = ' '; | ||||
| 			%my $modify_text = l('MODIFY');  # Localized text | ||||
| 			%my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 			%my $useraccounts_user_name = $user->key;  # useraccountss_entry name extracted from the data structure | ||||
| 			%my $password_text = l("PASSWORD_RESET"); | ||||
| 			% my ($actionModify, $actionLock, $actionResetPw, $actionRemove,$actionroundcube) = ' '; | ||||
| 			% my $modify_text = l('MODIFY');  # Localized text | ||||
| 			% my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 			% my $useraccounts_user_name = $user->key;  # useraccountss_entry name extracted from the data structure | ||||
| 			% my $password_text = l("PASSWORD_RESET"); | ||||
| 			%if ($useraccounts_user_name eq 'admin')  {  | ||||
| 				%$actionModify = qq{ | ||||
| 					%<a href="useraccountsd?CsrfDef=$csrf_token&trt=UPS&user=$useraccounts_user_name"> | ||||
| @@ -98,9 +98,9 @@ | ||||
| 					%</a> | ||||
| 				%}; | ||||
| 			%} elsif ($useraccounts_user_name ne 'admin') { | ||||
| 				%my $lock_text = l('ACCOUNT LOCKED');  # Localized text | ||||
| 				%my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 				%my $useraccounts_user_name = $user->key;  # useraccountss_entry name extracted from the data structure | ||||
| 				% my $lock_text = l('ACCOUNT LOCKED');  # Localized text | ||||
| 				% my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 				% my $useraccounts_user_name = $user->key;  # useraccountss_entry name extracted from the data structure | ||||
| 				%$actionLock = qq{ | ||||
| 					%<a href="useraccountsd?CsrfDef=$csrf_token&trt=LCK&user=$useraccounts_user_name"> | ||||
| 						%	<button type='button' class='sme-lock-button' title='$lock_text' > | ||||
| @@ -117,8 +117,8 @@ | ||||
| 					%}; | ||||
| 			%} | ||||
| 			%if ( $removable eq 'yes' )  {  | ||||
| 				%my $remove_text = l('REMOVE');  # Localized text | ||||
| 				%my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 				% my $remove_text = l('REMOVE');  # Localized text | ||||
| 				% my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 				%$actionRemove = qq{ | ||||
| 					%<a href="useraccountsd?CsrfDef=$csrf_token&trt=DEL&user=$useraccounts_user_name"> | ||||
| 					%	<button type='button' class='sme-remove-button' title='$remove_text' > | ||||
| @@ -128,13 +128,12 @@ | ||||
| 				%}; | ||||
| 			%} | ||||
| 			 | ||||
| 			%my $thisdomain = session 'SystemName'; | ||||
| 			%$thisdomain .= ".".session 'DomainName'; | ||||
| 			%my $roundcube_text = l('Webmail');  # Localized text | ||||
| 			%my $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 			%my $useraccounts_user_name = $user->key;  # useraccountss_entry name extracted from the data structure | ||||
| 			%$actionroundcube = qq{ | ||||
| 				%<a href="roundcubepanel?CsrfDef=$csrf_token&url=https://$thisdomain/roundcube?_user=$useraccounts_user_name"> | ||||
| 		    % my $thisdomain = $c->req->url->to_abs->host; | ||||
| 			% my $roundcube_text = l('Webmail');  # Localized text | ||||
| 			% $csrf_token = "TOKEN";  # CSRF token for security | ||||
| 			% $useraccounts_user_name = $user->key;  # useraccountss_entry name extracted from the data structure | ||||
| 			% $actionroundcube = qq{ | ||||
| 				%<a href="roundcubepanel?CsrfDef=$csrf_token&url=https://$thisdomain/roundcube?_user=$useraccounts_user_name&height=600px"> | ||||
| 				%	<button type='button' class='sme-email-button' title='$roundcube_text' > | ||||
| 				%		$roundcube_text | ||||
| 				%	</button> | ||||
| @@ -156,4 +155,4 @@ | ||||
|  | ||||
|         %= hidden_field 'trt' => $usr_datas->{trt} | ||||
|  | ||||
| </div> | ||||
| </div> | ||||
|   | ||||
| @@ -14,25 +14,26 @@ | ||||
| 			%= $c->render_to_string(inline => stash 'error')  | ||||
| 		</div> | ||||
|     %} | ||||
|     <h1> roundcube - <%=$title %></h1><br> | ||||
|     <p>If the roundcube panel does not appear after logging in, then please check your password.</p><br /> | ||||
|     <h1><%=$title %></h1><br> | ||||
|     <p>If the Webmail panel does not appear after logging in, then please check your password.</p><br /> | ||||
|  | ||||
|     % my $thisdomain = session 'SystemName'; | ||||
|     % $thisdomain .= ".".session 'DomainName'; | ||||
|     % my $thisdomain = $c->req->url->to_abs->host; | ||||
|     % my $url = $c->stash('modul'); | ||||
|     % if (!$url) { | ||||
| 	%	$url = $thisdomain."/roundcube"; | ||||
| 	%} | ||||
|     % my $username = 'admin'; | ||||
|     % if ($url =~ /[?&]_user=([^&]+)/) { | ||||
| 	%	$username = $1; | ||||
| 	%} | ||||
| 	 | ||||
| 	<a href="<%= "https://".$thisdomain."/" %>roundcube?_user=<%= $username %>"><button class="sme-fullwindow1-button" width=20em title="<%= l('Full Window') %>"><%= l('Full Window') %></button></a> | ||||
|  | ||||
|     % my $height = $c->stash('height') | '600px'; | ||||
|     % if ($height !~ /px$/) { $height = $height.'px';} | ||||
|     % if ($url eq "") { | ||||
| 	%	$url = "https://".$thisdomain."/roundcube"; | ||||
| 	% if (!($url =~ /https:/)) { | ||||
|     % $url = 'https://' . $url; | ||||
| 	%} | ||||
| 	<object id="roundcube" class="roundcube" data="<%=$url %>" style="width:99%;height:<%= $height %>;" title="<%= $c->stash('title') %>"  type="text/html" ><%= $c->stash('title') %> not found</object> | ||||
|  | ||||
|     <div class='roundcube'> | ||||
| 		<a href="<%= "https://".$thisdomain."/" %>roundcube?_user=<%= $username %>"><button class="sme-fullwindow1-button" width=20em title="<%= l('Full Window') %>"><%= l('Full Window') %></button></a> | ||||
| 		<object id="roundcube" data="<%=$url %>" title="<%= $c->stash('title') %>"  type="text/html" ><%= $c->stash('title') %> not found</object> | ||||
| 	</div> | ||||
| </div> | ||||
|  | ||||
|  | ||||
|   | ||||
| @@ -2,7 +2,7 @@ Summary: Sme server  navigation module : manager 2 | ||||
| %define name smeserver-manager | ||||
| Name: %{name} | ||||
| %define version 11.0.0 | ||||
| %define release 47 | ||||
| %define release 51 | ||||
| Version: %{version} | ||||
| Release: %{release}%{?dist} | ||||
| License: GPL | ||||
| @@ -143,6 +143,23 @@ true | ||||
| %defattr(-,root,root) | ||||
|  | ||||
| %changelog | ||||
| * Mon Feb 10 2025 Brian Read <brianr@koozali.org> 11.0.0-51.sme | ||||
| - Replace url in call to webmail by browser url rather than system host and domain [SME: 12910] | ||||
| - Fix up CSS so not inline | ||||
| - Sort out reveiw panel missing routines from FormMagic [SME: 12907]. | ||||
|  | ||||
| * Sun Feb 09 2025 Brian Read <brianr@koozali.org> 11.0.0-50.sme | ||||
| - Move all routines from FormMagic still called by SM2 panels to SM2 [SME: 12906] | ||||
| - delete all references to FormMagic  | ||||
|  | ||||
| * Fri Feb 07 2025 Brian Read <brianr@koozali.org> 11.0.0-49.sme | ||||
| - Fix delete of ibay - typo in link | ||||
| - Move across toMB() sub from formmagick to quota.pm | ||||
| - Recast DB opening so it is specific to the route rather than global [SME: 12905] | ||||
|  | ||||
| * Wed Jan 29 2025 Brian Read <brianr@koozali.org> 11.0.0-48.sme | ||||
| - Make Country flag display independant of the internet. [SME: 12893] | ||||
|  | ||||
| * Tue Jan 28 2025 Brian Read <brianr@koozali.org> 11.0.0-47.sme | ||||
| - Temp (we hope) remove CSRF protection plugin  [SME: ] | ||||
| - Fix comparison in footer with config->mode  | ||||
|   | ||||
		Reference in New Issue
	
	Block a user