summaryrefslogtreecommitdiffstats
path: root/perl-install/install/commands
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
commit126777bc019a54afb4ec51299f2cf9d2841698aa (patch)
tree97f76e571902ead55ba138f1156a4b4f00b9b779 /perl-install/install/commands
parentf1f67448efc714873378dfeb8279fae68054a90a (diff)
downloaddrakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.gz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.bz2
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.xz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.zip
re-sync after the big svn loss
Diffstat (limited to 'perl-install/install/commands')
-rwxr-xr-xperl-install/install/commands20
1 files changed, 20 insertions, 0 deletions
diff --git a/perl-install/install/commands b/perl-install/install/commands
new file mode 100755
index 000000000..7a5fc908c
--- /dev/null
+++ b/perl-install/install/commands
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use diagnostics;
+use strict;
+
+use lib qw(/usr/lib/libDrakX .);
+use common;
+use install::commands;
+
+$::isInstall = 1;
+$::prefix = '/mnt';
+my $progname = basename($0);
+
+eval {
+ # hack as some functions are defined by perl... so chmod -> chmod_
+ &{$install::commands::{$progname} || $install::commands::{$progname . "_"} || \&err}(@ARGV), exit 0;
+};
+die formatError($@) . "\n";
+
+sub err() { die "$0: unknown program (unimplemented)\n" }