$labels{calendar}

#!/usr/local/bin/perl -w # # Printing a French Revolutionary calendar # use DateTime::Calendar::FrenchRevolutionary; use Getopt::Long; use Roman; use strict; use FindBin; my $lang = 'en'; my $pict = undef; GetOptions('lang=s' => \$lang, 'kitten=s' => \$pict); # # I18N # my $ref_labels; if ($lang eq 'fr') { $ref_labels = do "$FindBin::Bin/labels_fr" } else { $ref_labels = do "$FindBin::Bin/labels_en" } my %labels = %$ref_labels; my $annee; foreach $annee (@ARGV) { warn "Invalid year", next if $annee <= 0; prt_cal ($annee); } sub prt_cal { my $year = $_[0]; # French revolutionary year my $year_1 = $year + 1791; # first corresponding Gregorian year my $year_2 = $year + 1792; # second corresponding Gregorian year # HTML header print <<"EOT"; $labels{calendar} EOT print qq(

\n) if $pict; # Column headers for the first six months print <<"EOT";

@{[ Roman $year ]}

$year_1-$year_2

EOT # Building the first six months my $row = ''; foreach my $m (1..6) { my $cell = join '
', map { one_day($year, $m, $_) } (1..30); $row .= "\n"; } # Printing the first six months and the headers for the last six months print <<"EOT"; $row EOT # Building the "-al" and "-idor" months $row = ""; foreach my $m (7..12) { my $cell = join '
', map { one_day($year, $m, $_) } (1..30); $row .= "\n"; } print "$row\n"; # Additional days. # By the way, how many additional days? 5 (normal year) or 6 (leap year)? my $last = 5; $last = 6 if DateTime::Calendar::FrenchRevolutionary->new(year => $year)->is_leap_year; # The additional days are printed in an horizontal row, one per cell $row = ""; foreach my $rd (1 .. $last) { $row .= "\n" } print <<"EOT"; $row

Vendémiaire $labels{month3}[8]-$labels{month3}[9]	Brumaire $labels{month3}[9]-$labels{month3}[10]	Frimaire $labels{month3}[10]-$labels{month3}[11]	Nivôse $labels{month3}[11]-$labels{month3}[0]	Pluviôse $labels{month3}[0]-$labels{month3}[1]	Ventôse $labels{month3}[1]-$labels{month3}[2]
$cell
Germinal $labels{month3}[2]-$labels{month3}[3]	Floréal $labels{month3}[3]-$labels{month3}[4]	Prairial $labels{month3}[4]-$labels{month3}[5]	Messidor $labels{month3}[5]-$labels{month3}[6]	Thermidor $labels{month3}[6]-$labels{month3}[7]	Fructidor $labels{month3}[7]-$labels{month3}[8]
$cell
" . one_day($year, 13, $rd) . "
$labels{add_days}

EOT } sub one_day { my ($ry, $rm, $rd) = @_; # Revolutionary year, month and day my $date_r = DateTime::Calendar::FrenchRevolutionary->new(year => $ry, month => $rm, day => $rd); my $date_g = DateTime->from_object(object => $date_r); sprintf "%2d (%s %2d)", $rd, $labels{week1}[$date_g->day_of_week_0], $date_g->day; } __END__ =head1 NAME prt_cal -- print a French Revolutionary calendar =head1 SYNOPSIS prt_cal [--lang=I] [--kitten=I] year =head1 DESCRIPTION This program prints a calendar, using the French Revolutionary calendar. It is not limited to the historical period when this calendar was in use, you can ask for any year after its beginning. For example, you can print the calendar for the year 211, which corresponds to 2002-2003 in the Gregorian calendar. The output is in HTML, and contains brief indications for which Gregorian date corresponds to each French Revolutionary date. =head1 OPTIONS =over 4 =item language Some values are language dependant: Gregorian weekday initials, Gregorian month abbreviations and a few titles. You can select which language you will use. Known languages are: =over 4 =item en English (default) =item fr French =back =item kitten In France, traditionnally, the postal service sells calendars for the next year during November / December. These calendars usually have the picture of one or more kittens in a basket, or a mountainous landscape. So, you can do the same with this program, by specifying a JPEG or GIF URL, which contains the photo of kittens or a picture of mountains. Don't even think of using anything else, especially pictures involving scantily clad ladies. You can try http://images.google.com/images?hl=en&lr=&ie=ISO-8859-1&output=search&q=kitten+basket http://images.google.com/images?hl=en&lr=&ie=ISO-8859-1&output=search&q=mountains but do not even think about http://images.google.com/images?q=Delacroix+libert%C3%A9+guidant+peuple&hl=en&lr=&ie=UTF-8&output=search =back =head1 PARAMETERS There is a single parameter, the year, according to the French Revolutionary calendar. This parameter is numeric (Roman number not permitted). =head1 KNOWN BUGS If given several years, the program prints all the requested calendars on standard output as a single stream. There are HTML delimiters for each, but they are concatenated. =head1 AUTHOR Jean Forget