Changeset 811 for trunk/CommentPlugin/lib/Foswiki/Plugins/CommentPlugin.pm

Timestamp:

11/19/08 15:00:00 (4 years ago)

Author:

CrawfordCurrie

Message:

Item175: port a subset of the standard extensions over to the new namespace to make a working system with mixed TWiki and Foswiki plugins

Location:

trunk/CommentPlugin/lib/Foswiki

Files:

• . (moved) (moved from trunk/CommentPlugin/lib/TWiki)
• Plugins/CommentPlugin.pm (modified) (7 diffs)

trunk/CommentPlugin/lib/Foswiki/Plugins/CommentPlugin.pm

@@ -2 +2 @@
 #
 # Copyright (C) 2004 Crawford Currie
-# Copyright (C) 2001-2006 TWiki Contributors. All Rights Reserved.
-# TWiki Contributors
+# Copyright (C) 2001-2006 Foswiki Contributors. All Rights Reserved.
+# Foswiki Contributors
 # are listed in the AUTHORS file in the root of this distribution.
 # NOTE: Please extend that file, not this notice.
@@ -21 +21 @@
 # See Plugin topic for history and plugin information
 
-package TWiki::Plugins::CommentPlugin;
+package Foswiki::Plugins::CommentPlugin;
 
 use strict;
 
-require TWiki::Func;
-require TWiki::Plugins;
+require Foswiki::Func;
+require Foswiki::Plugins;
 
 use vars qw( $VERSION $RELEASE $SHORTDESCRIPTION $NO_PREFS_IN_TOPIC );
@@ -45 +45 @@
     #my ( $topic, $web, $user, $installWeb ) = @_;
 
-    if( $TWiki::Plugins::VERSION < 1.026 ) {
-        TWiki::Func::writeWarning( "CommentPlugin $VERSION requires TWiki::Plugins::VERSION >= 1.026, $TWiki::Plugins::VERSION found." );
+    if( $Foswiki::Plugins::VERSION < 1.026 ) {
+        Foswiki::Func::writeWarning( "CommentPlugin $VERSION requires Foswiki::Plugins::VERSION >= 1.026, $Foswiki::Plugins::VERSION found." );
         return 0;
     }
@@ -56 +56 @@
     my ( $text, $topic, $web, $meta ) = @_;
 
-    require TWiki::Plugins::CommentPlugin::Comment;
+    require Foswiki::Plugins::CommentPlugin::Comment;
 
-    my $query = TWiki::Func::getCgiQuery();
+    my $query = Foswiki::Func::getCgiQuery();
     return unless( defined( $query ));
 
@@ -67 +67 @@
     # SMELL: unreliable
     my $previewing = ($scriptname =~ /\/(preview|gnusave|rdiff)/);
-    TWiki::Plugins::CommentPlugin::Comment::prompt( $previewing,
+    Foswiki::Plugins::CommentPlugin::Comment::prompt( $previewing,
                                                     $_[0], $web, $topic );
 }
@@ -74 +74 @@
     #my ( $text, $topic, $web ) = @_;
 
-    require TWiki::Plugins::CommentPlugin::Comment;
+    require Foswiki::Plugins::CommentPlugin::Comment;
 
-    my $query = TWiki::Func::getCgiQuery();
+    my $query = Foswiki::Func::getCgiQuery();
     return unless $query;
 
@@ -82 +82 @@
 
     return unless( defined( $action ) && $action eq 'save' );
-    TWiki::Plugins::CommentPlugin::Comment::save( @_ );
+    Foswiki::Plugins::CommentPlugin::Comment::save( @_ );
 }