diff options
Diffstat (limited to 'lib')
37 files changed, 85 insertions, 233 deletions
diff --git a/lib/XXV/MODULES/AUTOTIMER.pm b/lib/XXV/MODULES/AUTOTIMER.pm index dc0c3e1..28dec01 100644 --- a/lib/XXV/MODULES/AUTOTIMER.pm +++ b/lib/XXV/MODULES/AUTOTIMER.pm @@ -17,10 +17,6 @@ sub module { 'Date::Manip' => 'date manipulation routines' }, Description => gettext('This module searches for EPG entries with user-defined text and creates new timers.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $obj->status(@_) }, Preferences => { active => { diff --git a/lib/XXV/MODULES/CHANNELS.pm b/lib/XXV/MODULES/CHANNELS.pm index 0d968d0..6976572 100644 --- a/lib/XXV/MODULES/CHANNELS.pm +++ b/lib/XXV/MODULES/CHANNELS.pm @@ -15,10 +15,6 @@ sub module { # 'modul' => 'description', }, Description => gettext('This module reads new channels and stores them in the database.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $self->status(@_) }, Preferences => { interval => { @@ -310,7 +306,7 @@ sub _prepare { my $id; $data->[12] = (split(':', $data->[12]))[0]; # if($data->[12] && $data->[12] > 0 && $data->[12] < 100) { - # By DVB-C gabs Probleme weil die Zahl grsser 100 war + # By DVB-C gabs Probleme weil die Zahl grösser 100 war # Siehe auch http://www.vdr-portal.de/board/thread.php?sid=&postid=364373 if($data->[12] && $data->[12] > 0) { $id = sprintf('%s-%u-%u-%u-%u', $data->[3], $data->[10], ($data->[10] || $data->[11]) ? $data->[11] : $altid, $data->[9],$data->[12]); diff --git a/lib/XXV/MODULES/CHRONICLE.pm b/lib/XXV/MODULES/CHRONICLE.pm index 74c94b2..ac6d499 100644 --- a/lib/XXV/MODULES/CHRONICLE.pm +++ b/lib/XXV/MODULES/CHRONICLE.pm @@ -15,10 +15,6 @@ sub module { # 'Perl::Module' => 'Description', }, Description => gettext('This module saves recordings in a chronicle.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'Andreas Brachold', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/MODULES/CONFIG.pm b/lib/XXV/MODULES/CONFIG.pm index 9e67804..a9d0cda 100644 --- a/lib/XXV/MODULES/CONFIG.pm +++ b/lib/XXV/MODULES/CONFIG.pm @@ -15,10 +15,6 @@ sub module { 'Module::Reload' => 'Reload %INC files when updated on disk ', }, Description => gettext('This module edits, writes and saves the configuration.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Commands => { configedit => { description => gettext("Edit configuration 'section'"), diff --git a/lib/XXV/MODULES/EPG.pm b/lib/XXV/MODULES/EPG.pm index c3a8804..90ae17d 100644 --- a/lib/XXV/MODULES/EPG.pm +++ b/lib/XXV/MODULES/EPG.pm @@ -16,10 +16,6 @@ sub module { 'Time::Local' => 'efficiently compute time from local and GMT time ', }, Description => gettext('This module reads new EPG data and saves it to the database.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $self->status(@_) }, Preferences => { epgimages => { @@ -341,7 +337,7 @@ sub startReadEpgData { } # Routine um Callbacks zu registrieren die vor dem Aktualisieren der EPG Daten -# ausgefhrt werden +# ausgeführt werden # ------------------ sub before_updated { # ------------------ @@ -352,7 +348,7 @@ sub before_updated { push(@{$self->{before_updated}}, [$cb, $log]); } -# Ausfhren der Registrierten Callbacks vor dem Aktualisieren der EPG Daten +# Ausführen der Registrierten Callbacks vor dem Aktualisieren der EPG Daten # ------------------ sub _before_updated { # ------------------ @@ -370,7 +366,7 @@ sub _before_updated { } # Routine um Callbacks zu registrieren die nach dem Aktualisieren der EPG Daten -# ausgefhrt werden +# ausgeführt werden # ------------------ sub updated { # ------------------ @@ -381,7 +377,7 @@ sub updated { push(@{$self->{after_updated}}, [$cb, $log]); } -# Ausfhren der Registrierten Callbacks nach dem Aktualisieren der EPG Daten +# Ausführen der Registrierten Callbacks nach dem Aktualisieren der EPG Daten # ------------------ sub _updated { # ------------------ @@ -696,7 +692,7 @@ sub search { # Audioformat search # XXX: Leider kann man an den Audioeintrag nicht richtig erkennnen - # hab erst zu spt erkannt das diese Info aus dem tvm2vdr kommen ;( + # hab erst zu spät erkannt das diese Info aus dem tvm2vdr kommen ;( # if($params->{Audioformat} eq 'dts') { # $search->{query} .= ' AND e.audio like "%%Digital%%"'; # } diff --git a/lib/XXV/MODULES/EVENTS.pm b/lib/XXV/MODULES/EVENTS.pm index 4f798b5..4faa17c 100644 --- a/lib/XXV/MODULES/EVENTS.pm +++ b/lib/XXV/MODULES/EVENTS.pm @@ -21,10 +21,6 @@ a defined Event exists and match the keywords defined in Module->RegEvent->SearchForEvent then call the Loghandler 'callEvent'. This sub look in Module->RegEvent->Actions, and call this Routines. "), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/MODULES/GRAB.pm b/lib/XXV/MODULES/GRAB.pm index 6c66dda..c64e88b 100644 --- a/lib/XXV/MODULES/GRAB.pm +++ b/lib/XXV/MODULES/GRAB.pm @@ -17,10 +17,6 @@ sub module { ,'Font::TTF::Font' => 'String table for a TTF font' }, Description => gettext('This module grab a picture from video output.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { xsize => { description => gettext('Image width'), diff --git a/lib/XXV/MODULES/HTTPD.pm b/lib/XXV/MODULES/HTTPD.pm index f336b71..aff0433 100644 --- a/lib/XXV/MODULES/HTTPD.pm +++ b/lib/XXV/MODULES/HTTPD.pm @@ -50,10 +50,6 @@ sub module { ,'Compress::Zlib' => 'Interface to zlib compression library' }, Description => gettext('This module is a multisession HTTPD server.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $self->status(@_) }, Preferences => { active => { diff --git a/lib/XXV/MODULES/INTERFACE.pm b/lib/XXV/MODULES/INTERFACE.pm index 3e3b2ab..85aac18 100644 --- a/lib/XXV/MODULES/INTERFACE.pm +++ b/lib/XXV/MODULES/INTERFACE.pm @@ -20,10 +20,6 @@ sub module { "SOAP::Transport::HTTP::Event" => 'Server/Client side HTTP support for SOAP::Lite', }, Description => gettext('This module is a multichannel soap server for second party software.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/MODULES/KEYWORDS.pm b/lib/XXV/MODULES/KEYWORDS.pm index 7eb2529..6285dec 100644 --- a/lib/XXV/MODULES/KEYWORDS.pm +++ b/lib/XXV/MODULES/KEYWORDS.pm @@ -15,10 +15,6 @@ sub module { 'XML::Simple' => 'Easy API to maintain XML (esp config files)' }, Description => gettext('This module manages keywords and tag within timer and recordings.'), - Version => (split(/ /, '$Revision: 1332 $'))[1], - Date => (split(/ /, '$Date: 2008-05-24 09:05:56 +0200 (Sa, 24 Mai 2008) $'))[1], - Author => 'anbr', - LastAuthor => (split(/ /, '$Author: anbr $'))[1], # Status => sub{ $self->status(@_) }, Preferences => { active => { diff --git a/lib/XXV/MODULES/LOGREAD.pm b/lib/XXV/MODULES/LOGREAD.pm index 214b202..b9cdc56 100644 --- a/lib/XXV/MODULES/LOGREAD.pm +++ b/lib/XXV/MODULES/LOGREAD.pm @@ -18,10 +18,6 @@ sub module { # 'Perl::Module' => 'Description', }, Description => gettext('This module reads the xxv log file and displays it on the console.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Level => 'admin', Preferences => { active => { diff --git a/lib/XXV/MODULES/MEDIALIB.pm b/lib/XXV/MODULES/MEDIALIB.pm index 993fff0..57c409e 100644 --- a/lib/XXV/MODULES/MEDIALIB.pm +++ b/lib/XXV/MODULES/MEDIALIB.pm @@ -19,10 +19,6 @@ sub module { 'LWP::UserAgent' => 'simple procedural interface to LWP', }, Description => gettext('This module manages media like DVDs, VCD, etc.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'poetter', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $obj->status(@_) }, Preferences => { active => { @@ -395,7 +391,7 @@ sub importMedia { if ( $params->{genres} ) { my $gen_hash_1 = $obj->_get_videogenres_as_hash; my $gen_hash_2 = { - 'Komdie' => 'Comedy', + 'Komödie' => 'Comedy', 'Musik' => 'Music', 'Musikfilm' => 'Music', 'Kriegsfilm' => 'War', diff --git a/lib/XXV/MODULES/MOVETIMER.pm b/lib/XXV/MODULES/MOVETIMER.pm index 728aefe..64ddbb2 100644 --- a/lib/XXV/MODULES/MOVETIMER.pm +++ b/lib/XXV/MODULES/MOVETIMER.pm @@ -14,10 +14,6 @@ sub module { # 'Perl::Module' => 'Description', }, Description => gettext('This module move timers between channels.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'Andreas Brachold', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/MODULES/MUSIC.pm b/lib/XXV/MODULES/MUSIC.pm index 6fc2392..a808361 100644 --- a/lib/XXV/MODULES/MUSIC.pm +++ b/lib/XXV/MODULES/MUSIC.pm @@ -26,10 +26,6 @@ sub module { 'Net::Amazon::Request::Artist' => 'Class for submitting Artist requests', }, Description => gettext('This module managed music files.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $self->status(@_) }, Preferences => { active => { diff --git a/lib/XXV/MODULES/RECORDS.pm b/lib/XXV/MODULES/RECORDS.pm index d9836c2..235eba1 100644 --- a/lib/XXV/MODULES/RECORDS.pm +++ b/lib/XXV/MODULES/RECORDS.pm @@ -28,10 +28,6 @@ sub module { 'Linux::Inotify2' => 'scalable directory/file change notification' }, Description => gettext('This module manages recordings.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $self->status(@_) }, Preferences => { commandfile => { diff --git a/lib/XXV/MODULES/REMOTE.pm b/lib/XXV/MODULES/REMOTE.pm index c78146f..9688b86 100644 --- a/lib/XXV/MODULES/REMOTE.pm +++ b/lib/XXV/MODULES/REMOTE.pm @@ -15,10 +15,6 @@ sub module { # 'Perl::Module' => 'Description', }, Description => gettext('This module emulate a remote control.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Level => 'user', Preferences => { active => { diff --git a/lib/XXV/MODULES/REPORT.pm b/lib/XXV/MODULES/REPORT.pm index 63ab363..c861fb8 100644 --- a/lib/XXV/MODULES/REPORT.pm +++ b/lib/XXV/MODULES/REPORT.pm @@ -16,10 +16,6 @@ sub module { # 'Perl::Module' => 'Description', }, Description => gettext('This module read and show status information from every module.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Level => 'user', Preferences => { active => { diff --git a/lib/XXV/MODULES/ROBOT.pm b/lib/XXV/MODULES/ROBOT.pm index 4ed0f9b..9bcf2c0 100644 --- a/lib/XXV/MODULES/ROBOT.pm +++ b/lib/XXV/MODULES/ROBOT.pm @@ -16,10 +16,6 @@ sub module { # 'WWW::Mechanize' => 'Handy web browsing in a Perl object ', }, Description => gettext('This module register and run robots to fetch data from internet.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $obj->status(@_) }, Preferences => { active => { diff --git a/lib/XXV/MODULES/SHARE.pm b/lib/XXV/MODULES/SHARE.pm index d68b6b0..4845ae6 100644 --- a/lib/XXV/MODULES/SHARE.pm +++ b/lib/XXV/MODULES/SHARE.pm @@ -52,10 +52,6 @@ sub module { 'SOAP::Lite' => 'Client and server side SOAP implementation.', }, Description => gettext('This module send anonymized epg data from programmed timern to a common web service. And read backward a ranking list of most programmed epg events.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/MODULES/STATUS.pm b/lib/XXV/MODULES/STATUS.pm index ce09def..1a8e41f 100644 --- a/lib/XXV/MODULES/STATUS.pm +++ b/lib/XXV/MODULES/STATUS.pm @@ -16,10 +16,6 @@ sub module { 'Font::TTF::Font' => 'String table for a TTF font' }, Description => gettext('This module analyzes your system and displays the result.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Level => 'user', Preferences => { active => { diff --git a/lib/XXV/MODULES/STREAM.pm b/lib/XXV/MODULES/STREAM.pm index 622dcfc..005985e 100644 --- a/lib/XXV/MODULES/STREAM.pm +++ b/lib/XXV/MODULES/STREAM.pm @@ -18,10 +18,6 @@ sub module { # 'Perl::Module' => 'Description', }, Description => gettext('This module generate streams from recordings.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { host => { description => gettext('Used host of referred link inside playlist.'), diff --git a/lib/XXV/MODULES/SVDRP.pm b/lib/XXV/MODULES/SVDRP.pm index 5637b56..7d82947 100644 --- a/lib/XXV/MODULES/SVDRP.pm +++ b/lib/XXV/MODULES/SVDRP.pm @@ -17,10 +17,6 @@ sub module { 'IO::Socket::INET' => 'Object interface for AF_INET domain sockets ', }, Description => gettext('This module module manages connection to video disk recorder.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $self->status(@_) }, Preferences => { timeout => { diff --git a/lib/XXV/MODULES/TELNET.pm b/lib/XXV/MODULES/TELNET.pm index c7f93a7..4bce7fb 100644 --- a/lib/XXV/MODULES/TELNET.pm +++ b/lib/XXV/MODULES/TELNET.pm @@ -17,10 +17,6 @@ sub module { 'IO::Socket::INET' => 'Object interface for AF_INET domain sockets ', }, Description => gettext('This module is a multisession telnet server.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/MODULES/TIMERS.pm b/lib/XXV/MODULES/TIMERS.pm index 6c87dc7..e121b83 100644 --- a/lib/XXV/MODULES/TIMERS.pm +++ b/lib/XXV/MODULES/TIMERS.pm @@ -16,10 +16,6 @@ sub module { 'Digest::MD5 qw(md5_hex)' => 'Perl interface to the MD5 Algorithm' }, Description => gettext('This module reads timers and saves it to the database.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Status => sub{ $self->status(@_) }, Preferences => { interval => { diff --git a/lib/XXV/MODULES/USER.pm b/lib/XXV/MODULES/USER.pm index 34375f3..e82cec5 100644 --- a/lib/XXV/MODULES/USER.pm +++ b/lib/XXV/MODULES/USER.pm @@ -24,10 +24,6 @@ gettext("This module manages the User administration. You may set a level for the whole module with the 'Level' parameter in the main module or the same parameter is set for each function."), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Enable user authentication'), @@ -1198,7 +1194,7 @@ sub userTmp { my $dir = $self->createTmpDir($user, $$); if($dir) { - # Nach Logout oder beenden von xxv das temp lschen + # Nach Logout oder beenden von xxv das temp löschen main::toCleanUp($user, sub{ deleteDir($dir) }, 'logout') unless(main::toCleanUp($user, undef, 'exists')); # ein CB registrieren } diff --git a/lib/XXV/MODULES/VTX.pm b/lib/XXV/MODULES/VTX.pm index 890c2a7..0aee894 100644 --- a/lib/XXV/MODULES/VTX.pm +++ b/lib/XXV/MODULES/VTX.pm @@ -16,10 +16,6 @@ sub module { # 'Perl::Module' => 'Description', }, Description => gettext('This module display cached teletext pages from osdteletext-plugin.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'Andreas Brachold', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), @@ -432,7 +428,7 @@ my @tableascii = ( '=', # 0x3D '>', # 0x3E '?', # 0x3F - '', # 0x40 + '§', # 0x40 'A', # 0x41 'B', # 0x42 'C', # 0x43 @@ -459,12 +455,12 @@ my @tableascii = ( 'X', # 0x58 'Y', # 0x59 'Z', # 0x5A - '', # 0x5B - '', # 0x5C - '', # 0x5D + 'Ä', # 0x5B + 'Ö', # 0x5C + 'Ü', # 0x5D '^', # 0x5E '_', # 0x5F - '', # 0x60 + '°', # 0x60 'a', # 0x61 'b', # 0x62 'c', # 0x63 @@ -491,15 +487,15 @@ my @tableascii = ( 'x', # 0x78 'y', # 0x79 'z', # 0x7A - '', # 0x7B - '', # 0x7C - '', # 0x7D - '', #/0x7E + 'ä', # 0x7B + 'ö', # 0x7C + 'ü', # 0x7D + 'ß', #/0x7E ' ', # Block 0x7F '@', # 0x80 ' ', # 0x81 ' ', # 0x82 - '', # 0x83 + '£', # 0x83 '$', # 0x84 ' ', # 0x85 ' ', # 0x86 @@ -512,21 +508,21 @@ my @tableascii = ( ' ', # 0x8D ' ', # 0x8E '#', # 0x8F - '', # 0x90 - '', # 0x91 - '', # 0x92 + 'É', # 0x90 + 'é', # 0x91 + 'ä', # 0x92 '#', # 0x93 ' ', # 0x94 ' ', # 0x95 ' ', # 0x96 ' ', # 0x97 - '', # 0x98 - '', # 0x99 - '', # 0x9A - '', # 0x9B - '', # 0x9C - '', # 0x9D - '', # 0x9E + 'ö', # 0x98 + 'å', # 0x99 + 'ü', # 0x9A + 'Ä', # 0x9B + 'Ö', # 0x9C + 'Å', # 0x9D + 'Ü', # 0x9E '_', # 0x9F ' ', # 0x20a 0xA0 ' ', # 0x21a 0xA1 @@ -560,68 +556,68 @@ my @tableascii = ( ' ', # 0x3Da 0xBD ' ', # 0x3Ea 0xBE ' ', # 0x3Fa 0xBF - '', # 0xC0 - '', # 0xC1 - '', # 0xC2 - '', # 0xC3 + 'é', # 0xC0 + 'ù', # 0xC1 + 'à', # 0xC2 + '£', # 0xC3 '$', # 0xC4 - '', # 0xC5 - '', # 0xC6 + 'ã', # 0xC5 + 'õ', # 0xC6 ' ', # 0xC7 - '', # 0xC8 - '', # 0xC9 - '', # 0xCA - '', # 0xCB - '', # 0xCC + 'ò', # 0xC8 + 'è', # 0xC9 + 'ì', # 0xCA + '°', # 0xCB + 'ç', # 0xCC ' ', # 0xCD ' ', # 0xCE '#', # 0xCF - '', # 0xD0 - '', # 0xD1 - '', # 0xD2 - '', # 0xD3 - '', # 0xD4 - '', # 0xD5 - '', # 0xD6 - '', # 0xD7 - '', # 0xD8 - '', # 0xD9 - '', # 0xDA - '', # 0xDB - '', # 0xDC - '', # 0xDD - '', # 0xDE + 'à', # 0xD0 + 'è', # 0xD1 + 'â', # 0xD2 + 'é', # 0xD3 + 'ï', # 0xD4 + 'Ã', # 0xD5 + 'Õ', # 0xD6 + 'Ç', # 0xD7 + 'ô', # 0xD8 + 'û', # 0xD9 + 'ç', # 0xDA + 'ë', # 0xDB + 'ê', # 0xDC + 'ù', # 0xDD + 'î', # 0xDE '#', # 0xDF - '', # 0xE0 - '', # 0xE1 - '', # 0xE2 - '', # 0xE3 + '¡', # 0xE0 + '¿', # 0xE1 + 'ü', # 0xE2 + 'ç', # 0xE3 '$', # 0xE4 ' ', # 0xE5 ' ', # 0xE6 ' ', # 0xE7 - '', # 0xE8 - '', # 0xE9 - '', # 0xEA - '', # 0xEB - '', # 0xEC - '', # 0xED - '', # 0xEE - '', # 0xEF - '', # 0xF0 - '', # 0xF1 - '', # 0xF2 - '', # 0xF3 - '', # 0xF4 - '', # 0xF5 - '', # 0xF6 - '', # 0xF7 - '', # 0xF8 - '', # 0xF9 - '', # 0xFA + 'ñ', # 0xE8 + 'è', # 0xE9 + 'à', # 0xEA + 'á', # 0xEB + 'é', # 0xEC + 'í', # 0xED + 'ó', # 0xEE + 'ú', # 0xEF + 'Á', # 0xF0 + 'À', # 0xF1 + 'È', # 0xF2 + 'Í', # 0xF3 + 'Ï', # 0xF4 + 'Ó', # 0xF5 + 'Ò', # 0xF6 + 'Ú', # 0xF7 + 'æ', # 0xF8 + 'Æ', # 0xF9 + 'ð', # 0xFA ' ', # 0xFB - '', # 0xFC - '', # 0xFD + 'ø', # 0xFC + 'Ø', # 0xFD ' ', # 0xFE ' ', # 0xFF ' ', # 0x60a diff --git a/lib/XXV/MODULES/WAPD.pm b/lib/XXV/MODULES/WAPD.pm index eb0a562..38d09fa 100644 --- a/lib/XXV/MODULES/WAPD.pm +++ b/lib/XXV/MODULES/WAPD.pm @@ -29,10 +29,6 @@ sub module { => 'Simple Common Gateway Interface Class', }, Description => gettext('This module is a multisession WAPD server.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/MODULES/XMLTV.pm b/lib/XXV/MODULES/XMLTV.pm index 4f4c9ec..c446224 100644 --- a/lib/XXV/MODULES/XMLTV.pm +++ b/lib/XXV/MODULES/XMLTV.pm @@ -19,10 +19,6 @@ sub module { 'XML::Simple' => 'Easy API to maintain XML (esp config files)' }, Description => gettext('This module import epg data from xmltv sources.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'Andreas Brachold', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/OUTPUT/Ajax.pm b/lib/XXV/OUTPUT/Ajax.pm index 37457a4..f2abcef 100644 --- a/lib/XXV/OUTPUT/Ajax.pm +++ b/lib/XXV/OUTPUT/Ajax.pm @@ -18,11 +18,7 @@ sub module { 'XML::Simple' => 'Easy API to maintain XML (esp config files)', 'JSON' => 'Parse and convert to JSON (JavaScript Object Notation)', }, - Description => gettext('This receive and send Ajax messages.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], + Description => gettext('This receive and send Ajax messages.') }; return $args; } diff --git a/lib/XXV/OUTPUT/Console.pm b/lib/XXV/OUTPUT/Console.pm index 3f83797..cb73f6b 100644 --- a/lib/XXV/OUTPUT/Console.pm +++ b/lib/XXV/OUTPUT/Console.pm @@ -23,11 +23,7 @@ sub module { # 'Term::ReadLine' => 'Perl interface to various readline packages.', 'Term::ReadLine::Perl' => 'a quick implementation of the minimal interface to Readline', }, - Description => gettext('This receives and sends ASCII messages'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], + Description => gettext('This receives and sends ASCII messages') }; return $args; } diff --git a/lib/XXV/OUTPUT/Dump.pm b/lib/XXV/OUTPUT/Dump.pm index 3c57b6e..7f143ef 100644 --- a/lib/XXV/OUTPUT/Dump.pm +++ b/lib/XXV/OUTPUT/Dump.pm @@ -14,11 +14,7 @@ sub module { Name => 'Dump', Prereq => { }, - Description => gettext('This receives and sends dump messages.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], + Description => gettext('This receives and sends dump messages.') }; return $args; } diff --git a/lib/XXV/OUTPUT/Html.pm b/lib/XXV/OUTPUT/Html.pm index c6118eb..71a6f5d 100644 --- a/lib/XXV/OUTPUT/Html.pm +++ b/lib/XXV/OUTPUT/Html.pm @@ -28,11 +28,7 @@ sub module { 'IO::Select' => 'OO interface to the select system call', 'IO::Handle' => 'Supply object methods for I/O handles' }, - Description => gettext('This receives and sends HTML messages.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], + Description => gettext('This receives and sends HTML messages.') }; return $args; } diff --git a/lib/XXV/OUTPUT/NEWS/JABBER.pm b/lib/XXV/OUTPUT/NEWS/JABBER.pm index 440e5d5..93f41a0 100644 --- a/lib/XXV/OUTPUT/NEWS/JABBER.pm +++ b/lib/XXV/OUTPUT/NEWS/JABBER.pm @@ -57,10 +57,6 @@ or Telnet Interface: Then you must receive a message in your running jabber client. |), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), @@ -284,7 +280,7 @@ sub req { my $vars = { AddDate => time, Title => 'This is a testmessage for NEWS::JABBER ...', - Text => "abcdefghijklmnopqrstuvwxyz\nABCDEFGHIJKLMNOPQRSTUVWXYZ\n0123456789\n!@#$%^&*()_+=-':;<>?/\n", + Text => "abcdefghijklmnopqrstuvwxyz\nABCDEFGHIJKLMNOPQRSTUVWXYZ\n0123456789\näüöÄÜÖ!@#$%^&*()_+=-':;<>?/\n", Level => 100, }; diff --git a/lib/XXV/OUTPUT/NEWS/MAIL.pm b/lib/XXV/OUTPUT/NEWS/MAIL.pm index 935f4e3..2ec162f 100644 --- a/lib/XXV/OUTPUT/NEWS/MAIL.pm +++ b/lib/XXV/OUTPUT/NEWS/MAIL.pm @@ -21,10 +21,6 @@ sub module { 'Mail::SendEasy' => 'Simple platform independent mailer', }, Description => gettext('This NEWS module generate mails for news.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/OUTPUT/NEWS/RSS.pm b/lib/XXV/OUTPUT/NEWS/RSS.pm index c796db9..04c6bb3 100644 --- a/lib/XXV/OUTPUT/NEWS/RSS.pm +++ b/lib/XXV/OUTPUT/NEWS/RSS.pm @@ -21,10 +21,6 @@ sub module { 'XML::RSS' => 'SMTP Protocol module to connect and send emails', }, Description => gettext('This NEWS module generates an RSS news feed for your RSS reader.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/OUTPUT/NEWS/VDR.pm b/lib/XXV/OUTPUT/NEWS/VDR.pm index 95beb59..d28d717 100644 --- a/lib/XXV/OUTPUT/NEWS/VDR.pm +++ b/lib/XXV/OUTPUT/NEWS/VDR.pm @@ -18,10 +18,6 @@ sub module { my $args = { Name => 'NEWS::VDR', Description => gettext('This NEWS module generates messages for the VDR interface.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], Preferences => { active => { description => gettext('Activate this service'), diff --git a/lib/XXV/OUTPUT/Wml.pm b/lib/XXV/OUTPUT/Wml.pm index 4509639..e49f725 100644 --- a/lib/XXV/OUTPUT/Wml.pm +++ b/lib/XXV/OUTPUT/Wml.pm @@ -17,11 +17,7 @@ sub module { Prereq => { 'Template' => 'Front-end module to the Template Toolkit', }, - Description => gettext('This receives and sends WAP messages.'), - Version => (split(/ /, '$Revision$'))[1], - Date => (split(/ /, '$Date$'))[1], - Author => 'xpix', - LastAuthor => (split(/ /, '$Author$'))[1], + Description => gettext('This receives and sends WAP messages.') }; return $args; } |