summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-06-24 01:51:52 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-06-24 01:51:52 +0000
commit98849cc4d519b8ddf44afda9e5eed89c440ed942 (patch)
tree67ffee11bfd4121ac7405287a26478518038986f /perl-install
parent4bb9d4a6e332967f0422f4a6ff3349a6134183c3 (diff)
downloaddrakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.tar
drakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.tar.gz
drakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.tar.bz2
drakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.tar.xz
drakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.zip
Some standalone tools don't compile when run from console
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakTermServ11
-rwxr-xr-xperl-install/standalone/drakbug11
-rwxr-xr-xperl-install/standalone/drakclock11
-rwxr-xr-xperl-install/standalone/drakfloppy11
-rwxr-xr-xperl-install/standalone/drakfont11
-rwxr-xr-xperl-install/standalone/drakperm11
-rwxr-xr-xperl-install/standalone/draksec11
-rwxr-xr-xperl-install/standalone/draksplash11
-rwxr-xr-xperl-install/standalone/drakups11
-rwxr-xr-xperl-install/standalone/harddrake211
-rwxr-xr-xperl-install/standalone/logdrake11
-rwxr-xr-xperl-install/standalone/net_monitor11
-rwxr-xr-xperl-install/standalone/printerdrake11
13 files changed, 130 insertions, 13 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 8dd512658..52d87fa29 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -22,7 +22,16 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use strict;
use interactive;
-use ugtk2 qw(:helpers :wrappers :create);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:helpers :wrappers :create));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use common;
use run_program;
use MDK::Common::File qw(:all);
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 7cce5ec9e..a0ac09265 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -23,7 +23,16 @@ use lib qw(/usr/lib/libDrakX);
use standalone;
use common;
-use ugtk2 qw(:all);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:all));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use Config;
my $bugzilla_url = "http://drakbug.mandrakesoft.com";
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index a1dd5b5f5..2012cf6ad 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -6,7 +6,16 @@ use POSIX;
use common;
# i18n : IMPORTANT to get correct namespace (drakconf instead of libDrakX)
BEGIN { unshift @::textdomains, 'drakconf' }
-use ugtk2 qw(:all);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:all));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use interactive;
use standalone;
use timezone;
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index d58305f61..830340da4 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -29,7 +29,16 @@ use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use common;
-use ugtk2 qw(:create :dialogs :helpers :wrappers);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:create :dialogs :helpers :wrappers));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use detect_devices;
require_root_capability();
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 3b232919b..a35378eef 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -86,7 +86,16 @@ use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
-use ugtk2 qw(:create :dialogs :helpers :wrappers);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:create :dialogs :helpers :wrappers));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use common;
require_root_capability();
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 234228edb..7b7e56cc2 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -6,7 +6,16 @@ use lib qw(/usr/lib/libDrakX);
use standalone;
use common;
-use ugtk2 qw(:helpers :wrappers :create);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:helpers :wrappers :create));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
require_root_capability();
local $_ = join '', @ARGV;
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 04e9dd0b4..9e8e3129a 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -24,7 +24,16 @@ use lib qw(/usr/lib/libDrakX);
use common;
use standalone;
use vars qw($MODE %options);
-use ugtk2 qw(:helpers :wrappers :ask :create);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:helpers :wrappers :ask :create));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use run_program;
use security::level;
use security::msec;
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 527631bd6..8dc252b5f 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -4,7 +4,16 @@ use strict;
use lib qw(/usr/lib/libDrakX);
use standalone;
use common;
-use ugtk2 qw(:helpers :wrappers :create);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:helpers :wrappers :create));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use interactive;
#- convenience variables for true and false
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 9f55af292..7bfb70642 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -6,7 +6,16 @@ use standalone;
use common;
use mouse;
use detect_devices;
-use ugtk2 qw(:create :dialogs :helpers :wrappers);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:create :dialogs :helpers :wrappers));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use interactive;
use Libconf qw(:functions);
use Libconf::Glueconf::NUT::Ups_conf;
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index d6822b1cd..74e98b563 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -6,7 +6,16 @@ use lib qw(/usr/lib/libDrakX);
use standalone;
use common;
-use ugtk2 qw(:create :helpers :wrappers);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:create :helpers :wrappers));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use interactive;
use harddrake::data; #- needs to stay after use-ugtk2 as long as this module defines globals containing some N()
use POSIX qw(:sys_wait_h);
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 1610dcaf5..541d97a58 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -26,7 +26,16 @@ use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use common;
use interactive;
-use ugtk2 qw(:create :dialogs :wrappers :helpers);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:create :dialogs :helpers :wrappers));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use vars qw(*F);
my $in = 'interactive'->vnew('su');
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 3863e0197..9fdd05c91 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -27,7 +27,16 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use c;
use interactive;
-use ugtk2 qw(:helpers :wrappers :create);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:create :helpers :wrappers));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use common;
use network::netconnect;
use network::tools;
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 00ebf6288..889696b09 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -26,7 +26,16 @@ use standalone;
use common;
use any;
-use ugtk2 qw(:all);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:all));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use interactive;
use POSIX qw(mktime ceil);
use printer::printerdrake;