', $_[0], '

' . "\n"; print '

' . "\n"; print "\n"; if ( $gconfig{'sysinfo'} == 2 && $remote_user ) { print "\n"; } print '\n"; if ( $_[1] ) { print "\n"; } else { my $ts = defined( $tconfig{'titlesize'} ) ? $tconfig{'titlesize'} : "+2"; print "\n"; } print "

\n"; print &get_html_status_line(1); print "

'; if ( $ENV{'HTTP_WEBMIN_SERVERS'} && !$tconfig{'framed'} ) { print "", "$text{'header_servers'}
\n"; } if ( !$_[5] && !$tconfig{'noindex'} ) { my @avail = &get_available_module_infos(1); my $nolo = $ENV{'ANONYMOUS_USER'} || $ENV{'SSL_USER'} || $ENV{'LOCAL_USER'} || $ENV{'HTTP_USER_AGENT'} =~ /webmin/i; if ( $gconfig{'gotoone'} && $main::session_id && @avail == 1 && !$nolo ) { print "", "$text{'main_logout'}
"; } elsif ( $gconfig{'gotoone'} && @avail == 1 && !$nolo ) { print "", "$text{'main_switch'}
"; } elsif ( !$gconfig{'gotoone'} || @avail > 1 ) { print "$text{'header_webmin'}
\n"; } } if ( !$_[4] && !$tconfig{'nomoduleindex'} ) { my $idx = $this_module_info{'index_link'}; my $mi = $module_index_link || "/" . &get_module_name() . "/$idx"; my $mt = $module_index_name || $text{'header_module'}; print "$mt
\n"; } if ( ref( $_[2] ) eq "ARRAY" && !$ENV{'ANONYMOUS_USER'} && !$tconfig{'nohelp'} ) { print &hlink( $text{'header_help'}, $_[2]->[0], $_[2]->[1] ), "
\n"; } elsif (defined( $_[2] ) && !$ENV{'ANONYMOUS_USER'} && !$tconfig{'nohelp'} ) { print &hlink( $text{'header_help'}, $_[2] ), "
\n"; } if ( $_[3] ) { my %access = &get_module_acl(); if ( !$access{'noconfig'} && !$config{'noprefs'} ) { my $cprog = $user_module_config_directory ? "uconfig.cgi" : "config.cgi"; print "", $text{'header_config'}, "
\n"; } } print "

", " $\"$_[0]\"$

", ( $ts ? "" : "" ), $_[0], ( $ts ? "" : "" ); print "
$_[9]\n" if ( $_[9] ); print "

"; print $_[6]; print "

\n"; print $tconfig{'postheader'}; print '

' . "\n"; print '

' . "\n"; } $miniserv::page_capture = 1; } sub theme_popup_prehead { if ( index( $ENV{'REQUEST_URI'}, 'help.cgi' ) != 1 ) { print '', "\n"; print '' . "\n"; print '' . "\n"; print '', "\n"; print '', "\n"; print '', "\n"; print '', "\n"; print '', "\n"; } } sub theme_footer { for ( my $i = 0; $i + 1 < @_; $i += 2 ) { my $url = $_[$i]; if ( $url ne '/' || !$tconfig{'noindex'} ) { if ( $url eq '/' ) { $url = "/?cat=$this_module_info{'category'}"; } elsif ( $url eq '' && &get_module_name() ) { $url = "/" . &get_module_name() . "/" . $this_module_info{'index_link'}; } elsif ( $url =~ /^\?/ && &get_module_name() ) { $url = "/" . &get_module_name() . "/$url"; } $url = "$gconfig{'webprefix'}$url" if ( $url =~ /^\// ); print " ", &text( 'main_return', $_[ $i + 1 ] ), "\n"; } } print "

\n"; if ( $ENV{'SCRIPT_NAME'} ne '/session_login.cgi' ) { print '' . "\n"; } embed_scripts(); print '', "\n"; print '', "\n"; } sub theme_file_chooser_button { my $form = defined( $_[2] ) ? $_[2] : 0; my $chroot = defined( $_[3] ) ? $_[3] : "/"; my $add = int( $_[4] ); my ( $w, $h ) = ( 520, 600 ); if ( $gconfig{'db_sizefile'} ) { ( $w, $h ) = split( /x/, $gconfig{'db_sizefile'} ); } return "\n"; } sub theme_user_chooser_button { my $form = defined( $_[2] ) ? $_[2] : 0; my $w = $_[1] ? 500 : 300; my $h = 600; if ( $_[1] && $gconfig{'db_sizeusers'} ) { ( $w, $h ) = split( /x/, $gconfig{'db_sizeusers'} ); } elsif ( !$_[1] && $gconfig{'db_sizeuser'} ) { ( $w, $h ) = split( /x/, $gconfig{'db_sizeuser'} ); } return "\n"; } sub theme_group_chooser_button { my $form = defined( $_[2] ) ? $_[2] : 0; my $w = $_[1] ? 500 : 300; my $h = 600; if ( $_[1] && $gconfig{'db_sizeusers'} ) { ( $w, $h ) = split( /x/, $gconfig{'db_sizeusers'} ); } elsif ( !$_[1] && $gconfig{'db_sizeuser'} ) { ( $w, $h ) = split( /x/, $gconfig{'db_sizeuser'} ); } return "\n"; } sub theme_date_chooser_button { my ( $w, $h ) = ( 320, 270 ); if ( $gconfig{'db_sizedate'} ) { ( $w, $h ) = split( /x/, $gconfig{'db_sizedate'} ); } return "\n"; } sub theme_popup_window_button { my ( $url, $w, $h, $scroll, $fields ) = @_; my $scrollyn = $scroll ? "yes" : "no"; my $rv = ""; return $rv; } sub theme_ui_upload { my ( $name, $size, $dis, $tags ) = @_; $size = &ui_max_text_width($size); return ""; } sub theme_icons_table { my $hide_table_icons = ( __settings('settings_right_hide_table_icons') eq 'true' ? 1 : 0 ); print '

' . "\n"; for ( my $i = 0; $i < @{ $_[0] }; $i++ ) { $hide_table_icons && print '

' . "\n"; &generate_icon( $_[2]->[$i], $_[1]->[$i], $_[0]->[$i], ref( $_[4] ) ? $_[4]->[$i] : $_[4], $_[5], $_[6], $_[7]->[$i], $_[8]->[$i] ); $hide_table_icons && print '

' . "\n"; } print '

' . "\n"; } sub theme_generate_icon { my ( $icon, $title, $link, $href, $width, $height, $before, $after ) = @_; if ( __settings('settings_right_hide_table_icons') eq 'true' ) { print '

'; print $before; print '

' . $title . '

'; print $after; print '

'; } else { my $icon_outer = $icon; $icon =~ s/images//g; my $grayscaled_table_icons = ( __settings('settings_right_grayscaled_table_icons') ne 'false' ? 0 : 1 ); my $animate_table_icons = ( __settings('settings_right_animate_table_icons') ne 'false' ? 0 : 1 ); ( my $___svg = $icon ) =~ s/.gif/.svg/; ( !-r $root_directory . "/" . get_module_name() . "/" . $icon_outer ) && ( $icon_outer = undef ); my $__icon = ( -r $root_directory . "/authentic-theme/images/modules/" . get_module_name() . $icon ? $gconfig{'webprefix'} . "/images/modules/" . get_module_name() . $icon : -r $root_directory . "/authentic-theme/images/modules/" . get_module_name() . $___svg ? $gconfig{'webprefix'} . "/images/modules/" . get_module_name() . $___svg : $icon_outer ? $icon_outer : "/images/not_found.svg" ); if ( __settings('settings_right_small_table_icons') eq 'true' && __settings('settings_right_xsmall_table_icons') ne 'true' ) { print '

'; if ($_[6] || $_[7]) { if ($_[6]) { print "$_[6]\n"; } if ($_[7]) { print "$_[7]\n"; } } print "" . '

'; print "$title\n"; print '

'; } elsif ( __settings('settings_right_xsmall_table_icons') eq 'true' ) { print '

'; if ($_[6] || $_[7]) { if ($_[6]) { print "$_[6]\n"; } if ($_[7]) { print "$_[7]\n"; } } print "" . '

'; print "$title\n"; print '

'; } else { print '

'; if ($_[6] || $_[7]) { if ($_[6]) { print "$_[6]\n"; } if ($_[7]) { print "$_[7]\n"; } } print "" . '

'; print "$title\n"; print '

'; } } } sub theme_ui_columns_start { my ( $heads, $width, $noborder, $tdtags, $title ) = @_; my ( $rv, $i ); $rv .= '' . "\n"; $rv .= '' . "\n"; $rv .= '' . "\n"; for ( $i = 0; $i < @$heads; $i++ ) { $rv .= '' . "\n"; } $rv .= '' . "\n"; $rv .= '' . "\n"; return $rv; } sub theme_ui_columns_row { my ( $cols, $tdtags ) = @_; my ( $rv, $i ); $rv .= '' . "\n"; for ( $i = 0; $i < @$cols; $i++ ) { $rv .= '' . "\n"; } $rv .= '' . "\n"; return $rv; } sub theme_ui_columns_header { my ( $cols, $tdtags ) = @_; my ( $rv, $i ); $rv .= '' . "\n"; $rv .= '' . "\n"; for ( $i = 0; $i < @$cols; $i++ ) { $rv .= '' . "\n"; } $rv .= '' . "\n"; $rv .= '' . "\n"; return $rv; } sub theme_ui_columns_end { my $rv; $rv .= '

'; $rv .= ( $heads->[$i] eq '' ? ' ' : $heads->[$i] ); $rv .= '
' . "\n"; $rv .= ( $cols->[$i] !~ /\S/ ? ' ' : $cols->[$i] ); $rv .= '
'; $rv .= ( $cols->[$i] eq '' ? '#' : $cols->[$i] ); $rv .= '

' . "\n"; return $rv; } sub theme_ui_form_start { my ( $script, $method, $target, $tags ) = @_; my $rv; $rv .= '

\n"; my $b; foreach $b (@$buttons) { if ( ref($b) ) { $rv .= "[0] ? " align=left" : $b eq $buttons->[ @$buttons - 1 ] ? " align=right" : " align=center" ) . ">" . &ui_submit( $b->[1], $b->[0], $b->[3], $b->[4] ) . ( $b->[2] ? " " . $b->[2] : "" ) . "\n"; } elsif ($b) { $rv .= "$b\n"; } else { $rv .= " \n"; } } $rv .= "\n"; } $rv .= "\n"; if ( !$nojs ) { # When going back to a form, re-enable any text fields generated by # ui_opt_textbox that aren't in the default state. $rv .= "\n"; } return $rv; } sub theme_ui_textbox { my ( $name, $value, $size, $dis, $max, $tags ) = @_; my $rv; $rv .= '[0] ); my $label = $o->[1] || $o->[0]; my $after; if ( $label =~ /^([\000-\377]*?)(([0] ) . '" '; $rv .= ( $o->[0] eq $value ? 'checked ' : '' ); $rv .= ( $dis ? 'disabled="true" ' : '' ); $rv .= 'id="' . $id . '" '; $rv .= $o->[2] . ' '; $rv .= '>' . "\n"; $rv .= '' . "\n"; $rv .= '' . $label . "\n"; $rv .= '' . $after . "\n"; } return $rv; } sub theme_ui_yesno_radio { my ( $name, $value, $yes, $no, $dis ) = @_; my $rv; $yes = 1 if ( !defined($yes) ); $no = 0 if ( !defined($no) ); $value = int($value); $rv .= &ui_radio( $name, $value, [ [ $yes, $text{'yes'} ], [ $no, $text{'no'} ] ], $dis ); return $rv; } sub theme_ui_checkbox { my ( $name, $value, $label, $sel, $tags, $dis ) = @_; my $after; if ( $label =~ /^([^<]*)(<[\000-\377]*)$/ ) { $label = $1; $after = $2; } return " " . ( !$label ? $after : "$label$after" ) . "\n"; } sub theme_ui_textarea { my ( $name, $value, $rows, $cols, $wrap, $dis, $tags ) = @_; $cols = &ui_max_text_width( $cols, 1 ); return ""; } sub theme_ui_submit { my ( $label, $name, $dis, $tags ) = @_; return "\n"; } sub theme_ui_reset { my ( $label, $dis ) = @_; my $rv; $rv .= '' . "\n"; return $rv; } sub theme_ui_button { my ( $label, $name, $dis, $tags ) = @_; my $rv; $rv .= '' . "\n"; return $rv; } sub theme_ui_post_header { my ($text) = @_; my $rv; return $rv; } sub theme_ui_pre_footer { my $rv; $rv .= '