[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
perl5
/
vendor_perl
/
Date
/
Language
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
π Afar.pm
1,032 B
SET
[ EDIT ]
|
[ DEL ]
π Amharic.pm
1,927 B
SET
[ EDIT ]
|
[ DEL ]
π Austrian.pm
994 B
SET
[ EDIT ]
|
[ DEL ]
π Brazilian.pm
966 B
SET
[ EDIT ]
|
[ DEL ]
π Bulgarian.pm
2,567 B
SET
[ EDIT ]
|
[ DEL ]
π Chinese.pm
977 B
SET
[ EDIT ]
|
[ DEL ]
π Chinese_GB.pm
918 B
SET
[ EDIT ]
|
[ DEL ]
π Czech.pm
1,411 B
SET
[ EDIT ]
|
[ DEL ]
π Danish.pm
1,035 B
SET
[ EDIT ]
|
[ DEL ]
π Dutch.pm
1,086 B
SET
[ EDIT ]
|
[ DEL ]
π English.pm
973 B
SET
[ EDIT ]
|
[ DEL ]
π Finnish.pm
1,239 B
SET
[ EDIT ]
|
[ DEL ]
π French.pm
992 B
SET
[ EDIT ]
|
[ DEL ]
π Gedeo.pm
1,064 B
SET
[ EDIT ]
|
[ DEL ]
π German.pm
1,040 B
SET
[ EDIT ]
|
[ DEL ]
π Greek.pm
2,826 B
SET
[ EDIT ]
|
[ DEL ]
π Hungarian.pm
2,133 B
SET
[ EDIT ]
|
[ DEL ]
π Icelandic.pm
1,037 B
SET
[ EDIT ]
|
[ DEL ]
π Italian.pm
1,006 B
SET
[ EDIT ]
|
[ DEL ]
π Norwegian.pm
1,004 B
SET
[ EDIT ]
|
[ DEL ]
π Oromo.pm
999 B
SET
[ EDIT ]
|
[ DEL ]
π Romanian.pm
892 B
SET
[ EDIT ]
|
[ DEL ]
π Russian.pm
1,384 B
SET
[ EDIT ]
|
[ DEL ]
π Russian_cp1251.pm
1,036 B
SET
[ EDIT ]
|
[ DEL ]
π Russian_koi8r.pm
1,034 B
SET
[ EDIT ]
|
[ DEL ]
π Sidama.pm
980 B
SET
[ EDIT ]
|
[ DEL ]
π Somali.pm
1,155 B
SET
[ EDIT ]
|
[ DEL ]
π Spanish.pm
922 B
SET
[ EDIT ]
|
[ DEL ]
π Swedish.pm
1,122 B
SET
[ EDIT ]
|
[ DEL ]
π Tigrinya.pm
1,434 B
SET
[ EDIT ]
|
[ DEL ]
π TigrinyaEritrean.pm
1,904 B
SET
[ EDIT ]
|
[ DEL ]
π TigrinyaEthiopian.pm
1,930 B
SET
[ EDIT ]
|
[ DEL ]
π Turkish.pm
2,079 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: Danish.pm
## ## Danish tables ## package Date::Language::Danish; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "1.01"; @MoY = qw(Januar Februar Marts April Maj Juni Juli August September Oktober November December); @MoYs = qw(Jan Feb Mar Apr Maj Jun Jul Aug Sep Okt Nov Dec); @DoW = qw(SοΏ½ndag Mandag Tirsdag Onsdag Torsdag Fredag LοΏ½rdag SοΏ½ndag); @DoWs = qw(SοΏ½n Man Tir Ons Tor Fre LοΏ½r SοΏ½n); use Date::Language::English (); @AMPM = @{Date::Language::English::AMPM}; @Dsuf = @{Date::Language::English::Dsuf}; @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;