OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
Date
/
Language
Server IP: 139.59.38.164
Upload:
Create Dir:
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: TigrinyaEthiopian.pm
Close
## ## Tigrinya-Ethiopian tables ## package Date::Language::TigrinyaEthiopian; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "1.00"; if ( $] >= 5.006 ) { @DoW = ( "\x{1230}\x{1295}\x{1260}\x{1275}", "\x{1230}\x{1291}\x{12ed}", "\x{1230}\x{1209}\x{1235}", "\x{1228}\x{1261}\x{12d5}", "\x{1213}\x{1219}\x{1235}", "\x{12d3}\x{122d}\x{1262}", "\x{1240}\x{12f3}\x{121d}" ); @MoY = ( "\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}", "\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}", "\x{121b}\x{122d}\x{127d}", "\x{12a4}\x{1355}\x{1228}\x{120d}", "\x{121c}\x{12ed}", "\x{1301}\x{1295}", "\x{1301}\x{120b}\x{12ed}", "\x{12a6}\x{1308}\x{1235}\x{1275}", "\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}", "\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}", "\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}", "\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}" ); @DoWs = map { substr($_,0,3) } @DoW; @MoYs = map { substr($_,0,3) } @MoY; @AMPM = ( "\x{1295}/\x{1230}", "\x{12F5}/\x{1230}" ); @Dsuf = ("\x{12ed}" x 31); } else { @DoW = ( "แฐแแ แต", "แฐแแญ", "แฐแแต", "แจแกแ", "แแแต", "แแญแข", "แแณแ" ); @MoY = ( "แแแฉแแช", "แแฅแฉแแช", "แแญแฝ", "แคแแจแ", "แแญ", "แแ", "แแแญ", "แฆแแตแต", "แดแแดแแ แญ", "แฆแญแฐแแ แญ", "แแฌแแ แญ", "แฒแดแแ แญ" ); @DoWs = map { substr($_,0,9) } @DoW; @MoYs = map { substr($_,0,9) } @MoY; @AMPM = ( "แ/แฐ", "แต/แฐ" ); @Dsuf = ("แญ" x 31); } @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] } 1;