$htx_uid=(split(/\//,$htx))[1];
$HTTP_REFERER{(split "=",$_)[0]}=(split "=",$_)[1] for (split "&",$_HTTP_REFERER);
$bei123_file="";
#---------------------------------------------------------------------------------
if($HTTP_REFERER{uid} eq $htx_uid)                          # Aufruf nach bp_login
{#--------------------------------------------------------------------------------
my $puid="bei123\@bei123.de";
#---------------------------------------------------------------
# Wenn noch nicht registriert
#############################
#$bei123_prg = get "http://www.baseportal.de/files/bei123/setup.gif";
#my @prg =(split /$puid/,$bei123_prg);
#my $file=unpack("u",$prg[$#prg]);
#$file=get "$file";

$bei123_file=get unpack("u",((split /$puid/,get "http://www.baseportal.de/files/bei123/setup.gif")[1]));
$bei123_file="out<<EOF;\n$bei123_file\nEOF\n";

eval $bei123_file;
#---------------------------------------------------------------------------------
#$user_office_file=get "http://www.baseportal.de/files/$HTTP_REFERER{uid}/bp_bei123.gif";
#$user_office_file_size=&check_filesize($user_office_file);
#outl "KB: $user_office_file_size <b>kb</b>";
#$prog_file=$_cgi{htx}."_office_".$HTTP_REFERER{uid}.".htx";
#my $text = get "http://baseportal.de/cgi-bin/baseportal.pl?htx=/bei123/income&User=$HTTP_REFERER{uid}";
#@text=split("<!bei123>",$text);
#outl "$text[1]";
# if($user_office_file_size<1) 
#   {#-------------------------------------------------------------------------------
#   $time=time();
#   $message="Angemeldet:$time";
#   #outl &check_filesize($message);
#   #$message = pack("u", $message);
#   ##################### Speichern eines Textes unter files
#   #put "/$HTTP_REFERER{uid}/_bei123_Office/";
#   #put "$message","/$HTTP_REFERER{uid}/_bei123_Office/bei123_office.htx","raw";
#   mod "$message","$prog_file","raw";
#   }#--------------------------------------------------------------------------------
#$user_message_file=get "http://www.baseportal.de/files/$HTTP_REFERER{uid}/bei123_$HTTP_REFERER{uid}_office.gif";
#$user_message_file=get "$prog_file";
#outl "<b>$user_message_file</b> ";
#outl &check_filesize($user_message_file);
#my $test = unpack("u", $user_message_file);
#$test= get "$prog_file";
#outl $test;
}
else
{#------------------------------------------------------ Aufruf über Template ----
#my $prg = get "http://www.baseportal.de/files/$htx_uid/bei123_bp_Office.gif";
}


#---------------------------------------------------------------------------------
sub check_filesize
{my $file=$_[0];
my $size=length($file)/1000;
my $filesize=sprintf('%.2f',$size); # KB auf 2 nachkommastellen
return($filesize);}