add a usage message

1 files changed, 21 insertions, 1 deletions

diff --git a/mdkonline b/mdkonline
index ff4a8291..2e5581d0 100755
--- a/mdkonline
+++ b/mdkonline
@@ -49,7 +49,27 @@ my @info;
 
 $ia = 1;
 
-GetOptions('interactive!' => \$ia, 'login=s' => \$login, 'pass=s' => \$password, 'box=s' => \$boxname, 'country:s' => \$country);
+
+sub usage() {
+    print STDERR N("mdonline version %s
+Copyright (C) %s Mandriva.
+This is free software and may be redistributed under the terms of the GNU GPL.
+
+usage:
+", 1, 2006) . N("  --help		- print this help message.
+") . N("  --box=			- hostname.
+") . N("  --country			- name of country of the user. 
+") . N("  --interactive		- use the interactive mode.
+") . N("  --nointeractive	- use the non-interactive mode.
+") . N("  --login=		     - login name of the user.
+") . N("  --pass=			- password  of the user.
+");
+    exit(0);
+}
+
+GetOptions('interactive!' => \$ia, 'login=s' => \$login, 'pass=s' => \$password, 'box=s' => \$boxname, 'country:s' => \$country,
+           'help'  => \&usage,
+       );
 
 my $in = interactive->vnew('su') if $ia;