236 lines
6.4 KiB
Perl
236 lines
6.4 KiB
Perl
package SrvMngr::Controller::Review;
|
|
|
|
#----------------------------------------------------------------------
|
|
# heading : Support
|
|
# description : Review configuration
|
|
# navigation : 000 500
|
|
# menu : N
|
|
# routes : end
|
|
#----------------------------------------------------------------------
|
|
# heading-o : Configuration
|
|
# description-o : Review configuration
|
|
# navigation-o : 6000 6800
|
|
|
|
#----------------------------------------------------------------------
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Mojo::Base 'Mojolicious::Controller';
|
|
|
|
use Locale::gettext;
|
|
use SrvMngr::I18N;
|
|
|
|
use SrvMngr qw(theme_list init_session);
|
|
|
|
#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";
|
|
|
|
|
|
sub main {
|
|
my $c = shift;
|
|
$c->app->log->info($c->log_req);
|
|
|
|
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'} =
|
|
esmith::FormMagick::Panel::review->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');
|
|
|
|
}
|
|
|
|
|
|
=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("rvw_EMAIL_USERACCOUNT");
|
|
my $firstname = $c->l("rvw_EMAIL_FIRSTNAME");
|
|
my $lastname = $c->l("rvw_EMAIL_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;
|
|
}
|
|
|
|
|
|
=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;
|
|
|
|
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;
|
|
}
|
|
return $out;
|
|
}
|
|
}
|
|
|
|
|
|
=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;
|
|
|
|
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');
|
|
}
|
|
}
|
|
return $out;
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
=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('rvw_GATEWAY').':'.get_value($c,'GatewayIP');
|
|
}
|
|
return $out
|
|
}
|
|
}
|
|
=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') );
|
|
}
|
|
|
|
}
|
|
|
|
=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') || '' );
|
|
}
|
|
return $out;
|
|
}
|
|
|
|
|
|
1;
|