Changeset 1043 for trunk/WysiwygPlugin/lib/Foswiki/Plugins/WysiwygPlugin.pm

Timestamp:

11/28/08 15:12:15 (3 years ago)

Author:

CrawfordCurrie

Message:

Item6041: fix empty bullet list Item324: get it working on Foswiki Item295: further detoxing

File:

• trunk/WysiwygPlugin/lib/Foswiki/Plugins/WysiwygPlugin.pm (modified) (4 diffs)

trunk/WysiwygPlugin/lib/Foswiki/Plugins/WysiwygPlugin.pm

@@ -9 +9 @@
 
 Note: In the case of a new topic, you might expect to see the "create topic"
-screen in the editor when it goes back to twiki for the topic content. This
+screen in the editor when it goes back to Foswiki for the topic content. This
 doesn't happen because the earliest possible handler is called on the topic
 content and not the template. The template is effectively ignored and a blank
@@ -30 +30 @@
 use Encode;
 
-require Foswiki::Func;    # The plugins API
-require Foswiki::Plugins; # For the API version
-require Foswiki::Plugins::WysiwygPlugin::Constants;
+use Foswiki::Func;    # The plugins API
+use Foswiki::Plugins; # For the API version
+use Foswiki::Plugins::WysiwygPlugin::Constants;
 
 use vars qw( $VERSION $RELEASE $SHORTDESCRIPTION $SECRET_ID $NO_PREFS_IN_TOPIC );
@@ -45 +45 @@
 
 $SECRET_ID = 'WYSIWYG content - do not remove this comment, and never use this identical text in your topics';
+
+sub WHY { 1 };
 
 sub initPlugin {
@@ -495 +497 @@
     if( $exclusions =~ /calls/
           && $_[0] =~ /%((?!($calls_ok){)[A-Z_]+{.*?})%/s ) {
-        #print STDERR "WYSIWYG_DEBUG: has calls $1 (not in $calls_ok)\n";
+        print STDERR "WYSIWYG_DEBUG: has calls $1 (not in $calls_ok)\n"
+          if (WHY);
         return "Text contains calls";
     }
     if( $exclusions =~ /(macros|variables)/ && $_[0] =~ /%([A-Z_]+)%/s ) {
-        #print STDERR "$exclusions WYSIWYG_DEBUG: has macros $1\n";
+        print STDERR "$exclusions WYSIWYG_DEBUG: has macros $1\n"
+          if (WHY);
         return "Text contains macros";
     }
     if( $exclusions =~ /html/ &&
           $_[0] =~ /<\/?((?!literal|verbatim|noautolink|nop|br)\w+)/ ) {
-        #print STDERR "WYSIWYG_DEBUG: has html: $1\n";
+        print STDERR "WYSIWYG_DEBUG: has html: $1\n"
+          if (WHY);
         return "Text contains HTML";
     }
     if( $exclusions =~ /comments/ && $_[0] =~ /<[!]--/ ) {
-        #print STDERR "WYSIWYG_DEBUG: has comments\n";
+        print STDERR "WYSIWYG_DEBUG: has comments\n"
+          if (WHY);
         return "Text contains comments";
     }
     if( $exclusions =~ /pre/ && $_[0] =~ /<pre\w/ ) {
-        #print STDERR "WYSIWYG_DEBUG: has pre\n";
+        print STDERR "WYSIWYG_DEBUG: has pre\n"
+          if (WHY);
         return "Text contains PRE";
     }