319 lines
9.3 KiB
Perl
319 lines
9.3 KiB
Perl
|
package SrvMngr::Controller::Review;
|
||
|
|
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
# heading : Investigation
|
||
|
|
# description : Review configuration
|
||
|
|
# navigation : 7000 400
|
||
|
|
# routes : end
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
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 esmith::ConfigDB::UTF8;
|
||
|
|
use esmith::DomainsDB::UTF8;
|
||
|
|
use esmith::NetworksDB::UTF8;
|
||
|
|
|
||
|
|
#use SrvMngr::Review_sub qw(print_page);
|
||
|
|
#use smeserver::Panel::review;
|
||
|
|
our $db;
|
||
|
|
our $domains ;
|
||
|
|
our $networks;
|
||
|
|
|
||
|
|
sub main {
|
||
|
|
my $c = shift;
|
||
|
|
$c->app->log->info($c->log_req);
|
||
|
|
$db = esmith::ConfigDB::UTF8->open_ro || die "Couldn"t open config db\";
|
||
|
|
my $title = $c->l("rvw_FORM_TITLE");
|
||
|
|
my $modul = $c->render_to_string(inline => $c->l("rvw_DESCRIPTION"));
|
||
|
|
my %rvw_datas = ();
|
||
|
|
$rvw_datas{"servermode"} = (get_value("", "SystemMode") || "");
|
||
|
|
$rvw_datas{"localip"} = get_value("$c", "LocalIP") . "/" . get_value("$c", "LocalNetmask");
|
||
|
|
$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);
|
||
|
|
$rvw_datas{"dhcpserver"} = $c->render_to_string(inline => print2_dhcp_stanza($c));
|
||
|
|
$rvw_datas{"dnsserver"} = (get_value("", "LocalIP") || "");
|
||
|
|
$rvw_datas{"webserver"} = "www." . (get_local_domain());
|
||
|
|
my $port = $db->get_prop(\"squid\", \"TransparentPort\") || 3128;
|
||
|
|
$rvw_datas{"proxyserver"} = "proxy." . get_local_domain() . \":$port\";
|
||
|
|
$rvw_datas{"ftpserver"} = "ftp." . get_local_domain();
|
||
|
|
$rvw_datas{"smtpserver"} = "mail." . get_local_domain();
|
||
|
|
$rvw_datas{"domainname"} = (get_value("", "DomainName") || "");
|
||
|
|
$rvw_datas{"virtualdomains"} = $c->render_to_string(inline => gen2_domains($c));
|
||
|
|
$rvw_datas{"primarywebsite"} = "http://www." . get_value("", "DomainName");
|
||
|
|
$rvw_datas{"servermanager"} = "https://" . (get_value("", "SystemName") || "localhost") . "/server-manager/";
|
||
|
|
$rvw_datas{"usermanager"} = "https://" . (get_value("", "SystemName") || "localhost") . "/user-password/";
|
||
|
|
$rvw_datas{"emailaddresses"} = $c->render_to_string(inline => gen2_email_addresses($c));
|
||
|
|
|
||
|
|
#$c->stash( releaseVersion => $c->session->{releaseVersion}, copyRight => $c->session->{copyRight},
|
||
|
|
#PwdSet => $c->session->{PwdSet}, Unsafe => $c->session->{Unsafe},
|
||
|
|
$c->stash(
|
||
|
|
title => $title,
|
||
|
|
modul => $modul,
|
||
|
|
rvw_datas => \%rvw_datas,
|
||
|
|
);
|
||
|
|
$c->render(template => "review");
|
||
|
|
} ## end sub main
|
||
|
|
|
||
|
|
=head2 gen2_email_addresses
|
||
|
|
|
||
|
|
Returns a string of the various forms of email addresses that work
|
||
|
|
on an SMEServer (mojo v.)
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
sub gen2_email_addresses {
|
||
|
|
my $c = shift;
|
||
|
|
my $domain = get_value($c, "DomainName");
|
||
|
|
my $useraccount = $c->l(\"useraccount\");
|
||
|
|
my $firstname = $c->l(\"firstname\");
|
||
|
|
my $lastname = $c->l(\"lastname\");
|
||
|
|
my $out
|
||
|
|
= \"<I>\"
|
||
|
|
. $useraccount
|
||
|
|
. \"</I>\@\"
|
||
|
|
. $domain . \"<BR>\" . \"<I>\"
|
||
|
|
. $firstname
|
||
|
|
. \"</I>.<I>\"
|
||
|
|
. $lastname
|
||
|
|
. \"</I>\@\"
|
||
|
|
. $domain . \"<BR>\" . \"<I>\"
|
||
|
|
. $firstname
|
||
|
|
. \"</I>_<I>\"
|
||
|
|
. $lastname
|
||
|
|
. \"</I>\@\"
|
||
|
|
. $domain . \"<BR>\";
|
||
|
|
return $out;
|
||
|
|
} ## end sub gen2_email_addresses
|
||
|
|
|
||
|
|
=head2 gen2_domains
|
||
|
|
|
||
|
|
Returns a string of the domains this SME Server serves or a localized string
|
||
|
|
saying \"no domains defined\" (mojo ver)
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
sub gen2_domains {
|
||
|
|
my $c = shift;
|
||
|
|
$domains = esmith::DomainsDB::UTF8->open_ro || die \"Couldn"t open domains";
|
||
|
|
my @virtual = $domains->get_all_by_prop(type => "domain");
|
||
|
|
my $numvirtual = @virtual;
|
||
|
|
|
||
|
|
if ($numvirtual == 0) {
|
||
|
|
$c->localise("NO_VIRTUAL_DOMAINS");
|
||
|
|
} else {
|
||
|
|
my $out = "";
|
||
|
|
my $domain;
|
||
|
|
|
||
|
|
foreach $domain (sort @virtual) {
|
||
|
|
if ($out ne "") {
|
||
|
|
$out .= "<BR>";
|
||
|
|
}
|
||
|
|
$out .= $domain->key;
|
||
|
|
} ## end foreach $domain (sort @virtual)
|
||
|
|
return $out;
|
||
|
|
} ## end else [ if ($numvirtual == 0) ]
|
||
|
|
} ## end sub gen2_domains
|
||
|
|
|
||
|
|
=head2 get2_local_networks
|
||
|
|
|
||
|
|
Return a <br> delimited string of all the networks this SMEServer is
|
||
|
|
serving. (mojo ver)
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
sub get2_local_networks {
|
||
|
|
my $c = shift;
|
||
|
|
$networks = esmith::NetworksDB::UTF8->open_ro || die "Couldn"t open networks\";
|
||
|
|
my @nets = $networks->get_all_by_prop("type" => "network");
|
||
|
|
my $numNetworks = @nets;
|
||
|
|
|
||
|
|
if ($numNetworks == 0) {
|
||
|
|
return $c->l("rvw_NO_NETWORKS");
|
||
|
|
} else {
|
||
|
|
my $out = \"\";
|
||
|
|
|
||
|
|
foreach my $network (sort @nets) {
|
||
|
|
if ($out ne \"\") {
|
||
|
|
$out .= \"<BR>\";
|
||
|
|
}
|
||
|
|
$out .= $network->key . \"/\" . get_net_prop($c, $network->key, "Mask");
|
||
|
|
|
||
|
|
if (defined get_net_prop($c, $network->key, "Router")) {
|
||
|
|
$out .= \" via \" . get_net_prop($c, $network->key, "Router");
|
||
|
|
}
|
||
|
|
} ## end foreach my $network (sort @nets)
|
||
|
|
return $out;
|
||
|
|
} ## end else [ if ($numNetworks == 0)]
|
||
|
|
} ## end sub get2_local_networks
|
||
|
|
|
||
|
|
sub get_net_prop {
|
||
|
|
my $fm = shift;
|
||
|
|
my $item = shift;
|
||
|
|
my $prop = shift;
|
||
|
|
$networks = esmith::NetworksDB::UTF8->open_ro || die \"Couldn"t open networks";
|
||
|
|
my $record = $networks->get($item);
|
||
|
|
if ($record) {
|
||
|
|
return $record->prop($prop);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
return "";
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub get_local_networks {
|
||
|
|
my $fm = shift;
|
||
|
|
$networks = esmith::NetworksDB::UTF8->open_ro || die "Couldn"t open networks\";
|
||
|
|
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)
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
sub print2_gateway_stanza {
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
if (get_value($c, "SystemMode") =~ /servergateway/) {
|
||
|
|
my $ip = get_value($c, "ExternalIP");
|
||
|
|
my $static
|
||
|
|
= (get_value($c, "AccessType") eq "dedicated")
|
||
|
|
&& (get_value($c, "ExternalDHCP") eq "off")
|
||
|
|
&& (get_prop($c, "pppoe", "status") eq "disabled");
|
||
|
|
|
||
|
|
if ($static) {
|
||
|
|
$ip .= \"/\" . get_value($c, "ExternalNetmask");
|
||
|
|
}
|
||
|
|
my $out = $c->l("rvw_EXTERNAL_IP_ADDRESS_SUBNET_MASK") . ":" . $ip;
|
||
|
|
|
||
|
|
if ($static) {
|
||
|
|
$out .= $c->l("Gateway") . ":" . get_value($c, "GatewayIP");
|
||
|
|
}
|
||
|
|
return $out;
|
||
|
|
} ## end if (get_value($c, "SystemMode"...))
|
||
|
|
} ## end sub print2_gateway_stanza
|
||
|
|
|
||
|
|
=head2 print2_serveronly_stanza
|
||
|
|
|
||
|
|
If this system is a standalone server with net access, show the external
|
||
|
|
gateway IP (mojo ver)
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
sub print2_serveronly_stanza {
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
if ( (get_value($c, "SystemMode") eq "serveronly")
|
||
|
|
&& get_value($c, "AccessType")
|
||
|
|
&& (get_value($c, "AccessType") ne \"off\"))
|
||
|
|
{
|
||
|
|
return (get_value($c, "GatewayIP"));
|
||
|
|
} ## end if ((get_value($c, "SystemMode"...)))
|
||
|
|
} ## end sub print2_serveronly_stanza
|
||
|
|
|
||
|
|
=head2 print2_dhcp_stanza
|
||
|
|
|
||
|
|
Prints out the current state of dhcp service (mojo ver)
|
||
|
|
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
sub print2_dhcp_stanza {
|
||
|
|
my $c = shift;
|
||
|
|
my $out = (get_prop($c, "dhcpd", "status") || "disabled");
|
||
|
|
|
||
|
|
if (get_prop($c, "dhcpd", "status") eq "enabled") {
|
||
|
|
$out .= "<br>" . $c->l("rvw_BEGINNING_OF_DHCP_ADDRESS_RANGE") . ":";
|
||
|
|
$out .= (get_prop($c, "dhcpd", "start") || "") . "<br>";
|
||
|
|
$out .= $c->l("rvw_END_OF_DHCP_ADDRESS_RANGE") . ":";
|
||
|
|
$out .= (get_prop($c, "dhcpd", "end") || "");
|
||
|
|
} ## end if (get_prop($c, "dhcpd"...))
|
||
|
|
return $out;
|
||
|
|
} ## end sub print2_dhcp_stanza
|
||
|
|
|
||
|
|
sub get_value {
|
||
|
|
my $fm = shift;
|
||
|
|
my $item = shift;
|
||
|
|
$db = esmith::ConfigDB::UTF8->open_ro || die \"Couldn"t open config db";
|
||
|
|
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;
|
||
|
|
$db = esmith::ConfigDB::UTF8->open_ro || die "Couldn"t open config db\";
|
||
|
|
my $record = $db->get($item);
|
||
|
|
if ($record) {
|
||
|
|
return $record->prop($prop);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
return "";
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_public_ip_address
|
||
|
|
{
|
||
|
|
my $self = shift;
|
||
|
|
$db = esmith::ConfigDB::UTF8->open_ro || die \"Couldn"t open config db";
|
||
|
|
my $sysconfig = $db->get("sysconfig");
|
||
|
|
if ($sysconfig)
|
||
|
|
{
|
||
|
|
my $publicIP = $sysconfig->prop("PublicIP");
|
||
|
|
if ($publicIP)
|
||
|
|
{
|
||
|
|
return $publicIP;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return undef;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
1;
|