# Startroutine für AJAX-baseportal-Office ::: bei123_office.txt - 22.07.2009
#############################################################################
$ACCOUNT{(split "=",$_)[0]}=(split "=",$_)[1] for (split "&",$_HTTP_REFERER);
$bp_acc   = (split(/\//,$_get{htx}))[1];
$u_url    = (split(/\//,$_HTTP_REFERER))[2];
$u_time   = time();
$__usernr = "";
#############################################################################

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";
}#----------------------------------


if($ACCOUNT{uid} eq $bp_acc)
{###########################
$__split  = "$ACCOUNT{uid}"."_"."$u_time"; 
$__office = "http://baseportal.de/cgi-bin/baseportal.pl?htx=/bei123/Office/Office_Check_Online&user=$ACCOUNT{uid}&u_sid=$ACCOUNT{sid}&u_time=$u_time&u_htx=$htx&u_url=$u_url&cmd=login";
$__online = get "$__office";
 if($__online ne "")
 {#-----------------
 $__usernr=(split("<!$__split>",$__online))[1];
 $__online=(split("<!$__split>",$__online))[2];
 %data=eval get "http://baseportal.de/files/bei123/bei123_office_hash.txt";
# $__hash=(split("<!$__split>",$__online))[3];
# %data=eval $__hash;
 eval get $__online;
 }#-----------------
 else
 {
 outl "<h2>ERROR - bei123_office</h2>";
 } 
}###########################
else
{
outl "<h2>LOGOUT</h2>";
}
############################