diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-01 10:13:49 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-01 10:13:49 +0000 |
| commit | b4de162ca2747d54f991932f06da4603f49eb141 (patch) | |
| tree | e7e91debdcd9d5f11065b90112104f6750954cd7 /perl-install | |
| parent | 9f5d4498f6a3f5fb9bf0f4232c64da5161fbe646 (diff) | |
| download | drakx-backup-do-not-use-b4de162ca2747d54f991932f06da4603f49eb141.tar drakx-backup-do-not-use-b4de162ca2747d54f991932f06da4603f49eb141.tar.gz drakx-backup-do-not-use-b4de162ca2747d54f991932f06da4603f49eb141.tar.bz2 drakx-backup-do-not-use-b4de162ca2747d54f991932f06da4603f49eb141.tar.xz drakx-backup-do-not-use-b4de162ca2747d54f991932f06da4603f49eb141.zip | |
move embedded and standalone managment from harddrake::ui to
standalone/harddrake2
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/harddrake/TODO | 1 | ||||
| -rw-r--r-- | perl-install/harddrake/ui.pm | bin | 10799 -> 10447 bytes | |||
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 9 |
3 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/harddrake/TODO b/perl-install/harddrake/TODO index 0ea1714b5..5c9d7f287 100644 --- a/perl-install/harddrake/TODO +++ b/perl-install/harddrake/TODO @@ -11,6 +11,7 @@ *** non needed stuff to run X must be posponed after X11 startup **** eg: scanner/audio/printer/floppy/cdrom/tape/tv/webcam/joystick/ ... *** add updfstab as in kudzu + *** detect isapnp devices *** enable the user to force a module (isa, isapnp, ...) diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm Binary files differindex 6eacab631..fdd3f36aa 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 89375e8fc..88e4c9a99 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -1,6 +1,13 @@ #!/usr/bin/perl -w use lib qw(/usr/lib/libDrakX); +use standalone; use harddrake::ui; -harddrake::ui->run; +if ("@ARGV" =~ /--help|-h/) { + print "Harddrake 2\n", $license, "\nUsage: harddrake [-h|--help]\n"; + exit; +} +$::isStandalone=1; + +harddrake::ui->new; |