[perl] return unless $Config->{History}; if ($recs = @{$Session->{History}} > 1) { @revhist = reverse(@{$Session->{History}}); for (my $i = 0; $i < @revhist; $i++) { # Log ("URL $i: $revhist[$i]->[0]"); } $login = $revhist[0]; if ($$login[0] ne '/__UI_BASE__/login.html') { Log ("Suspicious URL for login page: $$login[0]"); return; } if ($revhist[1]->[0] eq '/__UI_BASE__/error.html') { delete $Scratch->{ui_goto}; } else { # Log ("GOTO: $revhist[1]\n"); $Scratch->{ui_goto} = $revhist[1]; } } '' [/perl] [set mv_no_count][/set] [set no_login_required]1[/set] [set ui_class]None[/set] [set page_title]Welcome to Interchange[/set] [set page_banner] [/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] [/if] [if scratch ui_failure] [/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 [/calc]
[L]Failure:[/L] [data session failure][data base=session field=failure value=""]
[L]Failure:[/L] [scratch ui_failure][set ui_failure][/set]

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'
   
[L]Username[/L]  
[L]Password[/L]  
 
   



@_UI_STD_FOOTER_@