| |
@@ -8,7 +8,7 @@
|
| |
chomp(our @TOPICS = <$TOPICS>);
|
| |
close $TOPICS;
|
| |
|
| |
- our $TOPIC = 0;
|
| |
+ our $TOPIC = -1;
|
| |
}
|
| |
|
| |
require commands::fedocal;
|
| |
@@ -142,7 +142,7 @@
|
| |
# - appends the list of cards from kanban when appropreate
|
| |
# this is a private subroutine
|
| |
my sub _topic {
|
| |
- my $tpc = $TOPICS[$TOPIC++];
|
| |
+ my $tpc = $TOPICS[++$TOPIC];
|
| |
my $ret = String::Tagged->new($tpc);
|
| |
|
| |
return '' unless $tpc;
|
| |
@@ -210,9 +210,17 @@
|
| |
$text .= KEY if ($what eq 'agreed' && @crd);
|
| |
}
|
| |
} elsif ($what eq 'schedule') {
|
| |
- $text .= commands::schedule::show();
|
| |
+ if ($TOPICS[$TOPIC] =~ m{the release schedule}m) {
|
| |
+ $text .= commands::schedule::show();
|
| |
+ } else {
|
| |
+ $text .= 'error: wrong topic';
|
| |
+ }
|
| |
} elsif ($what eq 'testdays') {
|
| |
- $text .= commands::fedocal::tdays();
|
| |
+ if ($TOPICS[$TOPIC] =~ m{upcoming test days}m) {
|
| |
+ $text .= commands::fedocal::tdays();
|
| |
+ } else {
|
| |
+ $text .= 'error: wrong topic';
|
| |
+ }
|
| |
}
|
| |
|
| |
return $text;
|
| |
glb
commented 3 years ago
Closes #21