summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/drakfloppy23
-rwxr-xr-xperl-install/standalone/logdrake20
2 files changed, 0 insertions, 43 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 84ed955c0..a19e7889e 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -36,29 +36,6 @@ use ugtk qw(:helpers);
init Gtk;
Gtk->set_locale;
-#-------------------------------------------------------------
-# i18n routines
-# IMPORTANT: next two routines have to be redefined here to
-# get correct namespace (drakconf instead of libDrakX)
-# (This version is now UTF8 compliant - Sg 2001-08-18)
-#-------------------------------------------------------------
-
-#sub _ {
-# my $s = shift @_; my $t = translate($s);
-# sprintf $t, @_;
-#}
-
-#sub translate {
-# my ($s) = @_;
-# $s ? c::dgettext('libDrakX', $s) : '';
-#}
-
-if ($::isEmbedded) {
- print "EMBED\n";
- print "XID : $::XID\n";
- print "CCPID : $::CCPID\n";
-}
-
$in = 'interactive'->vnew('su', 'default');
local $_ = join '', @ARGV;
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index a8c37c240..740994a63 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -35,26 +35,6 @@ use my_gtk qw(:helpers :wrappers);
use ugtk qw(:helpers);
use Data::Dumper;
-#-------------------------------------------------------------
-# i18n routines
-# IMPORTANT: next two routines have to be redefined here to
-# get correct namespace (drakconf instead of libDrakX)
-# (This version is now UTF8 compliant - Sg 2001-08-18)
-#-------------------------------------------------------------
-
-#{
-# no warnings;
-# sub _ {
-# my $s = shift @_; my $t = translate($s);
-# sprintf $t, @_;
-# }
-
-# no warnings;
-# sub translate {
-# my ($s) = @_;
-#$s ? c::dgettext('libDrakX', $s) : '';
-# }
-#}
$::isInstall and die "Not supported during install.\n";