From 3b8974544ef120d397747524a9825740296cd669 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Tue, 22 Dec 2015 17:23:01 -0800
Subject: [PATCH] Add more ignore criteria for URL titles

---
 modules/get_title.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/modules/get_title.pl b/modules/get_title.pl
index c21f10ca..2d513b7a 100755
--- a/modules/get_title.pl
+++ b/modules/get_title.pl
@@ -18,6 +18,7 @@ my $arguments = join("%20", @ARGV);
 
 $arguments =~ s/\W$//;
 
+exit if $arguments =~ m{wandbox}i;
 exit if $arguments =~ m{ebay.com/itm}i;
 exit if $arguments =~ m/prntscr.com/i;
 exit if $arguments =~ m/imgbin.org/i;
@@ -131,10 +132,14 @@ if($distance / $length < 0.75) {
 exit if $t !~ m/\s/; # exit if title is only one word -- this isn't usually interesting
 exit if $t =~ m/^Gerrit Code Review$/i;
 exit if $t =~ m/^Public Git Hosting -/i;
+exit if $t =~ m/- Google Search$/;
+exit if $t =~ m/linux cross reference/i;
+exit if $t =~ m/screenshot/i;
 exit if $t =~ m/pastebin/i;
 exit if $t =~ m/paste/i;
 exit if $t =~ m/^[0-9_-]+$/;
 exit if $t =~ m/^Index of \S+$/;
+exit if $t =~ m/(?:sign up|login)/i;
 
 my @data;
 if (open my $fh, "<", "last-title-$nick.dat") {