Changeset 1054 for trunk/core/lib/Foswiki.pm

Timestamp:

11/28/08 21:18:36 (3 years ago)

Author:

CrawfordCurrie

Message:

Item295: another detox step, plus eliminate a warning in ACTIVATED_PLUGINS

File:

• trunk/core/lib/Foswiki.pm (modified) (10 diffs)

trunk/core/lib/Foswiki.pm

@@ -66 +66 @@
 
 # Other computed constants
-our $twikiLibDir;
+our $foswikiLibDir;
 our %regex;
 our %functionTags;
@@ -91 +91 @@
 our $TranslationToken = "\0";
 
-=begin TML
-
----++ StaticMethod getLibDir() -> $path
-
-Returns the full path of the directory containing Foswiki.pm
-
-=cut
-
-sub getLibDir {
-    if ($twikiLibDir) {
-        return $twikiLibDir;
-    }
-
-    # FIXME: Should just use $INC{"Foswiki.pm"} to get path used to load this
-    # module.
-    my $dir = '';
-    foreach $dir (@INC) {
-        if ( $dir && -e "$dir/Foswiki.pm" ) {
-            $twikiLibDir = $dir;
-            last;
-        }
-    }
+# Returns the full path of the directory containing Foswiki.pm
+sub _getLibDir {
+    return $foswikiLibDir if $foswikiLibDir;
+
+    $foswikiLibDir = $INC{'Foswiki.pm'};
 
     # fix path relative to location of called script
-    if ( $twikiLibDir =~ /^\./ ) {
+    if ( $foswikiLibDir =~ /^\./ ) {
         print STDERR
-"WARNING: Foswiki lib path $twikiLibDir is relative; you should make it absolute, otherwise some scripts may not run from the command line.";
+"WARNING: Foswiki lib path $foswikiLibDir is relative; you should make it absolute, otherwise some scripts may not run from the command line.";
         my $bin;
 
@@ -140 +123 @@
             $bin = cwd();
         }
-        $twikiLibDir = "$bin/$twikiLibDir/";
+        $foswikiLibDir = "$bin/$foswikiLibDir/";
 
         # normalize "/../" and "/./"
-        while ( $twikiLibDir =~ s|([\\/])[^\\/]+[\\/]\.\.[\\/]|$1| ) {
-        }
-        $twikiLibDir =~ s|([\\/])\.[\\/]|$1|g;
-    }
-    $twikiLibDir =~ s|([\\/])[\\/]*|$1|g;    # reduce "//" to "/"
-    $twikiLibDir =~ s|[\\/]$||;              # cut trailing "/"
-
-    return $twikiLibDir;
+        while ( $foswikiLibDir =~ s|([\\/])[^\\/]+[\\/]\.\.[\\/]|$1| ) {
+        }
+        $foswikiLibDir =~ s|([\\/])\.[\\/]|$1|g;
+    }
+    $foswikiLibDir =~ s|([\\/])[\\/]*|$1|g;    # reduce "//" to "/"
+    $foswikiLibDir =~ s|[\\/]$||;              # cut trailing "/"
+
+    return $foswikiLibDir;
 }
 
@@ -497 +480 @@
 
     # initialize lib directory early because of later 'cd's
-    getLibDir();
+    _getLibDir();
 
     # initialize the runtime engine
@@ -812 +795 @@
 ---++ ObjectMethod redirect( $url, $passthrough, $action_redirectto )
 
-   * $url - url or twikitopic to redirect to
+   * $url - url or topic to redirect to
    * $passthrough - (optional) parameter to **FILLMEIN**
    * $action_redirectto - (optional) redirect to where ?redirectto=
@@ -939 +922 @@
 
     # Don't double-cache
-    return '' if ( $query->param('twiki_redirect_cache') );
+    return '' if ( $query->param('foswiki_redirect_cache') );
 
     require Digest::MD5;
@@ -955 +938 @@
     $query->save( \*F );
     close(F);
-    return 'twiki_redirect_cache=' . $uid;
+    return 'foswiki_redirect_cache=' . $uid;
 }
 
@@ -1095 +1078 @@
 Returns the URL to a Foswiki script, providing the web and topic as
 "path info" parameters.  The result looks something like this:
-"http://host/twiki/bin/$script/$web/$topic".
+"http://host/foswiki/bin/$script/$web/$topic".
    * =...= - an arbitrary number of name,value parameter pairs that will be url-encoded and added to the url. The special parameter name '#' is reserved for specifying an anchor. e.g. <tt>getScriptUrl('x','y','view','#'=>'XXX',a=>1,b=>2)</tt> will give <tt>.../view/x/y?a=1&b=2#XXX</tt>
 
@@ -3169 +3152 @@
 'Sorry, this version of Foswiki does not support the url parameter to Foswiki::initialize being different to the url in the query';
     }
-    my $twiki = new Foswiki( $theRemoteUser, $query );
+    my $session = new Foswiki( $theRemoteUser, $query );
 
     # Force the new session into the plugins context.
-    $Foswiki::Plugins::SESSION = $twiki;
+    $Foswiki::Plugins::SESSION = $session;
 
     return (
-        $twiki->{topicName}, $twiki->{webName}, $twiki->{scriptUrlPath},
-        $twiki->{userName},  $Foswiki::cfg{DataDir}
+        $session->{topicName}, $session->{webName}, $session->{scriptUrlPath},
+        $session->{userName},  $Foswiki::cfg{DataDir}
     );
 }
@@ -3631 +3614 @@
 #| $web | web and  |
 #| $topic | topic to display the name for |
-#| $formatString | twiki format string (like in search) |
+#| $formatString | format string (like in search) |
 sub REVINFO {
     my ( $this, $params, $theTopic, $theWeb ) = @_;