sub bei123_ajax_loading
{#----------------------------------
my $__time=time();
@REF=(split("baseportal.pl",$ref));
$BP{(split "=",$_)[0]}=(split "=",$_)[1] for (split "&",$REF[1]);
$__load="$REF[0]baseportal.pl?htx=$BP{htx}&uid=$BP{uid}&sid=$BP{sid}";
$__in  = get "$__load";
out "<b>".datum($__time,"Wochentag, Tag0.Monat0.Jahr - Stunde:Minute")."</b>";
# online aktualisieren
$__out ="http://baseportal.de/cgi-bin/baseportal.pl?htx=/bei123/Office/Office_Check_Online&user=$BP{uid}&u_sid=$BP{sid}&u_htx=$htx&u_time=$__time&cmd=online";
$__in  = get "$__out";
}#----------------------------------