[if session logged_in] [if session su] [su exit=1] [calc]delete $Session->{su}; return; [/calc] [bounce page="__UI_BASE__/index"] [else] [try] [userdb profile=ui function=logout clear=1 hide=1] [/try] [/else] [/if] [/if] [if !global Windows] [index table=ichelp export_only=1] [/if] [set mv_no_count][/set] [set mv_no_session_id][/set] [set no_login_required]1[/set] [set ui_class]Login[/set] [set page_title]Interchange: Log in to Administration[/set] [set help_name]logout.main[/set] @_UI_STD_HEAD_@

[if scratch ui_error] [scratch ui_error] [set ui_error][/set] [/if] [if session failure]

> [L]Failure:[/L] [data session failure][data base=session field=failure value=""]

[/if] [if scratch ui_failure]

> [L]Failure:[/L] [scratch ui_failure][set ui_failure][/set]

[/if] [calc] my $data = q{[version extended=1 modules=1 joiner="

"]}; return unless $data =~ /IMPORTANT/; my @lines = grep /not\s+found/, split '

', $data; my @important = grep /IMPORTANT/, @lines; my @minor = grep $_ !~ /IMPORTANT/, @lines; my $imp = join '

', @important; my $minor = join '

', @minor; return <<EOF;

# Admin interface will not work properly.

Please install needed Perl modules:

> $imp

> $minor

The easiest way to do this is to use the CPAN module and do:

> perl -MCPAN -e 'install Bundle::Interchange'

EOF [/calc]
[L]Username[/L] |
[L]Password[/L] |
[value name=currlocale set="[either][getlocale][or]en_US[/either]" hide=1] [comment] UI_LOCALE definition in ui.cfg, make empty to remove box [/comment] [loop acclist=1 option=currlocale list="[version extended=1 global_locale_options=1]"] [on-match]
[L]Language[/L] |
[/on-match] [/loop]

@_UI_STD_FOOTER_@