Merge commit '8e8832f'

shairport.pl

@@ -37,6 +37,7 @@
 use POSIX ":sys_wait_h";
 eval "use IO::Socket::INET6;";
 
+my $shairportversion = "0.05";
 
 # Configure the following two options:
 # AP name - as will be shown in iTunes' menu
@@ -51,11 +52,26 @@
 # suppose hairtunes is under same directory
 my $hairtunes_cli = $FindBin::Bin . '/hairtunes';
 
-GetOptions("apname=s" => \$apname,
- "password=s" => \$password,
- "d" => \$daemon);
+GetOptions("a|apname=s" => \$apname,
+ "p|password=s" => \$password,
+ "d" => \$daemon,
+ "h|help" => \$help);
+
+sub usage {
+ print "Shairport version $shairportversion - Airport Express emulator\n".
+ "Usage:\n".
+ "$0 [OPTION...]\n".
+ "\n".
+ "Options:\n".
+ " -a, --apname=AirPort Sets AirPort name\n".
+ " -p, --password=secret Sets password\n",
+ " -d Daemon mode\n",
+ " -h, --help This help\n",
+ "\n";
+ exit;
+}
 
-# use --apname MyName --password secret as arguments
+if (defined($help) && $help == 1) { usage(); }
 
 chomp $apname;