#!/usr/bin/perl -w
use strict;
print "Content-Type: text/html\n\n";

my $userid = "$ENV{'REMOTE_USER'}";
print "id: ".$userid."
";

my $hexbid=&hex_formatieren($userid);
$hexbid="\x0E\x00".$hexbid;
print "hexbid: $hexbid
";
my $bid="\x0E\x00\x66\x00\x30\x00\x30\x00\x32\x00\x36\x00\x37\x00\x39\x00";
print "bid: $bid
";

sub hex_formatieren {
  my ($mess) = @_;
  #print "mess : $mess
";
  my $erg; 
  my $hextab = "/users/elbaeak/bin/cgibin/hextab";
  my $i = 0;
  print "len : ".length($mess)."
";
  while ($i < length($mess) )
  {
    #print "i : $i
";
    open (HEXTAB,"<$hextab");
    while ()
    {
      if (substr($_,0,1) eq substr($mess,$i,1))
      {

        $erg = $erg.substr($_,1,8);
        #print "sign:".substr($mess,$i,1)."
";
        #print "erg :".$erg."
";
      }
    }
    close(HEXTAB);
    $i++;
  }

  print "erg: ".$erg."
";
  return $erg;
} # ende hex_formatieren