diff options
| -rw-r--r-- | perl-install/share/advertising/05.pl | 2 | ||||
| -rw-r--r-- | perl-install/share/advertising/10.pl | 4 | ||||
| -rw-r--r-- | perl-install/share/advertising/14.pl | 4 | ||||
| -rw-r--r-- | perl-install/share/advertising/21.pl | 4 | ||||
| -rw-r--r-- | perl-install/share/advertising/22.pl | 4 | ||||
| -rw-r--r-- | perl-install/share/advertising/24.pl | 4 | ||||
| -rw-r--r-- | perl-install/share/advertising/28.pl | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakpxe | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/draksplash | 2 |
9 files changed, 21 insertions, 9 deletions
diff --git a/perl-install/share/advertising/05.pl b/perl-install/share/advertising/05.pl index f527b58e7..e2017969d 100644 --- a/perl-install/share/advertising/05.pl +++ b/perl-install/share/advertising/05.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; diff --git a/perl-install/share/advertising/10.pl b/perl-install/share/advertising/10.pl index 4c444457e..a59f1d206 100644 --- a/perl-install/share/advertising/10.pl +++ b/perl-install/share/advertising/10.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -14,4 +16,4 @@ $border = 10; #- for leftish text ' ', N("Mandrakesoft has developed two products that allow you to use Mandrakelinux <b>on any computer</b> and without any need to actually install it:"), N(" * <b>Move</b>, a Mandrakelinux distribution that runs entirely from a bootable CD-ROM."), - N(" * <b>GlobeTrotter</b>, a Mandrakelinux distribution pre-installed on the ultra-compact “LaCie Mobile Hard Drive”."));
\ No newline at end of file + N(" * <b>GlobeTrotter</b>, a Mandrakelinux distribution pre-installed on the ultra-compact “LaCie Mobile Hard Drive”.")); diff --git a/perl-install/share/advertising/14.pl b/perl-install/share/advertising/14.pl index a46e1ff84..c886c1094 100644 --- a/perl-install/share/advertising/14.pl +++ b/perl-install/share/advertising/14.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -16,4 +18,4 @@ $border = 10; #- for leftish text ' ', N("It is a <b>full-featured office suite</b> that includes word processor, spreadsheet, presentation and drawing applications."), ' ', - N("OpenOffice.org can read and write most types of <b>Microsoft® Office</b> documents such as Word, Excel and PowerPoint® files."));
\ No newline at end of file + N("OpenOffice.org can read and write most types of <b>Microsoft® Office</b> documents such as Word, Excel and PowerPoint® files.")); diff --git a/perl-install/share/advertising/21.pl b/perl-install/share/advertising/21.pl index a9961b402..6bbc66812 100644 --- a/perl-install/share/advertising/21.pl +++ b/perl-install/share/advertising/21.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -20,4 +22,4 @@ $border = 10; #- for leftish text N(" * Scripting languages:"), N(" * <b>Perl</b>"), N(" * <b>Python</b>"), - N(" * And many more."));
\ No newline at end of file + N(" * And many more.")); diff --git a/perl-install/share/advertising/22.pl b/perl-install/share/advertising/22.pl index 18d0ee371..450ded214 100644 --- a/perl-install/share/advertising/22.pl +++ b/perl-install/share/advertising/22.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -14,4 +16,4 @@ $border = 10; #- for leftish text ' ', N("PowerPack gives you the best tools to <b>develop</b> your own applications."), ' ', - N("With the powerful integrated development environment <b>KDevelop</b> and the leading Linux compiler <b>GCC</b>, you will be able to create applications in <b>many different languages</b> (C, C++, Java™, Perl, Python, etc.)."));
\ No newline at end of file + N("With the powerful integrated development environment <b>KDevelop</b> and the leading Linux compiler <b>GCC</b>, you will be able to create applications in <b>many different languages</b> (C, C++, Java™, Perl, Python, etc.).")); diff --git a/perl-install/share/advertising/24.pl b/perl-install/share/advertising/24.pl index b09429d75..075b90d1b 100644 --- a/perl-install/share/advertising/24.pl +++ b/perl-install/share/advertising/24.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -18,4 +20,4 @@ $border = 10; #- for leftish text N(" * <b>MySQL</b> and <b>PostgreSQL</b>: The world's most popular open source databases."), N(" * <b>CVS</b>: Concurrent Versions System, the dominant open source network-transparent version control system."), N(" * <b>ProFTPD</b>: The highly configurable GPL-licensed FTP server software."), - N(" * <b>Postfix</b> and <b>Sendmail</b>: The popular and powerful mail servers."));
\ No newline at end of file + N(" * <b>Postfix</b> and <b>Sendmail</b>: The popular and powerful mail servers.")); diff --git a/perl-install/share/advertising/28.pl b/perl-install/share/advertising/28.pl index f688cd2e7..cce312594 100644 --- a/perl-install/share/advertising/28.pl +++ b/perl-install/share/advertising/28.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -19,4 +21,4 @@ $border = 10; #- for leftish text N(" * Access to <b>commercial applications</b> (for example to NVIDIA® or ATI™ drivers)."), N(" * Participation in Mandrakelinux <b>user forums</b>."), N(" * <b>Early and privileged access</b>, before public release, to Mandrakelinux <b>ISO images</b>."), - N(" * And many more."));
\ No newline at end of file + N(" * And many more.")); diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe index 5e374faff..d6e37c1ed 100755 --- a/perl-install/standalone/drakpxe +++ b/perl-install/standalone/drakpxe @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# Franois Pons <fpons@mandrakesoft.com> +# Fran,cois Pons <fpons@mandrakesoft.com> # # Copyright 2003-2004 Mandrakesoft # diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 072b593b6..7b0d9ea81 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -290,7 +290,6 @@ sub set_scale_values() { #- Desc => check if this theme is available in the current resolution else #- change the current resolution or display a ask_warn box -#- Args => #- return=> (bool) sub thm_in_this_res { my ($check_res) = @_; @@ -311,7 +310,6 @@ sub which_res_exist() { } #- Desc => retrieve all installed theme -#- Args => #- Return=> @arr of available theme sub giv_exist_thm() { chdir($thm_path); |