From 9d6a2df4ccb792d0460f1b34498d47adc44da7fd Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Tue, 29 Jan 2013 15:49:50 +0000
Subject: [PATCH] Supportfiles rearrangement.

---
 supportfiles/webapp/supportfiles/.htaccess    |  1 +
 .../webapp/supportfiles/SendMessages.pl       | 51 +++++++++++++++++++
 .../{ => webapp/supportfiles}/lang_to_db.pl   |  0
 3 files changed, 52 insertions(+)
 create mode 100644 supportfiles/webapp/supportfiles/.htaccess
 create mode 100644 supportfiles/webapp/supportfiles/SendMessages.pl
 rename supportfiles/{ => webapp/supportfiles}/lang_to_db.pl (100%)

diff --git a/supportfiles/webapp/supportfiles/.htaccess b/supportfiles/webapp/supportfiles/.htaccess
new file mode 100644
index 0000000..14249c5
--- /dev/null
+++ b/supportfiles/webapp/supportfiles/.htaccess
@@ -0,0 +1 @@
+Deny from all
\ No newline at end of file
diff --git a/supportfiles/webapp/supportfiles/SendMessages.pl b/supportfiles/webapp/supportfiles/SendMessages.pl
new file mode 100644
index 0000000..1ec2ee2
--- /dev/null
+++ b/supportfiles/webapp/supportfiles/SendMessages.pl
@@ -0,0 +1,51 @@
+#!/usr/bin/perl -wT
+
+use strict;
+use lib qw(/var/www/webperl);
+use lib qw(../modules);
+use utf8;
+
+# System modules
+use DBI;
+use Modules;
+use ConfigMicro;
+use Logger;
+use Message::Queue;
+
+my $logger = Logger -> new()
+    or die "FATAL: Unable to create logger object";
+
+# Load the system config
+my $settings = ConfigMicro -> new("../config/site.cfg")
+    or $logger -> die_log("Not avilable", "SendMessages.pl: Unable to obtain configuration file: ".$ConfigMicro::errstr);
+
+    # Database initialisation. Errors in this will kill program.
+my $dbh = DBI->connect($settings -> {"database"} -> {"database"},
+                                    $settings -> {"database"} -> {"username"},
+                                    $settings -> {"database"} -> {"password"},
+                                    { RaiseError => 0, AutoCommit => 1, mysql_enable_utf8 => 1 })
+    or $logger -> die_log("None", "SendMessages.pl: Unable to connect to database: ".$DBI::errstr);
+
+# Pull configuration data out of the database into the settings hash
+$settings -> load_db_config($dbh, $settings -> {"database"} -> {"settings"});
+
+# Start database logging if available
+$logger -> init_database_log($dbh, $settings -> {"database"} -> {"logging"})
+    if($settings -> {"database"} -> {"logging"});
+
+# Start doing logging if needed
+$logger -> start_log($settings -> {"config"} -> {"logfile"}) if($settings -> {"config"} -> {"logfile"});
+
+my $messages = Message::Queue -> new(logger   => $logger,
+                                     dbh      => $dbh,
+                                     settings => $settings)
+    or $logger -> die_log("none", "SendMessages.pl: Unable to create message handler: ".$SystemModule::errstr);
+
+my $module = Modules -> new(logger   => $logger,
+                            dbh      => $dbh,
+                            settings => $settings)
+    or $logger -> die_log("none", "SendMessages.pl: Unable to create module loader: ".$SystemModule::errstr);
+
+$messages -> set_module_obj($module);
+
+$messages -> deliver_queue($ARGV[0]);
diff --git a/supportfiles/lang_to_db.pl b/supportfiles/webapp/supportfiles/lang_to_db.pl
similarity index 100%
rename from supportfiles/lang_to_db.pl
rename to supportfiles/webapp/supportfiles/lang_to_db.pl