diff options
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; |