[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_@
|