Making a start_server.pl file
authorChris Cormack <chrisc@catalyst.net.nz>
Wed, 28 Aug 2013 22:09:48 +0000 (10:09 +1200)
committerChris Cormack <chrisc@catalyst.net.nz>
Wed, 28 Aug 2013 22:09:48 +0000 (10:09 +1200)
to run

./bin/start_server.pl -c /path/to/config_dir

bin/start_server.pl [new file with mode: 0755]
test_server.pl [deleted file]

diff --git a/bin/start_server.pl b/bin/start_server.pl
new file mode 100755 (executable)
index 0000000..814130d
--- /dev/null
@@ -0,0 +1,59 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: test_server.pl
+#
+#        USAGE: ./test_server.pl
+#
+#  DESCRIPTION:
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
+# ORGANIZATION: Koha Development Team
+#      VERSION: 1.0
+#      CREATED: 28/08/13 14:12:51
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+
+use lib "lib";
+
+use NCIPServer;
+use Getopt::Long;
+
+my $help;
+my $config_dir;
+
+GetOptions(
+    'h|help'     => \$help,
+    'c|config:s' => \$config_dir,
+);
+my $usage = << 'ENDUSAGE';
+
+This script will start an NCIP server, using the configuration set in the config dir you pass
+
+This script has the following parameters :
+    -h --help:   this message
+    -c --config: path to the configuration directory
+
+ENDUSAGE
+
+if ($help) {
+    print $usage;
+    exit;
+}
+
+if ( !$config_dir ) {
+    print "You must specify a configuration directory\n";
+    print $usage;
+    exit;
+}
+
+my $server = NCIPServer->new( { config_dir => $config_dir } );
+
+$server->run();
diff --git a/test_server.pl b/test_server.pl
deleted file mode 100755 (executable)
index 1d30a6e..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/perl 
-#===============================================================================
-#
-#         FILE: test_server.pl
-#
-#        USAGE: ./test_server.pl
-#
-#  DESCRIPTION:
-#
-#      OPTIONS: ---
-# REQUIREMENTS: ---
-#         BUGS: ---
-#        NOTES: ---
-#       AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
-# ORGANIZATION: Koha Development Team
-#      VERSION: 1.0
-#      CREATED: 28/08/13 14:12:51
-#     REVISION: ---
-#===============================================================================
-
-use strict;
-use warnings;
-
-use lib "lib";
-
-use NCIPServer;
-
-my $server = NCIPServer->new( { config_dir => 't/config_sample' } );
-$server->run();