#!/usr/bin/perl -w
# Test directory traversal


while(<DATA>)
{
   my $part = $_;
   chomp( $part );
 
   my $uri = $part;

   
   while ( $uri =~ /(.*)\/*\.\.\/(.*)/ )
   {
	$uri = $1 . $2;
   }

   while ( $uri =~ /(.*)\/\/(.*)/ )
   {
	$uri = $1 . $2;
   }
   print "$part - $uri\n";
}

__DATA__
../../../etc/passwd
../.././/../..../..../etc/passwd
.../.../.../.../.../.../etc/passwd
../../../../../etc/passwd
..//..//..//etc/passwd
/../..etc/passwd
