remove all occurencies of context

lib/commands/get.pm

@@ -120,7 +120,7 @@ sub exec {
     
     $sth = $dbh->prepare("select group_concat(tag separator ' ')
         from playbot_tags
-        where id = ? and context = 0
+        where id = ?
         group by id");
     $sth->execute($content->[0]);
 

lib/commands/tag.pm

@@ -4,8 +4,6 @@ require Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(exec);
 
-use Lingua::StopWords qw(getStopWords);
-
 our $dbh;
 our $log;
 
@@ -17,37 +15,19 @@ sub exec {
     }
 }
 
-sub addContext
-{
-    my ($id, $msg) = @_;
-
-    while ($msg =~ /#?([a-zA-Z0-9_-]+)/g) {
-        addTag($id, $1, 1);
-    }
-}
-
 sub addTag
 {
-    my ($id, $tag, $context) = @_;
+    my ($id, $tag) = @_;
     my $stopwords_en = getStopWords('en');
     my $stopwords_fr = getStopWords('fr');
 
-    return if ($context and ($stopwords_en->{lc $tag} or $stopwords_fr->{lc $tag}));
-
     my $sth;
 
-    if (!$context) {
-        $sth = $dbh->prepare_cached('INSERT INTO playbot_tags (id, tag, context)
-            VALUES (?, ?, ?)
-            ON DUPLICATE KEY
-            UPDATE context = 0');
-    } else {
-        $sth = $dbh->prepare_cached('INSERT INTO playbot_tags (id, tag, context)
-            VALUES (?, ?, ?)');
-    }
+    $sth = $dbh->prepare_cached('INSERT INTO playbot_tags (id, tag)
+        VALUES (?, ?)');
 	$log->error("Couldn't prepare querie; aborting") unless (defined $sth);
 
-	$sth->execute($id, $tag, ($context) ? 1 : 0)
+	$sth->execute($id, $tag)
 		or $log->error("Couldn't finish transaction: " . $dbh->errstr);
 }
 

lib/sites/parser.pm

@@ -80,9 +80,6 @@ sub parse {
 			    or $log->error("Couldn't finish transaction: " . $dbh->errstr);
 
 		    $id = $sth->fetch->[0];
-
-            # we don't want to reinsert the context, so we delete it
-            delete $content{'context'};
 	    }
 
 	    # message sur irc
@@ -101,10 +98,6 @@ sub parse {
 
         $sth->execute($id, $chan->[0])
             or $log->error("Couldn't finish transaction: " . $dbh->errstr);
-
-        if (defined $content{'context'}) {
-            commands::tag::addContext($id, $content{'context'});
-        }
     }
 
     return $id;

lib/sites/soundcloud.pm

@@ -30,16 +30,6 @@ sub get {
 		$infos{'ddl'} = $content->{'download_url'};
 	}
     
-    my $context = $content->{'tag_list'}.' '.$content->{'description'};
-    $context = $context.' '.$infos{'title'}.' '.$infos{'author'};
-    my $finder = URI::Find->new( sub { '' } );
-
-    # we remove the URI and the punctuation
-    $finder->find(\$context);
-    $context =~ s/[[:punct:]]/ /g;
-
-    $infos{'context'} = $context;
-	
 	return %infos;
 }
 

lib/sites/youtube.pm

@@ -21,17 +21,6 @@ sub get {
     $infos{'author'} = $video->uploader;
 	$infos{'url'} = $video->base_uri;
 
-=cut
-    my $context = decode("UTF-8", $video->description) . ' ' . $infos{'title'};
-    my $finder = URI::Find->new( sub { '' } );
-
-    # we remove the URI and the punctuation
-    $finder->find(\$context);
-    $context =~ s/[[:punct:]]/ /g;
-
-    $infos{'context'} = $context;
-=cut
-
 	return %infos;
 }