#############################################################################################
$_header="Expires: content=0\nPragma: no-cache\nCache-Control: no-store, no-cache, max-age=0, must-revalidate\nContent-type: text/html\n\n";
$htx_uid=(split(/\//,$htx))[1];
$htx_url=(split(/\//,$_link))[2];
$htx_sys="http://www.baseportal.de/files/bei123";
$HTTP_REFERER{(split "=",$_)[0]}=(split "=",$_)[1] for (split "&",$_HTTP_REFERER);
$bei123_file="";
$puid="bei123\@bei123.de";
$Uuid="$htx_uid\@bei123.de";
$bei123_size=&check_filesize("$htx_sys/bei123_bp_office.gif");
############################################################################################
$pic_url=$htx_url;
$htx_dir="files/$htx_uid";
if($htx_url ne "baseportal.de")
{
$pic_url=$htx_uid;
$htx_dir="files";
}
$user_size=&check_filesize("http://$pic_url/$htx_dir/bei123_bp_office.gif");
#############################################################################################
if($HTTP_REFERER{uid} eq $htx_uid)                         
  {#---------------------------------------------- Aufruf nach bp_login
   &check_office("setup","1","3");
  }
else
  {#--------------------------------------------- Aufruf über Template ohne bp_login
  &check_office("setup","2","5");
  }#
############################################## file ausführen
$bei123_file="out<<EOF;\n$bei123_file\nEOF\n";
eval $bei123_file;
##############################################

#----------------------------------------------------------------------------------------------------- Subs
sub register_office
{#################
$K__en=substr(crypt($htx_uid,reverse(time())),0,7);
$P__as=substr(crypt($htx_uid,reverse(time())),7,6);
$office_temp="<PERL>\n\########## Anwendung registriert - Starten Sie ##########\n\$Kennung=\"$K__en\";\n\$Passwort=\"$P__as\";\neval get \"$htx_sys/bei123_Office.txt\";\n</PERL>";
mod $office_temp, $htx.".htx";
$_header="Location: $_HTTP_REFERER\n\n";
}#################

sub check_register
{#################
&register_office if($Kennung eq "" or $Passwort eq "");
}#################

sub put_register
{###############
$key=((split /<!bei123>/,get "http://baseportal.de/cgi-bin/baseportal.pl?htx=/bei123/income&User=$htx_uid")[1]);
put "$key","/$htx_uid/_files/bei123_bp_office.gif";
}###############

sub check_office
{###############
($run,$off,$on)=@_;
$User_no=((split /$Uuid/,get "http://$pic_url/$htx_dir/bei123_bp_office.gif")[1]);
if($user_size-$bei123_size<0) 
  {## noch nicht registriert
   $bei123_file=get unpack("u",((split /$puid/,get "$htx_sys/$run.gif")[$off]));
  }
else
  {## bereits registriert
  if($HTTP_REFERER{uid} eq $htx_uid)
    {
    &put_register if($User_no eq "");
    &check_register;
    }

    %data = eval get "http://de3.bei123.de/cgi-bin/baseportal.pl?htx=/bei123.de/CMS3/officehash";

    #%data=eval get "$htx_sys/office_hash.txt";
$creo=((split /<!bei123>/,get "http://baseportal.de/cgi-bin/baseportal.pl?htx=/bei123/income&User=$htx_uid&no=$User_no")[1]);
   $bei123_file=get unpack("u",((split /$creo/,get "$htx_sys/$run.gif")[$on]));
  } 
}################

sub check_filesize
{#################
my $file=$_[0];
$file = get "$file";
my $size=length($file);
return($size);
}##################