#!/usr/bin/perl -w

use strict;
use warnings;

use Debian::ExtRepo::Commands::Search;
use Debian::ExtRepo::Commands::Update;
use Debian::ExtRepo::Commands::Disable;
use Debian::ExtRepo::Commands::Enable;

my $cmdlower = shift;
my $arg = shift;

$arg = "" unless defined($arg);

my $command = ucfirst($cmdlower);

eval "Debian::ExtRepo::Commands::${command}::run(\$arg);";
if($@) {
	die $!;
}
