eleksir/aleesa-jabber-bot
1
Fork 0
Code Activity

Enhance friday file parser, add some phrases to friday quotes

Browse Source
This commit is contained in:
eleksir
2020-11-22 17:33:36 +03:00
parent 7197b5e5ed
commit de54b5182a
2 changed files with 44 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/friday.pm
View File

@@ -52,8 +52,9 @@ sub seed () {
my @daylist = split(//, $days);
foreach my $day (@daylist) {
next unless (defined $day);
next unless ($day =~ /^\d$/);
push @{$friday->[$day - 1]}, $phrase;
push @{$friday->[$day - 1]}, $phrase if (defined $phrase && ($phrase ne '') && ($phrase !~ m/^\s+$/xmsg));
}
}