Changeset 1093

Timestamp:

06/19/07 14:01:53 (16 months ago)

Author:

dom

Message:

Send email notifications when moderated nodes are edited (fixes #138)

Location:

trunk

Files:

• Build.PL (modified) (2 diffs)
• Changes (modified) (1 diff)
• lib/OpenGuides.pm (modified) (2 diffs)
• lib/OpenGuides/Config.pm (modified) (4 diffs)

trunk/Build.PL

@@ -43 +43 @@
       enable_common_locales recent_changes_on_home_page
       random_page_omits_locales random_page_omits_categories
-      content_above_navbar_in_html show_gmap_in_node_display);
+      content_above_navbar_in_html show_gmap_in_node_display
+      send_moderation_notifications);
 
 my $skip_config = Module::Build->y_n("Skip OpenGuides configuration?", "n");
@@ -105 +106 @@
    licence_name licence_url licence_info_url moderation_requires_password
    enable_node_image enable_common_categories enable_common_locales
-   spam_detector_module static_path static_url
+   spam_detector_module static_path static_url send_moderation_notifications
   ) ) {
     my $q_method = $var . "__qu";

trunk/Changes

@@ -25 +25 @@
         Move the common categories/locales navbar display decision into the
           templates (#214).
+        Add email notifications when moderated nodes are edited (#138)
 
 0.60    13 May 2007

trunk/lib/OpenGuides.pm

@@ -1405 +1405 @@
     # Skip this for nodes needing moderation - this occurs for them once
     #  they've been moderated
-    unless($wiki->node_required_moderation($node)) {
+    my $needs_moderation = $wiki->node_required_moderation($node);
+    unless( $needs_moderation ) {
         $self->_autoCreateCategoryLocale(
                                           id       => $node,
@@ -1416 +1417 @@
 
     if ($written) {
+        if ( $needs_moderation and $config->send_moderation_notifications ) {
+            my $body = "The node '$node' in the OpenGuides installation\n" .
+                "'" . $config->site_name . "' requires moderation. ".
+                "Please visit\n" .
+                $config->script_url . $config->script_name .
+                "?action=show_needing_moderation\nat your convenience.\n";
+            eval {
+                OpenGuides::Utils->send_email(
+                    config        => $config,
+                    subject       => "Node requires moderation",
+                    body          => $body,
+                    admin         => 1,
+                    return_output => $return_output
+                );
+            };
+            warn $@ if $@;
+        }
+
         my $output = $self->redirect_to_node($node);
         return $output if $return_output;

trunk/lib/OpenGuides/Config.pm

@@ -22 +22 @@
    licence_name licence_url licence_info_url moderation_requires_password
    enable_node_image enable_common_categories enable_common_locales
-   spam_detector_module static_path static_url
+   spam_detector_module static_path static_url send_moderation_notifications
 );
 my @questions = map { $_ . "__qu" } @variables;
@@ -110 +110 @@
                      spam_detector_module => "",
                      static_path => "/usr/local/share/openguides/static",
+                     send_moderation_notifications => 1
                    );
 
@@ -193 +194 @@
         static_path => "What directory should we install static content (CSS, images, javascript) to?",
         static_url => "What is the URL corresponding to the static content?",
+        send_moderation_notifications => "Should we send email notifications when a moderated node is edited?"
     );
 
@@ -323 +325 @@
 =item * static_url
 
+=item * send_moderation_notifications
+
 =back