index.cgi

#!/usr/bin/perl

#
# Authentic Theme 14.02 (https://github.com/qooob/authentic-theme)
# Copyright 2015 Ilia Rostovtsev <programming@rostovtsev.ru>
# Licensed under MIT (https://github.com/qooob/authentic-theme/blob/master/LICENSE)
#

BEGIN { push( @INC, ".." ); }
use WebminCore;
&ReadParse();
&init_config();

# Detecting Virtualmin/Cloudmin request
our $is_virtualmin = index( $ENV{'REQUEST_URI'}, 'virtualmin' );
our $is_cloudmin   = index( $ENV{'REQUEST_URI'}, 'cloudmin' );
our $is_webmail    = index( $ENV{'REQUEST_URI'}, 'mail' );

%text    = &load_language($current_theme);
%gaccess = &get_module_acl( undef, "" );
$title   = &get_html_framed_title();

if (  !-d $root_directory . "/authentic-theme"
    && -d $root_directory . "/authentic-theme-master" )
{
    die("ATTENTION:\nHave you downloaded Authentic Theme from GitHub, and unpacked it manually\nto Webmin directory? In this case you need to rename theme directory from\n`authentic-theme-master` to `authentic-theme` in order to make theme work.\nAfterward, you will need to reset the theme again in Webmin Configuration.\n"
    );
}

# Load dependencies
do "authentic-theme/authentic-lib.cgi";

# Check user settings on default page for Virtualmin/Cloudmin
if (   $is_virtualmin != -1
    && length __settings('settings_right_virtualmin_default')
    && __settings('settings_right_virtualmin_default') ne ''
    && domain_available( __settings('settings_right_virtualmin_default') ) )
{
    parse_virtual_server_access_level();
    if ( $virtual_server_access_level eq '2' ) {
        our $udefgoto = '/sysinfo.cgi';
    }
    else {
        our $udefgoto = '/virtual-server/summary_domain.cgi?dom='
            . __settings('settings_right_virtualmin_default');
    }
}
elsif ($is_cloudmin != -1
    && length __settings('settings_right_cloudmin_default')
    && __settings('settings_right_cloudmin_default') ne ''
    && server_available( __settings('settings_right_cloudmin_default') ) )
{
    our $udefgoto = '/server-manager/edit_serv.cgi?id='
        . __settings('settings_right_cloudmin_default');
}
else {
    our $udefgoto = '/sysinfo.cgi';
}

#Going to default right page
$minfo = &get_goto_module();
$__goto
    = ( $is_virtualmin != -1 || $is_cloudmin != -1 ) ? $udefgoto
    : $minfo ? "$minfo->{'dir'}/"
    :          $udefgoto;

# Redirect user away, in case requested mode can not be satisfied
if ($ENV{'REQUEST_URI'} ne '/' && $ENV{'REQUEST_URI'} ne '/?virtualmin' && $ENV{'REQUEST_URI'} ne '/?cloudmin' && $ENV{'REQUEST_URI'} ne '/?mail' && index( $ENV{'REQUEST_URI'}, 'xhr' ) lt 0) {
    $webmin
        = ( $ENV{'HTTPS'} ? 'https://' : 'http://' )
        . $ENV{'HTTP_HOST'} . '/';
    print "Location: $webmin\n\n";
}
elsif (   ( $is_virtualmin != -1 && !&foreign_available("virtual-server") )
    || ( $is_cloudmin != -1 && !&foreign_available("server-manager") )
    || ($is_webmail != -1
        && (&get_product_name() ne 'usermin'
            || ( &get_product_name() eq 'usermin'
                && !&foreign_available("mailbox") )
        )
    )
    )
{
    print "Set-Cookie: redirect=0; path=/\r\n";
    $webmin
        = ( $ENV{'HTTPS'} ? 'https://' : 'http://' )
        . $ENV{'HTTP_HOST'} . '/';
    print "Location: $webmin\n\n";
}

# In case Virtualmin/Cloudmin is installed, after logging in, redirect to Virtualmin/Cloudmin
if ($ENV{'HTTP_COOKIE'} =~ /redirect=1/
    && (   &foreign_available("virtual-server")
        || &foreign_available("server-manager") )
    && &get_product_name() eq "webmin"
    && ( $is_virtualmin == -1 && $is_cloudmin == -1 )
    )
{
    print "Set-Cookie: redirect=0; path=/\r\n";
    $virtualmin
        = ( $ENV{'HTTPS'} ? 'https://' : 'http://' )
        . $ENV{'HTTP_HOST'}
        . (
        length __settings('settings_right_default_tab_webmin')
        ? __settings('settings_right_default_tab_webmin')
        : '/'
        );
    print "Location: $virtualmin\n\n";
}

# In case Mailbox module is installed, after logging in, redirect to Webmail
if (   $ENV{'HTTP_COOKIE'} =~ /redirect=1/
    && &foreign_check("mailbox")
    && &foreign_available("mailbox")
    && &get_product_name() eq "usermin"
    && $is_webmail == -1 )
{
    print "Set-Cookie: redirect=0; path=/\r\n";
    $webmail
        = ( $ENV{'HTTPS'} ? 'https://' : 'http://' )
        . $ENV{'HTTP_HOST'}
        . (
        length __settings('settings_right_default_tab_usermin')
        ? __settings('settings_right_default_tab_usermin')
        : '/'
        );
    print "Location: $webmail\n\n";
}

if ( $ENV{'HTTP_COOKIE'} =~ /redirect=1/ ) {
    print "Set-Cookie: redirect=0; path=/\r\n";

    # Notify on successful authentication
    notify('settings_security_notify_on_login_success');
}

# Clearing possibly stuck update states
if (   index( $ENV{'REQUEST_URI'}, 'updating' ) != -1
    || index( $ENV{'REQUEST_URI'}, 'updating-processing' ) != -1
    || index( $ENV{'REQUEST_URI'}, 'recollect' ) != -1
    || index( $ENV{'REQUEST_URI'}, 'recollect-system-status' ) != -1
    || index( $ENV{'REQUEST_URI'}, 'recollecting' ) != -1
    || index( $ENV{'REQUEST_URI'}, 'recollecting-system-status' ) != -1
    || index( $ENV{'REQUEST_URI'}, 'recollecting-package-updates' ) != -1
    || index( $ENV{'REQUEST_URI'}, 'recollecting-package-updates-processing' )
    != -1 )
{
    if ( $is_virtualmin != -1 ) {
        $virtualmin
            = ( $ENV{'HTTPS'} ? 'https://' : 'http://' )
            . $ENV{'HTTP_HOST'}
            . '/?virtualmin';
        print "Location: $virtualmin\n\n";
    }
    elsif ( $is_cloudmin != -1 ) {
        $cloudmin
            = ( $ENV{'HTTPS'} ? 'https://' : 'http://' )
            . $ENV{'HTTP_HOST'}
            . '/?cloudmin';
        print "Location: $cloudmin\n\n";
    }
    else {
        $webmin
            = ( $ENV{'HTTPS'} ? 'https://' : 'http://' )
            . $ENV{'HTTP_HOST'} . '/';
        print "Location: $webmin\n\n";
    }
}

parse_virtual_server_access_level();

# Provide unobstructive access for AJAX calls
if ( $in{'xhr-navigation'} eq '1' ) {
    print "Content-type: text/html\n\n";
    do "authentic-theme/navigation.cgi";
}
elsif ( $in{'xhr-buttons'} eq '1' ) {
    print "Content-type: text/html\n\n";
    do "authentic-theme/buttons.cgi";
}
elsif ( $in{'xhr-switch'} eq '1' ) {
    print "Content-type: text/html\n\n";
    print $__goto;
}
elsif ( $in{'xhr-settings'} eq '1' ) {
    print "Content-type: text/html\n\n";
    if ( $in{'save'} eq '1' ) {
        _settings( 'save', undef, undef );
    }
    elsif ( $in{'restore'} eq '1' ) {
        _settings( 'restore', undef, undef );
    }
    else {
        do "authentic-theme/settings.cgi";
    }
}
else {

    # Force regular user to be in Virtualmin
    if (   $virtual_server_access_level eq '2'
        && $ENV{'REQUEST_URI'} ne '/?virtualmin' )
    {
        $virtualmin
            = ( $ENV{'HTTPS'} ? 'https://' : 'http://' )
            . $ENV{'HTTP_HOST'}
            . '/?virtualmin';
        print "Location: $virtualmin\n\n";
    }

    &header($title);

    #### Wrapper. Start.
    #
    #
    print '<div id="wrapper" data-product="'
        . &get_product_name()
        . '" data-virtual-server="'
        . $is_virtualmin
        . '" data-server-manager="'
        . $is_cloudmin
        . '" data-webmail="'
        . $is_webmail
        . '" data-access-level="'
        . $virtual_server_access_level
        . '" data-hostname="'
        . &get_display_hostname()
        . '" class="index">' . "\n";

    #### Mobile. Start.
    print
        '<div class="visible-xs mobile-menu-toggler" style="position: fixed">';
    print
        '<button type="button" class="btn btn-primary btn-menu-toggler" style="padding-left: 6px; padding-right: 5px;">'
        . "\n";
    print '<i class="fa fa-fw fa-lg fa-bars"></i>' . "\n";
    print '</button>' . "\n";
    print '</div>' . "\n";
    #### Mobile. End.

    #### Left side desktop. Start.
    print '<aside style="z-index:10;" id="sidebar" class="hidden-xs">' . "\n"
        . "\n";

    ### Product switcher. Start.
    #
    #
    if (   &get_product_name() eq 'webmin'
        && &foreign_available("asterisk") )
    {
        our $switch_mode  = '2';
        our $product_mode = '5';
    }
    elsif (&get_product_name() eq 'usermin'
        && &foreign_available("mailbox") )
    {
        our $switch_mode  = '2';
        our $product_mode = '4';
    }
    elsif (!&foreign_available("virtual-server")
        && !&foreign_available("server-manager")
        || &get_product_name() eq 'usermin'
        || $virtual_server_access_level eq '2' )
    {
        our $switch_mode  = '3';
        our $product_mode = '1';
    }
    elsif (&foreign_available("virtual-server")
        && &foreign_available("server-manager") )
    {
        our $switch_mode  = '3';
        our $product_mode = '3';
    }
    elsif (
           &foreign_available("virtual-server")
        || &foreign_available("server-manager")
        && (   !&foreign_available("virtual-server")
            || !&foreign_available("server-manager") )
        )
    {
        our $switch_mode  = '2';
        our $product_mode = '2';
    }

    print '<div class="switch-toggle switch-'
        . $switch_mode
        . ' switch-mins">';

    if ( $product_mode eq '1' ) {
        print_switch_empty(1);
        $virtual_server_access_level eq '2'
            ? print_switch_virtualmin()
            : print_switch_webmin();
        print_switch_empty(2);
    }
    if ( $product_mode eq '2' ) {
        print_switch_webmin(1);
        &foreign_available("virtual-server")
            ? print_switch_virtualmin(1)
            : print_switch_cloudmin(1);
    }
    if ( $product_mode eq '3' ) {
        print_switch_webmin(1);
        print_switch_virtualmin(1);
        print_switch_cloudmin(1);
    }
    if ( $product_mode eq '4' ) {
        print_switch_webmail(1);
        print_switch_webmin(1);
    }
    if ( $product_mode eq '5' ) {
        print_switch_webmin(1);
        print_switch_thirdlane(1);
    }

    print '<a></a>
            </div><br style="line-height:4.4">';

    #
    #
    ### Product switcher. Start.

    ## Navigation Main Container. Start.
    print '<ul class="navigation">' . "\n";
    do "authentic-theme/navigation.cgi";
    print '</ul>' . "\n";
    ## Navigation Main Container. End.

    ### User Buttons. Start.
    print '<br><br><ul class="user-links">';
    do "authentic-theme/buttons.cgi";
    print '</ul>';
    ### User Buttons. End.

    print '</aside>' . "\n";
    #### Left Side. End.

    #Process logo
    embed_logo();

    ### Right Side. Start.
    print '<div id="content" class="__page">' . "\n";
    print '<div class="loader-container">' . "\n";
    print '<div class="loader"><span class="loading"></span></div>' . "\n";
    print '</div>' . "\n";
    print
        '<script>__lrs()</script>';
    print '<iframe name="page" id="iframe" src="'
        . $gconfig{'webprefix'}
        . (
        ( !-f $root_directory . '/authentic-theme/update' )
        ? $__goto
        : '/sysinfo.cgi'
        ) . '">' . "\n";
    print '</iframe>' . "\n";
    print '</div>' . "\n";
    ### Right Side. End.

    #print '</div>' . "\n"; // Possibly stray tag
    #
    #
    #### Wrapper. End.

    &footer();
}