Port the QMark plugin.

grickit · Aug 17, 2014 · 0972491 · 0972491
1 parent 123177b
commit 0972491
Show file tree

Hide file tree

Showing 3 changed files with 47 additions and 1 deletion.
diff --git a/modules/IRC/Freenode/Output.pm b/modules/IRC/Freenode/Output.pm
@@ -35,6 +35,7 @@ sub new {
   my $self = {};
 
   $self->{'core'} = shift;
+  $self->{'lines_sent'} = 0;
 
   bless($self,$class);
   return $self;
@@ -139,6 +140,7 @@ sub parse {
     return '';
   }
 
+  $self->{'lines_sent'}++;
   return 1;
 }
 

diff --git a/modules/PluginParser/Internet/QMarkAPI.pm b/modules/PluginParser/Internet/QMarkAPI.pm
@@ -0,0 +1,42 @@
+package PluginParser::Internet::QMarkAPI;
+use strict;
+use warnings;
+use LWP::Simple;
+use LWP::UserAgent;
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(match);
+
+sub match {
+  my ($self,$core) = @_;
+  if($core->{'receiver_nick'} ne $core->{'botname'}) { return ''; }
+  if($core->{'event'} ne 'on_public_message' and $core->{'event'} ne 'on_private_message') { return ''; }
+
+
+  if($core->{'output'}->{'lines_sent'} == 0) {
+    return qmark($core,$core->{'receiver_chan'},$core->{'target'},$core->{'message'});
+  }
+
+
+  return '';
+}
+
+sub qmark {
+  my ($core,$chan,$target,$message) = @_;
+
+  my $request = LWP::UserAgent->new;
+  $request->timeout(60);
+  $request->env_proxy;
+  $request->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0)');
+  $request->max_size('1024000');
+  $request->parse_head(0);
+  my $content = $request->post('http://qmark.tk/qmai.php',{'q' => $message})->decoded_content;
+  $content =~ s/[\r\n]+/ /g;
+
+  if($content !~ /<html>/) {
+    $core->{'output'}->parse("MESSAGE>${chan}>${target}: ${content}");
+  }
+  else {
+    $core->{'output'}->parse("MESSAGE>${chan}>${target}: f**k I'm sooo confused %)");
+    $core->log_error("Weird QMark output: ${content}");
+  }
+}
diff --git a/parsers/plugin_parser2/example.pl b/parsers/plugin_parser2/example.pl
@@ -74,4 +74,6 @@ sub module_load {
 module_load('PluginParser::Games::Buttcoins');
 module_load('PluginParser::Games::Dice');
 module_load('PluginParser::Games::Eightball');
-module_load('PluginParser::Subreddit');
+module_load('PluginParser::Subreddit');
+
+module_load('PluginParser::Internet::QMarkAPI');