Sam::commands::list uses ORM

Sam/commands/list.pm

 package Sam::commands::list;
 
+use strict;
+
+use DateTime;
+use Sam::Event::Manager;
+
 require Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(exec);
@@ -12,68 +17,44 @@ sub exec {
     my $chan = shift;
     my $sth;
 
-    if ($chan->[0] =~ /^#/) {
-        $sth = $dbh->prepare_cached('SELECT id, title, DATE_FORMAT(date, "%d/%m/%Y"), place, description, link
-            FROM sam
-            WHERE date > NOW()
-            ORDER BY date
-            LIMIT 2'
+    my $events = Sam::Event::Manager->get_events(
+        query   =>
+        [
+            date => { 'gt' => DateTime->now() },
+        ],
+        sort_by => 'date',
+        limit   => ($chan->[0] =~ /^#/) ? 2 : 10,
     );
-    } else {
-        $sth = $dbh->prepare_cached('SELECT id, title, DATE_FORMAT(date, "%d/%m/%Y"), place, description, link
-            FROM sam
-            WHERE date > NOW()
-            ORDER BY date'
-        );
-    }
-
-    unless (defined $sth) {
-    	$log->error("Couldn't prepare querie; aborting");
-        return;
-    }
 
-	$sth->execute()
-		or $log->error("Couldn't finish transaction: " . $dbh->errstr);
-
-    if (!$sth->rows) {
+    if (scalar @{$events} == 0) {
         $irc->yield(privmsg => $chan => "Aucune soirée à venir enregistrée, on se fait bien chier…");
         return;
     }
 
-    while ($row = $sth->fetch) {
-        $msg = "[".$row->[0]."] ".$row->[1]." le ".$row->[2];
-        $msg .= " @ ".$row->[3] if ($row->[3]);
-        $msg .= " : ".$row->[4] if ($row->[4]);
-        $msg .= " <".$row->[5].">" if ($row->[5]);
+    foreach (@{$events}) {
+        my $msg = "[".$_->id."] ".$_->title;
+        $msg .=" le ".$_->date->strftime('%d/%m/%Y');
+        $msg .= " @ ".$_->place if ($_->place);
+        $msg .= " : ".$_->description if ($_->description);
+        $msg .= " <".$_->link.">" if ($_->link);
         $irc->yield(privmsg => $chan => $msg);
     }
 
-    if ($chan->[0] =~ /^#/) {
-        $sth = $dbh->prepare_cached('SELECT count(*)
-            FROM sam
-            where date > ?'
+    my $events_nb = Sam::Event::Manager->get_events_count(
+        query => [ date => { 'gt' => DateTime->now() } ]
     );
 
-        unless (defined $sth) {
-            $log->error("Couldn't prepare querie; aborting");
-            return;
-        }
-
-	    $sth->execute(scalar time)
-		    or $log->error("Couldn't finish transaction: " . $dbh->errstr);
-
-        $row = $sth->fetch;
-        $events = $row->[0] - 2;
+    $events_nb -= 2;
+    $events_nb -= 8 if ($chan->[0] !~ /^#/); # query
 
-        if ($events > 0) {
-            $msg = $events . " autre";
-            $msg .= "s" if ($events > 1);
+    if ($events_nb > 0) {
+        my $msg = $events_nb . " autre";
+        $msg .= "s" if ($events_nb > 1);
         $msg .= " soirée";
-            $msg .= "s" if ($events > 1);
+        $msg .= "s" if ($events_nb > 1);
         $msg .= " sur http://nightiies.iiens.net/sam/";
         $irc->yield(privmsg => $chan => $msg);
     }
 }
-}
 
 1;