/usr/share/perl5/Cz/Time.pm is in cstocs 1:3.42-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | =head1 NAME
Cz::Time - Routines for printing dates in Czech
=head1 SYNOPSIS
use Cz::Time;
my $today = cz_wday() . " " . cz_date();
my $new_year = " 1. " . cz_month_base(1);
=head1 DESCRIPTION
Implements czech names of months and weekdays. The following functions
are exported:
=over 4
=item cz_date
Converts time (localtime if not specified) into Czech string, eg.
15. ledna 1997.
=item cz_month_base, cz_month
Czech names of months (1..12)
=item cz_wday, cz_ab_wday
Czech names of weekdays and weekdays' abreviation.
=back
By default they are returned in ISO-8859-2.
=head1 AUTHORS
(c) 1997 Jan Pazdziora <adelton@fi.muni.cz>,
1997 Michael Mráka <michael@fi.muni.cz>
at Faculty of Informatics, Masaryk University, Brno
=head1 VERSION
0.02
=head1 SEE ALSO
perl(1), Cz::Cstocs(3).
=cut
package Cz::Time;
use strict;
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw( cz_date cz_month cz_wday cz_month_base cz_ab_wday );
@EXPORT_OK = qw( cz_date cz_month cz_wday cz_month_base cz_ab_wday );
$VERSION = '0.02';
my @CZ_MONTH_BASE = qw( leden únor bøezen duben kvìten èerven èervenec
srpen záøí øíjen listopad prosinec );
my @CZ_WEEK_DAYS = qw( nedìle pondìlí úterý støeda ètvrtek pátek sobota );
my @CZ_AB_WEEK_DAYS = qw( Ne Po Út St Èt Pá So );
sub cz_month_base
{
my $month = shift;
return $CZ_MONTH_BASE[$month-1];
}
sub cz_month
{
my $month = shift;
local $_ = $CZ_MONTH_BASE[$month-1];
s!en$!na! or s!ec$!ce! or s!ad$!adu! or s!or$!ora!;
$_;
}
sub cz_date
{
my @t;
if (@_) { @t = @_; } else { @t = localtime; }
return $t[3] . '. ' . cz_month($t[4] + 1) . ' ' . ($t[5] + 1900);
}
sub cz_wday
{
my @t;
if (@_) { @t = @_; } else { @t = localtime; }
$CZ_WEEK_DAYS[$t[6]];
}
sub cz_ab_wday
{
my @t;
if (@_) { @t = @_; } else { @t = localtime; }
$CZ_AB_WEEK_DAYS[$t[6]];
}
1;
__END__
|