OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	02/11/2020 08:10:07 AM	rwxr-xr-x
📄 Afar.pm	1.01 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 Amharic.pm	1.88 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 Austrian.pm	994 bytes	12/12/2009 12:30:06 PM	rw-r--r--
📄 Brazilian.pm	966 bytes	02/23/2009 09:34:32 PM	rw-r--r--
📄 Bulgarian.pm	2.51 KB	12/15/2010 12:14:11 AM	rw-r--r--
📄 Chinese.pm	977 bytes	12/12/2009 12:30:06 PM	rw-r--r--
📄 Chinese_GB.pm	918 bytes	02/23/2009 09:34:32 PM	rw-r--r--
📄 Czech.pm	1.38 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 Danish.pm	1.01 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 Dutch.pm	1.06 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 English.pm	973 bytes	02/23/2009 09:34:32 PM	rw-r--r--
📄 Finnish.pm	1.21 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 French.pm	992 bytes	02/23/2009 09:34:32 PM	rw-r--r--
📄 Gedeo.pm	1.04 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 German.pm	1.02 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 Greek.pm	2.76 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 Hungarian.pm	2.08 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 Icelandic.pm	1.01 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 Italian.pm	1006 bytes	12/12/2009 12:30:06 PM	rw-r--r--
📄 Norwegian.pm	1004 bytes	12/12/2009 12:30:06 PM	rw-r--r--
📄 Oromo.pm	999 bytes	02/23/2009 09:34:32 PM	rw-r--r--
📄 Romanian.pm	892 bytes	12/12/2009 12:30:06 PM	rw-r--r--
📄 Russian.pm	1.35 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 Russian_cp1251.pm	1.01 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 Russian_koi8r.pm	1.01 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 Sidama.pm	980 bytes	02/23/2009 09:34:32 PM	rw-r--r--
📄 Somali.pm	1.13 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 Spanish.pm	922 bytes	12/12/2009 12:27:24 PM	rw-r--r--
📄 Swedish.pm	1.1 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 Tigrinya.pm	1.4 KB	12/12/2009 12:30:06 PM	rw-r--r--
📄 TigrinyaEritrean.pm	1.86 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 TigrinyaEthiopian.pm	1.88 KB	02/23/2009 09:34:32 PM	rw-r--r--
📄 Turkish.pm	2.03 KB	12/12/2009 12:30:06 PM	rw-r--r--

Editing: Bulgarian.pm

##
## Bulgarian tables contributed by Krasimir Berov
##

package Date::Language::Bulgarian;
use strict;
use warnings;
use utf8;
use base qw(Date::Language);
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW, $VERSION);
$VERSION = "1.01";

@DoW = qw(неделя понеделник вторник сряда четвъртък петък събота);
@MoY = qw(януари февруари март април май юни
    юли август септември октомври ноември декември);
@DoWs = qw(нд пн вт ср чт пт сб);
@MoYs = map { substr($_,0,3) } @MoY;
@AMPM = qw(AM PM);

@Dsuf = (qw(ти ви ри ти ти ти ти ми ми ти)) x 3;
@Dsuf[11,12,13] = qw(ти ти ти);
@Dsuf[30,31] = qw(ти ви);

@MoY{@MoY}  = (0 .. scalar(@MoY));
@MoY{@MoYs} = (0 .. scalar(@MoYs));
@DoW{@DoW}  = (0 .. scalar(@DoW));
@DoW{@DoWs} = (0 .. scalar(@DoWs));

# Formatting routines

sub format_a { $DoWs[$_[0]->[6]] }
sub format_A { $DoW[$_[0]->[6]] }
sub format_b { $MoYs[$_[0]->[4]] }
sub format_B { $MoY[$_[0]->[4]] }
sub format_h { $MoYs[$_[0]->[4]] }
sub format_p { $_[0]->[2] >= 12 ?  $AMPM[1] : $AMPM[0] }
sub format_o { ($_[0]->[3]<10?' ':'').$_[0]->[3].$Dsuf[$_[0]->[3]] }

__END__

=encoding utf8

=head1 NAME

Date::Language::Bulgarian - localization for Date::Format

=head1 DESCRIPTION

This is Bulgarian localization for Date::Format. 
It is important to note that this module source code is in utf8.
All strings which it outputs are in utf8, so it is safe to use it 
currently only with English. You are left alone to try and convert 
the output when using different Date::Language::* in the same application. 
This should be addresed in the future.

=head1 SYNOPSIS

use strict; 
    use warnings;
    use Date::Language;
    local $\=$/;
    my $template ='%a %b %e %T %Y (%Y-%m-%d %H:%M:%S)';
    my $time=1290883821; #or just use time();
    my @lt = localtime($time);
    my %languages = qw(English GMT German EEST Bulgarian EET);
    binmode(select,':utf8');

foreach my $l(keys %languages){
        my $lang = Date::Language->new($l);
        my $zone = $languages{$l};
        print $/. "$l $zone";
        print $lang->time2str($template, $time);
        print $lang->time2str($template, $time, $zone);

print $lang->strftime($template, \@lt);
    }

=head1 AUTHOR

Krasimir Berov (berov@cpan.org)

=head1 COPYRIGHT

Copyright (c) 2010 Krasimir Berov. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.

=cut