Start allowing spaces in month and day names (convert to _ on -p output)

This commit is contained in:
Dianne Skoll
2022-01-30 12:00:57 -05:00
parent 654fd78ee7
commit 3aee12073e
4 changed files with 30 additions and 2 deletions
+5
View File
@@ -232,12 +232,17 @@ sub parse_input
chomp($line);
($Month, $Year, $Numdays, $Firstwkday, $Mondayfirst) = split(' ', $line);
$Month =~ s/_/ /g;
# Day names
$line = <STDIN>;
return 0 unless $line;
chomp($line);
@Daynames = split(' ', $line);
for (my $i=0; $i<7; $i++) {
$Daynames[$i] =~ s/_/ /g;
}
# Prevmon prevlen
$line = <STDIN>;
return 0 unless $line;