#!/usr/bin/perl

use diagnostics;
use strict;

use lib qw(/usr/lib/libDrakX .);
use common;
use commands;

$::isInstall = 1;
$::prefix = '/mnt';
my $progname = basename($0);

eval {
    # hack as some functions are defined by perl... so chmod -> chmod_
    &{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0;
};
die formatError($@) . "\n";

sub err() { die "$0: unknown program (unimplemented)\n" }