Index: TWiki.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki.pm,v
retrieving revision 1.112
diff -c -r1.112 TWiki.pm
*** TWiki.pm	17 Mar 2002 09:20:50 -0000	1.112
--- TWiki.pm	19 Mar 2002 19:23:08 -0000
***************
*** 187,192 ****
--- 187,201 ----
          }
      }
  
+     # RD 19 Mar 02: Fix for Support.WebNameIncludesViewScriptPath and
+     # Support.CobaltRaqInstall.  A valid PATH_INFO is '/Main/WebHome', 
+     # i.e. the text after the script name; invalid PATH_INFO is often 
+     # a full path starting with '/cgi-bin/...'.
+ 
+     # Fix path_info if broken - FIXME: extreme brokenness may require more work
+     $thePathInfo =~ s!$scriptUrlPath/[-.[:alnum:]]+$scriptSuffix/!/!;
+     &writeDebug( "===== thePathInfo after cleanup = $thePathInfo" );
+ 
      if( $thePathInfo =~ /\/(.*)\/(.*)/ ) {
          # is "bin/script/Webname/SomeTopic" or "bin/script/Webname/"
          $webName   = $1 || "" if( ! $webName );