*** TWikiHttpd.old	Tue Aug 26 05:00:10 2003
--- TWikiHttpd.bat	Tue Dec  9 14:55:15 2003
***************
*** 446,454 ****
    Log ("ProcessCGI  : exec $command");
  
    my @output = qx/$command/;
  
!   if (     ("@output[0]" =~ /Status: 302 Moved/i)
!         && ("@output[1]" =~ m#location: (.*)#i)
       )
    { 
      my $url="$1";
--- 446,460 ----
    Log ("ProcessCGI  : exec $command");
  
    my @output = qx/$command/;
+   Log ("\n$line\nOUTPUT = @output\n$line\n");
  
!   # Extract the HTTP header
!   my @tmp= split ("\n \n", "@output");
!   my $HTTP_header = @tmp[0];
!   Log ("\n$line\nHTTP HEADER = $HTTP_header\n$line\n");
! 
!   if (     ("$HTTP_header" =~ /Status: 302 Moved/i)
!         && ("$HTTP_header" =~ m#location: (.*)#i)
       )
    { 
      my $url="$1";