#!/usr/bin/perl -wl

use URI::Escape;

$|=1;                   # don't buffer stdout

while (<>) {
open(DATEI,">>","/sap/squid/datei.dat");

    ($user, $dest) = split;
     $user =~ s/%(..)/pack("H*", $1)/ge;
     $dest =~ s/%(..)/pack("H*", $1)/ge;

@newline='';
$string = $user . " : " . $dest . " <---";
push(@newline,$string);
print DATEI @newline;

    $dest = uri_unescape($dest);
    $user = uri_unescape($user);

    $str  = valid($user);

    if ($str eq "jens") {
        print "OK user=" . $str;
    } else {
        print "ERR";
    }
} continue {
    close(DATEI);
}

sub valid {
    my $user = shift;
    if ($user eq "jens") {
    return $user; } else { return "empty"; }
}