#!/usr/bin/perl # # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev # Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) # use strict; our (%in, %gconfig, %text, $pragma_no_cache, %theme_text, %theme_config); do($ENV{'THEME_ROOT'} . "/authentic-lib.pl"); $pragma_no_cache = 1; $ENV{'MINISERV_INTERNAL'} || die "Can only be called by miniserv.pl"; my $charset = &get_charset(); &PrintHeader($charset); print '', "\n"; print '', "\n"; embed_login_head(); print '' . "\n"; print '

' . "\n"; # Print the password expired alert print ui_alert( $text{ $in{'expired'} == 2 ? 'password_temp' : 'password_expired' }, 'warning'); # Start of the form print "$text{'password_prefix'}\n"; print '

' . "\n"; print ui_hidden("user", $in{'user'}); print ui_hidden("pam", $in{'pam'}); print ui_hidden("expired", $in{'expired'}); print '' . "\n"; # Process logo embed_logo(); # Login message my $host; if ($gconfig{'realname'}) { $host = &get_display_hostname(); } else { $host = get_env('server_name'); $host =~ s/:\d+//g; $host = &html_escape($host); } print '' . "\n"; print '

' . "\n"; print '' . "\n"; print '' . "\n"; print '

' . "\n"; print '

' . "\n"; print '' . "\n"; print '' . "\n"; print '

' . "\n"; print '

' . "\n"; print '' . "\n"; print '' . "\n"; print '

' . "\n"; print ''; print '

' . "\n"; print "$text{'password_postfix'}\n"; &footer();

' . (&get_product_name() eq 'webmin' ? $theme_text{'theme_xhred_titles_wm'} : $theme_text{'theme_xhred_titles_um'} ) . '