#!/usr/bin/perl

###############################
 # find the root if this is IIS:
 ###############################
 if($ENV{'SERVER_SOFTWARE'} =~ m/IIS/)
 {
	if($root eq "" && $ENV{'PATH_TRANSLATED'} ne "")
	{
		my $pt = $ENV{'PATH_TRANSLATED'};
		my @pts = split(/\\/, $pt);
		$pts[-1] = "";
		$root = join "/", @pts;
		$OS = "NT";
	}
 }

my $lp = $req->cookie("pmpre");
   my ($clogin, $cID) = split(/\|/, pm_decode($lp));
   
   my $cookie_pmpre_login = $req->cookie( 
					-NAME           => "username",
					-VALUE          => "$clogin",
					-EXPIRES        => "+1y",
					-PATH           => "/"
	   );
	   
	   print $req->header(-COOKIE => $cookie_pmpre_login);
exit;