Changeset 948 for trunk/Defensio

Timestamp:

08/11/08 16:47:50 (16 months ago)

Author:

breese

Message:

added Community Template Override - a plugin that allows you to specify the template id of the template you want to render results for any community template

Files:

• trunk/Defensio/plugins/Defensio/Defensio.pl (modified) (7 diffs)

trunk/Defensio/plugins/Defensio/Defensio.pl

@@ -42 +42 @@
                 handle_spam => \&handle_junk,
                 handle_ham => \&handle_not_junk,
-                'MT::Comment::pre_save' => \&pre_save_obj,
-                'MT::TBPing::pre_save' => \&pre_save_obj,
+                'MT::Entry::post_save' => \&post_save_obj,
+                'MT::Comment::pre_save' => \&pre_save_feedback_obj,
+                'MT::TBPing::pre_save' => \&pre_save_feedback_obj,
             },
             junk_filters => {
@@ -109 +110 @@
 }
 
-sub pre_save_obj {
-    my ($cb, $obj) = @_;
-    if (!$obj->id && $obj->is_junk && ($obj->junk_log =~ m/Defensio says spam/)) {
-        # this was junked due in part to Defensio
-#        if (my $blog = $obj->blog) {
-#            $plugin->blocked( $blog, $plugin->blocked($blog) + 1 );
-#        }
-#        $plugin->blocked( undef, $plugin->blocked() + 1 );
-    }
+sub pre_save_feedback_obj {
+    my ($cb, $obj, $orig) = @_;
+    1;
+}
+
+# This callback handler reports new entries to Defensio
+sub post_save_obj {
+    my ($cb, $obj, $orig) = @_;
+    my $key    = get_apikey() or return;
+    my $cli    = Net::Defensio->new( api_key => $key ); 
+    my $url = $app->base . $app->mt_uri;
+    my $res = $cli->announce_article( 
+        owner_url => $url,
+        article_author => $obj->author->name,
+        article_author_email => $obj->author->email,
+        article_title => $obj->title,
+        article_content => $obj->text,
+        permalink => $obj->permalink,
+        ); 
+    if ( !$res || !$res->success ) {
+        MT->log("Communications failure with Defensio");
+    } elsif ( $res->status eq 'fail' ) {
+        MT->log("Defensio error: " . $res->message);
+    }
+    1;
 }
 
@@ -124 +141 @@
 sub handle_junk {
     my ($cb, $app, $thing) = @_;
-    print STDERR "Report false negative through Defensio\n";
     my $key    = get_apikey() or return;
     require Net::Defensio;
     if (!$thing->defensio_sig) { # comment has NOT been rated by Defensio before
-        print STDERR "Never seen this comment before in Defensio - auditing...\n";
         my ($score,$grade) = defensio_score($thing);
     }
@@ -140 +155 @@
             ); 
         if ( !$res || !$res->success ) {
-            print STDERR "Communications failure with Defensio\n";
             MT->log("Communications failure with Defensio");
         } elsif ( $res->status eq 'fail' ) {
-            print STDERR "Defensio error: " . $res->message . "\n";
             MT->log("Defensio error: " . $res->message);
         }
-        print STDERR "Done.\n";
     }
 }
@@ -155 +167 @@
     my ($cb, $app, $thing) = @_;
 
-    print STDERR "Report false positive through Defensio\n";
     my $key    = get_apikey()  or return;
     require Net::Defensio;
     if (!$thing->defensio_sig) { # comment has NOT been rated by Defensio before
-        print STDERR "Never seen this comment before in Defensio - auditing...\n";
         my ($score,$grade) = defensio_score($thing);
     }
@@ -171 +181 @@
             ); 
         if ( !$res || !$res->success ) {
-            print STDERR "Communications failure with Defensio\n";
             MT->log("Communications failure with Defensio");
         } elsif ( $res->status eq 'fail' ) {
-            print STDERR "Defensio error: " . $res->message . "\n";
             MT->log("Defensio error: " . $res->message);
         }
-        print STDERR "Done.\n";
     }
 }
@@ -186 +193 @@
     my $key    = get_apikey() or return MT::JunkFilter::ABSTAIN();
 
-    print STDERR "Routing comment through Defensio...\n";
     my $cli    = Net::Defensio->new( api_key => $key ); 
     my $params = _build_audit_params($thing);