Skip to content
Extraits de code Groupes Projets
Valider 55c49b44 rédigé par Alexandre Morignot's avatar Alexandre Morignot
Parcourir les fichiers

Sam::commands::list handle calendars

parent f1a97d1d
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
......@@ -17,13 +17,15 @@ sub exec {
my $chan = shift;
my $sth;
my $calendar_id = Sam::Chan->new(name => $chan)->load->calendar_id;
my $events = Sam::Event::Manager->get_events(
query =>
[
date => { 'gt' => DateTime->now() },
'date' => { 'gt' => DateTime->now() },
'calendar_id' => $calendar_id,
],
sort_by => 'date',
limit => ($chan->[0] =~ /^#/) ? 2 : 10,
limit => ($chan =~ /^#/) ? 2 : 10,
);
if (scalar @{$events} == 0) {
......@@ -45,7 +47,7 @@ sub exec {
);
$events_nb -= 2;
$events_nb -= 8 if ($chan->[0] !~ /^#/); # query
$events_nb -= 8 if ($chan !~ /^#/); # query
if ($events_nb > 0) {
my $msg = $events_nb . " autre";
......
......@@ -111,7 +111,7 @@ sub exec {
}
}
elsif ($msg =~ /^Sam(?:,|:) +liste/) {
Sam::commands::list::exec($chan);
Sam::commands::list::exec($chan->[0]);
}
elsif ($msg =~ /^Sam(?:,|:) +(help|aide)/) {
$irc->yield(privmsg => $nick => 'Sam: <titre de la soirée> le jj/mm/aa @ <salle/lieu> : <description>');
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter