[tmp page_perm]files[/tmp] [tmp page_title][L]Administration[/L]: [calc]$Config->{CatalogName}[/calc][/tmp] [set ui_class]Admin[/set] [tmp help_name]genconfig.main[/tmp] [tmp icon_name]icon_config.gif[/tmp] @_UI_STD_HEAD_@
[if !scratch ui_old_browser] [tabbed-display ui-style=1 panel-prepend="

" panel-append="

" start-at-index="[cgi start_at_index]" panel-shade=f panel-width="[either][cgi panel_width][or]800[/either]" panel-height="[either][cgi panel_height][or]500[/either]" tab-width=160] [tabbed-panel [L]Catalog Information[/L]]
[L]Catalog URL[/L] [calc]$url=$Scratch->{ui_catalog_url};$url=~s%/index[^/]*%%;return qq{$url}[/calc]
[L]Secure URL[/L] [calc]return qq{$Config->{SecureURL}}[/calc]
[L]Location of Error Logs[/L] [L]Global[/L]: [version extended=1 global_error=1]
[L]Local[/L]: [version extended=1 local_error=1]
[L]Active sessions[/L] [if cgi list_sessions]
([L]last[/L] [calc] int ( $::Variable->{ACTIVE_SESSION_MINUTES} || ( ($Config->{SessionExpire} || 60) / 60) ) [/calc] [L]minutes[/L]) [/if] [if cgi list_sessions] [loop list="[dump-session find=1]"] [loop-code] (in new window)
[/loop] [else] [page href="@@MV_PAGE@@" form="list_sessions=1"][L]Show active sessions[/L]
([L]last[/L] [calc] int ( $::Variable->{ACTIVE_SESSION_MINUTES} || ( ($Config->{SessionExpire} || 60) / 60) ) [/calc] [L]minutes[/L]) [/else] [/if] [if cgi show_session]

[L]Showing session[/L]: [cgi show_session]

    [dump-session name="[cgi show_session]"]

[/if]
[L]Last order number[/L] [calc] my $cfn = $Variable->{MV_ORDER_COUNTER_FILE} || 'etc/order.number'; $Values->{new_order_number} = $Tag->file($cfn); $Values->{new_order_number} =~ s/.*\n([A-Za-z0-9]+).*$/$1/s; return; [/calc] [page __UI_BASE__/misc_order_number][value new_order_number]
[/tabbed-panel] [tabbed-panel[L]Interchange Server Information[/L]]
[L]Interchange version[/L] [version]
[L]Server hostname[/L] [version extended=1 hostname=1]
[L]Interchange PID[/L] [version extended=1 pid=1]
[L]Interchange SUID User[/L] [version extended=1 uid=1]
[L]Server mode[/L] [version extended=1 mode=1]
[L]Last time server restarted[/L] [calc] scalar localtime([file-info conf=1 name="interchange.pid" time=1])[/calc]
[L]Last time changes applied[/L] [file name=`"etc/status.$Config->{CatalogName}"`] ([page __UI_BASE__/reconfig @@MV_PAGE@@][L]apply now[/L])
[msg arg.0='' arg.1=""]%sEnvironment%s variables passed[/msg] [version extended=1 env=1]
[/tabbed-panel] [tabbed-panel [L]Perl Information[/L]]
[L]Perl Version[/L] Perl [version extended=1 perl=1 perl_config="[cgi more_perl]"]
[L]Optional Module Information[/L]

[table-organize columns=2 columnize=1 td='width="50%" class=cdata style="border: 0"']
[/table-organize]
[version extended=1 modules=1 joiner=" | "]

[L]Safe operations untrapped[/L] [version extended=1 safe=1]
[/tabbed-panel] [tabbed-panel [L]Database Information[/L]]
[L]Database Interfaces[/L] [version extended=1 db=1]
[L]Database Tables[/L]

[table-organize cols=3 columnize=1] [loop list="[list-databases]"]
[/loop] [/table-organize]
[loop-code]

[/tabbed-panel] [/tabbed-display] [/if] [if scratch ui_old_browser]

[L]Catalog Information[/L]
[L]Catalog URL[/L] |  | [calc]$url=$Scratch->{ui_catalog_url};$url=~s%/index[^/]*%%;return qq{$url}[/calc]
[L]Secure URL[/L] |  | [calc]return qq{$Config->{SecureURL}}[/calc]
[L]Location of Error Logs[/L] |  | [L]Global[/L]: [version extended=1 global_error=1] [L]Local[/L]: [version extended=1 local_error=1]

[L]Active sessions[/L] [if cgi list_sessions]
([L]last[/L] [calc] int ( $::Variable->{ACTIVE_SESSION_MINUTES} || ( ($Config->{SessionExpire} || 60) / 60) ) [/calc] [L]minutes[/L]) [/if]

[if cgi list_sessions][loop list="[dump-session find=1]"][loop-code]
[/loop] [else] [page href="@@MV_PAGE@@" form="list_sessions=1"][L]Show active sessions[/L]
([L]last[/L] [calc] int ( $::Variable->{ACTIVE_SESSION_MINUTES} || ( ($Config->{SessionExpire} || 60) / 60) ) [/calc] [L]minutes[/L]) [/else] [/if] [if cgi show_session]

[L]Showing session[/L]: [cgi show_session]

    [dump-session name="[cgi show_session]"]

[/if]

[L]Last order number[/L] |  | [calc] my $cfn = $Variable->{MV_ORDER_COUNTER_FILE} || 'etc/order.number'; $Values->{new_order_number} = $Tag->file($cfn); $Values->{new_order_number} =~ s/.*\n([A-Za-z0-9]+).*$/$1/s; return; [/calc] [page __UI_BASE__/misc_order_number][value new_order_number]
[L]Interchange Server Information[/L]
[L]Interchange version[/L] |  | [version]
[L]Server hostname[/L] |  | [version extended=1 hostname=1]
[L]Interchange PID[/L] |  | [version extended=1 pid=1]
[L]Interchange SUID User[/L] |  | [version extended=1 uid=1]
[L]Server mode[/L] |  | [version extended=1 mode=1]
[L]Last time server restarted[/L] |  | [calc] scalar localtime([file-info conf=1 name="interchange.pid" time=1])[/calc]
[L]Last time changes applied[/L] |  | [file name=`"etc/status.$Config->{CatalogName}"`] ([page __UI_BASE__/reconfig @@MV_PAGE@@][L]apply now[/L])
[msg arg.0='' arg.1=""]%sEnvironment%s variables passed[/msg] |  | [version extended=1 env=1]
[L]Perl Information[/L]
[L]Perl Version[/L] |  | Perl [version extended=1 perl=1 perl_config="[cgi more_perl]"]
[L]Optional Module Information[/L] |  | [version extended=1 modules=1]
[L]Safe operations untrapped[/L] |  | [version extended=1 safe=1]
[L]Database Information[/L]
[L]Database Interfaces[/L] |  | [version extended=1 db=1]

[L]Database Tables[/L]

> [loop list="[list-databases]"] [loop-code]
> [/loop]

[/if] @_UI_STD_FOOTER_@