Apache-MP3
view release on metacpan or search on metacpan
MP3/L10N/ar.pm view on Meta::CPAN
package Apache::MP3::L10N::ar; # Arabic
use strict;
use Apache::MP3::L10N::RightToLeft;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N::RightToLeft);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Isam Bayazidi <bayazidi|@arabeyes.org>
sub encoding { "utf-8" }
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/ca.pm view on Meta::CPAN
package Apache::MP3::L10N::ca; # Catalan
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# lou@visca.com
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "Escoltar tot",
MP3/L10N/cs.pm view on Meta::CPAN
package Apache::MP3::L10N::cs; # Czech
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Rado Hrabcak duffy@duffy.sk
sub encoding { "iso-8859-2" } # Latin-2
# Change as necessary if you use a different encoding
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/de.pm view on Meta::CPAN
package Apache::MP3::L10N::de; # German
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
# Translators, in no particular order:
# corion@informatik.uni-frankfurt.de
sub language_tag {__PACKAGE__->SUPER::language_tag}
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "Alles abspielen",
'Shuffle All' => 'Alles mischen', # Stream all in random order
'Stream All' => 'Alles streamen',
MP3/L10N/en.pm view on Meta::CPAN
package Apache::MP3::L10N::en;
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020611'), # Last modified
);
1;
MP3/L10N/es.pm view on Meta::CPAN
package Apache::MP3::L10N::es; # Spanish
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
# This translation by carenas2@alumni.gs.columbia.edu
sub language_tag {__PACKAGE__->SUPER::language_tag}
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "Tocar todas",
'Shuffle All' => 'Orden aleatorio', # Stream all in random order
'Stream All' => 'Tocar todas',
MP3/L10N/fa.pm view on Meta::CPAN
package Apache::MP3::L10N::fa; # Farsi / Persian
use strict;
use Apache::MP3::L10N::RightToLeft;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N::RightToLeft);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Arash Bijanzadeh <a.bijanzadeh@linuxiran.org>
sub encoding { "utf-8" }
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/fi.pm view on Meta::CPAN
#---------------------------------------------------------------------------
package Apache::MP3::L10N::fi; # Finnish (suomi)
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# jhi@iki.fi
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "Soita kaikki",
MP3/L10N/fr.pm view on Meta::CPAN
#---------------------------------------------------------------------------
package Apache::MP3::L10N::fr; # French
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators, in no particular order:
# lucst@sympatico.ca
# william@netymology.com
# leolo@pied.nu
# sburke@cpan.org
#
# [If you are using this module as a template for another language,
# delete the above addresses and put in your own.]
MP3/L10N/ga.pm view on Meta::CPAN
package Apache::MP3::L10N::ga; # Irish (Irish Gaelic)
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translator for this module:
# mgunn@egt.ie Marion Gunn
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "Seinn Uile",
MP3/L10N/he.pm view on Meta::CPAN
package Apache::MP3::L10N::he; # Hebrew
use strict;
use Apache::MP3::L10N::RightToLeft;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N::RightToLeft);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Shlomo Yona <shlomo@cs.haifa.ac.il>
sub encoding { "utf-8" }
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/hr.pm view on Meta::CPAN
package Apache::MP3::L10N::hr; # Croatian
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators: ivans@ordecon.com
sub encoding { "windows-1250" } # Central European MSWindows
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/is.pm view on Meta::CPAN
package Apache::MP3::L10N::is; # Icelandic
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Kristinn Gylfason, kristgy@ieee.org
# Arnar M. Hrafnkelsson, addi@umich.edu
sub encoding { "iso-8859-1" } # Latin-1
# Change as necessary if you use a different encoding
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
MP3/L10N/it.pm view on Meta::CPAN
#---------------------------------------------------------------------------
package Apache::MP3::L10N::it; # Italian
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Stefano Rodighiero, larsen@perlmonk.org
# Andrea Maestrutti, maestrutti@friuli.com
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
MP3/L10N/ja.pm view on Meta::CPAN
package Apache::MP3::L10N::ja; # Japanese
# Encoded in Shift_JIS, de facto standard of MP3 tags in Japan
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
# Translator: miyagawa@bulknews.net
sub encoding {'shift_jis'} # Shift-JIS
sub language_tag {__PACKAGE__->SUPER::language_tag}
sub sworp {
# Treat [ and ] as literal; use { and } as the metacharacters.
my @in = @_;
foreach my $x (@in) {
$x =~ s/\[/~[/g;
$x =~ s/\]/~]/g;
$x =~ tr<{}><[]>;
}
@in;
MP3/L10N/ko.pm view on Meta::CPAN
#---------------------------------------------------------------------------
package Apache::MP3::L10N::ko; # 'KO' means Korean language. The nation code is 'KR'.
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Apache::MP3::L1ON::ko
# Date: 2002-05-05
# Translation: ¹ÚÁ¾º¹ (Park, Jong-Pork), mailing@NO-SPAM.okclub.com(remove NO-SPAM.)
# Homepage: http://seoul.pm.org and http://www.okclub.com
sub encoding { "euc-kr" }
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
MP3/L10N/ms.pm view on Meta::CPAN
package Apache::MP3::L10N::ms; # Malay
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Shanai <shanai@tm.net.my>
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "Main Semua",
MP3/L10N/nb.pm view on Meta::CPAN
package Apache::MP3::L10N::nb; # Norwegian Bokmaal
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
# Translators, in no particular order:
# m@songsolutions.no
sub language_tag {__PACKAGE__->SUPER::language_tag}
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "Spill alle",
'Shuffle All' => 'Spill alle (tilfeldig)', # Stream all in random order
'Stream All' => 'Start strøm av alle',
MP3/L10N/nl.pm view on Meta::CPAN
package Apache::MP3::L10N::nl; # Dutch
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# pieter@hypervision.be,
# Maarten.Slaets@commerzbankib.com,
# boumans@frg.eur.nl
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/pl.pm view on Meta::CPAN
package Apache::MP3::L10N::pl; # Polish
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Piotr Klaban <makler@man.torun.pl>
sub encoding { "iso-8859-2" } # Latin-2
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/ru.pm view on Meta::CPAN
#---------------------------------------------------------------------------
package Apache::MP3::L10N::ru; # Russian
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Nikolayev Dmitry, nicky@nm.ru or nick@perl.dp.ua
sub encoding { "windows-1251" } # Windows
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/sk.pm view on Meta::CPAN
package Apache::MP3::L10N::sk; # Slovak
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Radovan Hrabcak duffy@duffy.sk
sub encoding { "iso-8859-2" } # Latin-2
# Change as necessary if you use a different encoding
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/sl.pm view on Meta::CPAN
package Apache::MP3::L10N::sl; #Slovenian
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# zoc@ziplip.com
sub encoding { "iso-8859-2" } # Latin-2
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/sr.pm view on Meta::CPAN
package Apache::MP3::L10N::sr; # Serbian (in Roman script)
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators: zoc@ziplip.com
sub encoding { "iso-8859-2" } # Latin-2
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
MP3/L10N/tr.pm view on Meta::CPAN
package Apache::MP3::L10N::tr; # Turkish
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Alper Tugay MIZRAK amizrak@cs.ucsd.edu
sub encoding { "iso-8859-9" } #Latin 5
# Change as necessary if you use a different encoding.
# I advise using whatever encoding is most widely supported
# in web browsers.
%Lexicon = (
MP3/L10N/uk.pm view on Meta::CPAN
#---------------------------------------------------------------------------
package Apache::MP3::L10N::uk; # Ukrainian
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators for this module, in no particular order:
# Nikolayev Dmitry, nicky@nm.ru or nick@perl.dp.ua
sub encoding { "windows-1251" } # Windows
# Change as necessary if you use a different encoding.
# I advise using whatever encoding is most widely supported
# in web browsers.
# Below I use a lot of &foo; codes, but you don't have to.
MP3/L10N/x_marklar.pm view on Meta::CPAN
package Apache::MP3::L10N::x_marklar; # Marklar
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
# Translators, in no particular order:
# sburke@cpan.org
sub language_tag {__PACKAGE__->SUPER::language_tag}
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "Play all marklars",
'Shuffle All' => 'Shuffle all marklars',
'Stream All' => 'Stream all marklars',
MP3/L10N/zh_cn.pm view on Meta::CPAN
package Apache::MP3::L10N::zh_cn; # Simplified Chinese
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
# Translators, in no particular order:
# autrijus@autrijus.org
sub encoding {'euc-cn'} # euc-cn (gb2312)
sub language_tag {__PACKAGE__->SUPER::language_tag}
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "È«²¿²¥·Å",
'Shuffle All' => 'Ëæ»ú²¥·Å', # Stream all in random order
'Stream All' => '´®Á÷²¥·Å',
MP3/L10N/zh_tw.pm view on Meta::CPAN
package Apache::MP3::L10N::zh_tw; # Traditional Chinese
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
# Translators, in no particular order:
# autrijus@autrijus.org
sub encoding {'big5'}
sub language_tag {__PACKAGE__->SUPER::language_tag}
%Lexicon = (
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => "¥þ³¡¼½©ñ",
'Shuffle All' => 'ÀH¾÷¼½©ñ', # Stream all in random order
'Stream All' => '¦ê¬y¼½©ñ',
MP3/Playlist.pm view on Meta::CPAN
use Apache::MP3::Sorted;
use CGI::Session;
@ISA = 'Apache::MP3::Sorted';
$VERSION = 1.05;
sub run {
my $self = shift;
my $result = $self->process_playlist;
return $result if defined $result;
$self->SUPER::run();
}
sub list_directory {
my $self = shift;
$self->r->headers_out->add(Expires => CGI::Util::expires('now'));
$self->SUPER::list_directory(@_);
}
sub process_playlist {
my $self = shift;
my $r = $self->r;
my @playlist;
my $changed;
my $playlist = $self->retrieve_playlist;
MP3/Playlist.pm view on Meta::CPAN
submit(-name=>'Clear All',-value=>$self->x('Clear All')),
submit(-class=>'playlist',-name=>'Clear Selected',-value=>$self->x('Clear Selected')),
submit(-class=>'playlist',-name=>'Play Selected',-value=>$self->x('Play Selected')),
submit(-class=>'playlist',-name=>'Shuffle All',-value=>$self->x('Shuffle All')),
submit(-class=>'playlist',-name=>'Play All',-value=>$self->x('Play All')),
hidden(-name=>'playlist',-value=>1,-override=>1),
end_form(),
))
);
}
$self->SUPER::directory_bottom(@_);
}
sub control_buttons {
my $self = shift;
return (
$self->{possibly_truncated}
? ()
: (submit({-class=>'playlist',
-name=>'Add to Playlist',
-value=>$self->x('Add to Playlist')}),
MP3/Playlist.pm view on Meta::CPAN
next unless my $file = $sub->filename;
next unless -r $file;
next unless my $info = $self->fetch_info($file,$sub->content_type);
$d{$song} = " $info->{description}";
}
return \%d;
}
sub directory_top {
my $self = shift;
$self->SUPER::directory_top(@_);
my @p = $self->playlist;
print div({-align=>'CENTER'},
a({-href=>'#playlist',-class=>'playlist'},$self->x('Playlist contains [quant,_1,song,songs].', scalar(@p))),br,
$self->{possibly_truncated} ? font({-color=>'red'},
strong($self->x('Your playlist is now full. No more songs can be added.'))) : '')
if @p;
}
sub playlist {
my $self = shift;
( run in 1.681 second using v1.01-cache-2.11-cpan-49f99fa48dc )