From 105840a1d23faab198b04f7fc684aeb78dec9c03 Mon Sep 17 00:00:00 2001 From: Chris Date: Fri, 14 Feb 2020 15:09:29 +0000 Subject: [PATCH] Remove outdated webapp example --- tools/supportfiles/webapp/.htaccess | 36 --- tools/supportfiles/webapp/blocks/.htaccess | 1 - tools/supportfiles/webapp/config/.htaccess | 1 - tools/supportfiles/webapp/config/basic_db.sql | 305 ------------------ .../supportfiles/webapp/config/site.cfg.dist | 25 -- tools/supportfiles/webapp/index.cgi | 47 --- tools/supportfiles/webapp/lang/.htaccess | 1 - tools/supportfiles/webapp/lang/en/debug.lang | 5 - .../supportfiles/webapp/lang/en/validate.lang | 14 - tools/supportfiles/webapp/modules/.htaccess | 1 - .../webapp/supportfiles/.htaccess | 1 - .../webapp/supportfiles/SendMessages.pl | 51 --- .../webapp/supportfiles/lang_to_db.pl | 163 ---------- .../webapp/templates/default/.keepme | 0 14 files changed, 651 deletions(-) delete mode 100644 tools/supportfiles/webapp/.htaccess delete mode 100644 tools/supportfiles/webapp/blocks/.htaccess delete mode 100644 tools/supportfiles/webapp/config/.htaccess delete mode 100644 tools/supportfiles/webapp/config/basic_db.sql delete mode 100644 tools/supportfiles/webapp/config/site.cfg.dist delete mode 100644 tools/supportfiles/webapp/index.cgi delete mode 100644 tools/supportfiles/webapp/lang/.htaccess delete mode 100644 tools/supportfiles/webapp/lang/en/debug.lang delete mode 100644 tools/supportfiles/webapp/lang/en/validate.lang delete mode 100644 tools/supportfiles/webapp/modules/.htaccess delete mode 100644 tools/supportfiles/webapp/supportfiles/.htaccess delete mode 100644 tools/supportfiles/webapp/supportfiles/SendMessages.pl delete mode 100755 tools/supportfiles/webapp/supportfiles/lang_to_db.pl delete mode 100644 tools/supportfiles/webapp/templates/default/.keepme diff --git a/tools/supportfiles/webapp/.htaccess b/tools/supportfiles/webapp/.htaccess deleted file mode 100644 index 9dc3fd2..0000000 --- a/tools/supportfiles/webapp/.htaccess +++ /dev/null @@ -1,36 +0,0 @@ -# Example .htaccess for apache webservers. - -# Uncomment the following three lines if you want your webapp to force HTTPS -# RewriteEngine On -# RewriteCond %{HTTPS} off -# RewriteRule (.*) https://%{HTTP_HOST}%{REQUEST_URI} - -# Compress text, html, javascript, css, xml: -AddOutputFilterByType DEFLATE text/plain -AddOutputFilterByType DEFLATE text/html -AddOutputFilterByType DEFLATE text/xml -AddOutputFilterByType DEFLATE text/css -AddOutputFilterByType DEFLATE application/xml -AddOutputFilterByType DEFLATE application/xhtml+xml -AddOutputFilterByType DEFLATE application/rss+xml -AddOutputFilterByType DEFLATE application/javascript -AddOutputFilterByType DEFLATE application/x-javascript - -# For extra efficiency, make sure cache expiration times are set for content. -# For example, add the following to the webapp's : -# -# ExpiresActive On -# ExpiresDefault "access plus 300 seconds" -# -# And the followin on its : -# -# ExpiresByType text/html "access plus 30 minutes" -# ExpiresByType text/css "access plus 1 day" -# ExpiresByType text/javascript "access plus 1 day" -# ExpiresByType image/gif "access plus 1 month" -# ExpiresByType image/jpeg "access plus 1 month" -# ExpiresByType image/jpg "access plus 1 month" -# ExpiresByType image/png "access plus 1 month" -# ExpiresByType application/x-shockwave-flash "access plus 1 day" -# ExpiresByType application/x-javascript "access plus 1 day" -# ExpiresByType application/x-icon "access plus 1 day" diff --git a/tools/supportfiles/webapp/blocks/.htaccess b/tools/supportfiles/webapp/blocks/.htaccess deleted file mode 100644 index 14249c5..0000000 --- a/tools/supportfiles/webapp/blocks/.htaccess +++ /dev/null @@ -1 +0,0 @@ -Deny from all \ No newline at end of file diff --git a/tools/supportfiles/webapp/config/.htaccess b/tools/supportfiles/webapp/config/.htaccess deleted file mode 100644 index 14249c5..0000000 --- a/tools/supportfiles/webapp/config/.htaccess +++ /dev/null @@ -1 +0,0 @@ -Deny from all \ No newline at end of file diff --git a/tools/supportfiles/webapp/config/basic_db.sql b/tools/supportfiles/webapp/config/basic_db.sql deleted file mode 100644 index 1575627..0000000 --- a/tools/supportfiles/webapp/config/basic_db.sql +++ /dev/null @@ -1,305 +0,0 @@ --- phpMyAdmin SQL Dump --- version 3.4.9 --- http://www.phpmyadmin.net --- --- Host: localhost --- Generation Time: Dec 06, 2012 at 12:11 AM --- Server version: 5.1.66 --- PHP Version: 5.4.6--pl0-gentoo - -SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO"; -SET time_zone = "+00:00"; - - -/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */; -/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */; -/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */; -/*!40101 SET NAMES utf8 */; - --- -------------------------------------------------------- - --- --- Table structure for table `auth_methods` --- - -CREATE TABLE IF NOT EXISTS `auth_methods` ( - `id` tinyint(3) unsigned NOT NULL AUTO_INCREMENT, - `perl_module` varchar(100) NOT NULL COMMENT 'The name of the AuthMethod (no .pm extension)', - `priority` tinyint(4) NOT NULL COMMENT 'The authentication method''s priority. -128 = max, 127 = min', - `enabled` tinyint(1) NOT NULL COMMENT 'Is this auth method usable?', - PRIMARY KEY (`id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Stores the authentication methods supported by the system' AUTO_INCREMENT=2 ; - --- -------------------------------------------------------- - --- --- Table structure for table `auth_methods_params` --- - -CREATE TABLE IF NOT EXISTS `auth_methods_params` ( - `method_id` tinyint(4) NOT NULL COMMENT 'The id of the auth method', - `name` varchar(40) NOT NULL COMMENT 'The parameter mame', - `value` text NOT NULL COMMENT 'The value for the parameter', - KEY `method_id` (`method_id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Stores the settings for each auth method'; - --- -------------------------------------------------------- - --- --- Table structure for table `blocks` --- - -CREATE TABLE IF NOT EXISTS `blocks` ( - `id` smallint(5) unsigned NOT NULL AUTO_INCREMENT COMMENT 'Unique ID for this block entry', - `name` varchar(32) NOT NULL, - `module_id` smallint(5) unsigned NOT NULL COMMENT 'ID of the module implementing this block', - `args` varchar(128) NOT NULL COMMENT 'Arguments passed verbatim to the block module', - PRIMARY KEY (`id`), - UNIQUE KEY `name` (`name`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='web-accessible page modules' AUTO_INCREMENT=5 ; - --- -------------------------------------------------------- - --- --- Table structure for table `log` --- - -CREATE TABLE IF NOT EXISTS `log` ( - `id` int(10) unsigned NOT NULL AUTO_INCREMENT, - `logtime` int(10) unsigned NOT NULL COMMENT 'The time the logged event happened at', - `user_id` int(10) unsigned DEFAULT NULL COMMENT 'The id of the user who triggered the event, if any', - `ipaddr` varchar(16) DEFAULT NULL COMMENT 'The IP address the event was triggered from', - `logtype` varchar(64) NOT NULL COMMENT 'The event type', - `logdata` text COMMENT 'Any data that might be appropriate to log for this event', - PRIMARY KEY (`id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Stores a log of events in the system.' AUTO_INCREMENT=1362 ; - --- -------------------------------------------------------- - --- --- Table structure for table `messages_queue` --- - -CREATE TABLE IF NOT EXISTS `messages_queue` ( - `id` int(10) unsigned NOT NULL AUTO_INCREMENT, - `previous_id` int(10) unsigned DEFAULT NULL COMMENT 'Link to a previous message (for replies/followups/etc)', - `created` int(10) unsigned NOT NULL COMMENT 'The unix timestamp of when this message was created', - `creator_id` int(10) unsigned DEFAULT NULL COMMENT 'Who created this message (NULL = system)', - `deleted` int(10) unsigned DEFAULT NULL COMMENT 'Timestamp of message deletion, marks deletion of /sending/ message.', - `deleted_id` int(10) unsigned DEFAULT NULL COMMENT 'Who deleted the message?', - `message_ident` varchar(128) COLLATE utf8_unicode_ci DEFAULT NULL COMMENT 'Generic identifier, may be used for message lookup after addition', - `subject` varchar(255) COLLATE utf8_unicode_ci NOT NULL COMMENT 'The message subject', - `body` text COLLATE utf8_unicode_ci NOT NULL COMMENT 'The message body', - `format` enum('text','html') COLLATE utf8_unicode_ci NOT NULL DEFAULT 'text' COMMENT 'Message format, for possible extension', - `send_after` int(10) unsigned DEFAULT NULL COMMENT 'Send message after this time (NULL = as soon as possible)', - PRIMARY KEY (`id`), - KEY `created` (`created`), - KEY `deleted` (`deleted`), - KEY `message_ident` (`message_ident`), - KEY `previous_id` (`previous_id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci COMMENT='Stores messages to be sent through Message:: modules' AUTO_INCREMENT=8 ; - --- -------------------------------------------------------- - --- --- Table structure for table `messages_recipients` --- - -CREATE TABLE IF NOT EXISTS `messages_recipients` ( - `message_id` int(10) unsigned NOT NULL COMMENT 'ID of the message this is a recipient entry for', - `recipient_id` int(10) unsigned NOT NULL COMMENT 'ID of the user sho should get the email', - `viewed` int(10) unsigned DEFAULT NULL COMMENT 'When did the recipient view this message (if at all)', - `deleted` int(10) unsigned DEFAULT NULL COMMENT 'When did the recipient mark their view as deleted (if at all)', - KEY `email_id` (`message_id`), - KEY `recipient_id` (`recipient_id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Stores the recipients of messages'; - --- -------------------------------------------------------- - --- --- Table structure for table `messages_sender` --- - -CREATE TABLE IF NOT EXISTS `messages_sender` ( - `message_id` int(10) unsigned NOT NULL COMMENT 'ID of the message this is a sender record for', - `sender_id` int(10) unsigned NOT NULL COMMENT 'ID of the user who sent the message', - `deleted` int(10) unsigned NOT NULL COMMENT 'Has the sender deleted this message from their list (DOES NOT DELETE THE MESSAGE!)', - KEY `message_id` (`message_id`), - KEY `sender_id` (`sender_id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Stores the sender of each message, and sender-specific infor'; - --- -------------------------------------------------------- - --- --- Table structure for table `messages_transports` --- - -CREATE TABLE IF NOT EXISTS `messages_transports` ( - `id` int(10) unsigned NOT NULL AUTO_INCREMENT, - `name` varchar(24) CHARACTER SET utf8 COLLATE utf8_unicode_ci NOT NULL COMMENT 'The transport name', - `description` varchar(255) CHARACTER SET utf8 COLLATE utf8_unicode_ci DEFAULT NULL COMMENT 'Human readable description (or langvar name)', - `perl_module` varchar(255) CHARACTER SET utf8 COLLATE utf8_unicode_ci NOT NULL COMMENT 'The perl module implementing the message transport.', - `enabled` tinyint(1) NOT NULL COMMENT 'Is the transport enabled?', - PRIMARY KEY (`id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Stores the list of modules that provide message delivery' AUTO_INCREMENT=3 ; - --- -------------------------------------------------------- - --- --- Table structure for table `messages_transports_status` --- - -CREATE TABLE IF NOT EXISTS `messages_transports_status` ( - `id` int(10) unsigned NOT NULL AUTO_INCREMENT, - `message_id` int(10) unsigned NOT NULL COMMENT 'The ID of the message this is a transport entry for', - `transport_id` int(10) unsigned NOT NULL COMMENT 'The ID of the transport', - `status_time` int(10) unsigned NOT NULL COMMENT 'The time the status was changed', - `status` enum('pending','sent','failed') CHARACTER SET utf8 COLLATE utf8_unicode_ci NOT NULL DEFAULT 'pending' COMMENT 'The transport status', - `status_message` text COMMENT 'human-readable status message (usually error messages)', - PRIMARY KEY (`id`), - KEY `message_id` (`message_id`), - KEY `transport_id` (`transport_id`), - KEY `status` (`status`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Stores transport status information for messages' AUTO_INCREMENT=15 ; - --- -------------------------------------------------------- - --- --- Table structure for table `messages_transports_userctrl` --- - -CREATE TABLE IF NOT EXISTS `messages_transports_userctrl` ( - `transport_id` int(10) unsigned NOT NULL COMMENT 'ID of the transport the user has set a control on', - `user_id` int(10) unsigned NOT NULL COMMENT 'User setting the control', - `enabled` tinyint(1) unsigned NOT NULL DEFAULT '1' COMMENT 'contact the user through this transport?', - KEY `transport_id` (`transport_id`), - KEY `user_id` (`user_id`), - KEY `transport_user` (`transport_id`,`user_id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Allows users to explicitly enable, or disable, specific mess'; - --- -------------------------------------------------------- - --- --- Table structure for table `modules` --- - -CREATE TABLE IF NOT EXISTS `modules` ( - `module_id` smallint(5) unsigned NOT NULL AUTO_INCREMENT COMMENT 'Unique module id', - `name` varchar(80) NOT NULL COMMENT 'Short name for the module', - `perl_module` varchar(128) NOT NULL COMMENT 'Name of the perl module in blocks/ (no .pm extension!)', - `active` tinyint(1) unsigned NOT NULL COMMENT 'Is this module enabled?', - PRIMARY KEY (`module_id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Available site modules, perl module names, and status' AUTO_INCREMENT=5 ; - --- -------------------------------------------------------- - --- --- Table structure for table `sessions` --- - -CREATE TABLE IF NOT EXISTS `sessions` ( - `session_id` char(32) NOT NULL, - `session_user_id` int(10) unsigned NOT NULL, - `session_start` int(11) unsigned NOT NULL, - `session_time` int(11) unsigned NOT NULL, - `session_ip` varchar(40) NOT NULL, - `session_autologin` tinyint(1) unsigned NOT NULL, - PRIMARY KEY (`session_id`), - KEY `session_time` (`session_time`), - KEY `session_user_id` (`session_user_id`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Website sessions'; - --- -------------------------------------------------------- - --- --- Table structure for table `session_keys` --- - -CREATE TABLE IF NOT EXISTS `session_keys` ( - `key_id` char(32) COLLATE utf8_bin NOT NULL DEFAULT '', - `user_id` int(10) unsigned NOT NULL DEFAULT '0', - `last_ip` varchar(40) COLLATE utf8_bin NOT NULL DEFAULT '', - `last_login` int(11) unsigned NOT NULL DEFAULT '0', - PRIMARY KEY (`key_id`,`user_id`), - KEY `last_login` (`last_login`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin COMMENT='Autologin keys'; - --- -------------------------------------------------------- - --- --- Table structure for table `session_variables` --- - -CREATE TABLE IF NOT EXISTS `session_variables` ( - `session_id` char(32) NOT NULL, - `var_name` varchar(80) NOT NULL, - `var_value` text NOT NULL, - KEY `session_id` (`session_id`), - KEY `sess_name_map` (`session_id`,`var_name`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Session-related variables'; - --- -------------------------------------------------------- - --- --- Table structure for table `settings` --- - -CREATE TABLE IF NOT EXISTS `settings` ( - `name` varchar(255) COLLATE utf8_unicode_ci NOT NULL, - `value` text COLLATE utf8_unicode_ci NOT NULL, - PRIMARY KEY (`name`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci COMMENT='Site settings'; - - -INSERT INTO `settings` (`name`, `value`) VALUES -('base', '/path/to/your/webapp'), -('scriptpath', '/'), -('cookie_name', 'webappname'), -('cookie_path', '/'), -('cookie_domain', ''), -('cookie_secure', '0'), -('default_style', 'default'), -('logfile', ''), -('default_block', '1'), -('Auth:allow_autologin', '1'), -('Auth:max_autologin_time', '30'), -('Auth:ip_check', '4'), -('Auth:session_length', '3600'), -('Auth:session_gc', '0'), -('Auth:unique_id', '1'), -('Session:lastgc', '0'), -('Core:envelope_address', 'your@email.addy'), -('Log:all_the_things', '1'), -('timefmt', '%d %b %Y %H:%M:%S %Z'), -('datefmt', '%d %b %Y'), -('Core:admin_email', 'admin@email.addy'), -('Message::Transport::Email::smtp_host', 'localhost'), -('Message::Transport::Email::smtp_port', '25'); - --- -------------------------------------------------------- - --- --- Table structure for table `users` --- - -CREATE TABLE IF NOT EXISTS `users` ( - `user_id` int(10) unsigned NOT NULL AUTO_INCREMENT, - `user_auth` tinyint(3) unsigned DEFAULT NULL COMMENT 'Id of the user''s auth method', - `user_type` tinyint(3) unsigned DEFAULT '0' COMMENT 'The user type, 0 = normal, 3 = admin', - `username` varchar(32) NOT NULL, - `firstname` varchar(32) DEFAULT NULL, - `surname` varchar(32) DEFAULT NULL, - `password` char(59) DEFAULT NULL, - `email` varchar(255) CHARACTER SET utf8 COLLATE utf8_unicode_ci DEFAULT NULL COMMENT 'User''s email address', - `created` int(10) unsigned NOT NULL COMMENT 'The unix time at which this user was created', - `activated` int(10) unsigned DEFAULT NULL COMMENT 'Is the user account active, and if so when was it activated?', - `act_code` varchar(64) DEFAULT NULL COMMENT 'Activation code the user must provide when activating their account', - `last_login` int(10) unsigned NOT NULL COMMENT 'The unix time of th euser''s last login', - PRIMARY KEY (`user_id`), - UNIQUE KEY `username` (`username`), - KEY `email` (`email`) -) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Stores the local user data for each user in the system' AUTO_INCREMENT=19 ; - -/*!40101 SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT */; -/*!40101 SET CHARACTER_SET_RESULTS=@OLD_CHARACTER_SET_RESULTS */; -/*!40101 SET COLLATION_CONNECTION=@OLD_COLLATION_CONNECTION */; diff --git a/tools/supportfiles/webapp/config/site.cfg.dist b/tools/supportfiles/webapp/config/site.cfg.dist deleted file mode 100644 index 0c3b852..0000000 --- a/tools/supportfiles/webapp/config/site.cfg.dist +++ /dev/null @@ -1,25 +0,0 @@ -[database] -# Basic database connection information. Drivers other than mysql may not work! -database = DBI:mysql:DATABASE -username = USERNAME -password = PASSWORD - -# Core webperl tables. -auth_methods = auth_methods -auth_params = auth_methods_params -blocks = blocks -logging = log -message_queue = messages_queue -message_sender = messages_sender -message_recipients = messages_recipients -message_transports = messages_transports -message_status = messages_transports_status -message_userctrl = messages_transports_userctrl -modules = modules -sessions = sessions -session_variables = session_variables -keys = session_keys -settings = settings -users = users - -# Add any other table mappings you need here \ No newline at end of file diff --git a/tools/supportfiles/webapp/index.cgi b/tools/supportfiles/webapp/index.cgi deleted file mode 100644 index 50f6d15..0000000 --- a/tools/supportfiles/webapp/index.cgi +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl -wT -# Note: above -w flag should be removed in production, as it will cause warnings in -# 3rd party modules to appear in the server error log - -use utf8; -use v5.12; -use lib qw(/var/www/webperl); - -# Work out where the script is, so module and config loading can work. -our $scriptpath; -BEGIN { - $scriptpath = "/path/to/your/webapp"; -} - -use CGI::Carp qw(fatalsToBrowser set_message); # Catch as many fatals as possible and send them to the user as well as stderr -use lib "$scriptpath/modules"; - -our $contact = 'contact@email.address'; # global contact address, for error messages - -# System modules -use CGI::Carp qw(fatalsToBrowser set_message); # Catch as many fatals as possible and send them to the user as well as stderr - -# Webperl modules -use Webperl::Application; - -# Webapp modules -use YourApp::AppUser; -use YourApp::BlockSelector; -use YourApp::System; - -delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Clean up ENV - -# install more useful error handling -sub handle_errors { - my $msg = shift; - print "

Software error

\n"; - print '

Server time: ',scalar(localtime()),'
Error was:

',$msg,'
'; - print '

Please report this error to ',$contact,' giving the text of this error and the time and date at which it occured

'; -} -set_message(\&handle_errors); - -my $app = Webperl::Application -> new(config => "$scriptpath/config/site.cfg", - appuser => YourApp::AppUser -> new(), - system => YourApp::System -> new(), - block_selector => YourApp::BlockSelector -> new()) - or die "Unable to create application"; -$app -> run(); diff --git a/tools/supportfiles/webapp/lang/.htaccess b/tools/supportfiles/webapp/lang/.htaccess deleted file mode 100644 index 14249c5..0000000 --- a/tools/supportfiles/webapp/lang/.htaccess +++ /dev/null @@ -1 +0,0 @@ -Deny from all \ No newline at end of file diff --git a/tools/supportfiles/webapp/lang/en/debug.lang b/tools/supportfiles/webapp/lang/en/debug.lang deleted file mode 100644 index dfe0a37..0000000 --- a/tools/supportfiles/webapp/lang/en/debug.lang +++ /dev/null @@ -1,5 +0,0 @@ -DEBUG_TIMEUSED = Execution time -DEBUG_SECONDS = seconds -DEBUG_USER = User time -DEBUG_SYSTEM = System time -DEBUG_MEMORY = Memory used diff --git a/tools/supportfiles/webapp/lang/en/validate.lang b/tools/supportfiles/webapp/lang/en/validate.lang deleted file mode 100644 index 07fadf0..0000000 --- a/tools/supportfiles/webapp/lang/en/validate.lang +++ /dev/null @@ -1,14 +0,0 @@ -BLOCK_VALIDATE_NOTSET = No value provided for '***field***', this field is required. -BLOCK_VALIDATE_TOOLONG = The value provided for '***field***' is too long. No more than ***maxlen*** characters can be provided for this field. -BLOCK_VALIDATE_BADCHARS = The value provided for '***field***' contains illegal characters. ***desc*** -BLOCK_VALIDATE_BADFORMAT = The value provided for '***field***' is not valid. ***desc*** -BLOCK_VALIDATE_DBERR = Unable to look up the value for '***field***' in the database. Error was: ***dberr***. -BLOCK_VALIDATE_BADOPT = The value selected for '***field***' is not a valid option. -BLOCK_VALIDATE_SCRUBFAIL = No content was left after cleaning the contents of html field '***field***'. -BLOCK_VALIDATE_TIDYFAIL = htmltidy failed for field '***field***'. -BLOCK_VALIDATE_CHKERRS = ***error*** html errors where encountered while validating '***field***'. Clean up the html and try again. -BLOCK_VALIDATE_CHKFAIL = Validation of '***field***' failed. Error from the W3C validator was: ***error***. - -BLOCK_ERROR_TITLE = Fatal System Error -BLOCK_ERROR_SUMMARY = The system has encountered an unrecoverable error. -BLOCK_ERROR_TEXT = A serious error has been encountered while processing your request. The following information was generated by the system, please contact moodlesupport@cs.man.ac.uk about this, including this error and a description of what you were doing when it happened!

***error*** diff --git a/tools/supportfiles/webapp/modules/.htaccess b/tools/supportfiles/webapp/modules/.htaccess deleted file mode 100644 index 14249c5..0000000 --- a/tools/supportfiles/webapp/modules/.htaccess +++ /dev/null @@ -1 +0,0 @@ -Deny from all \ No newline at end of file diff --git a/tools/supportfiles/webapp/supportfiles/.htaccess b/tools/supportfiles/webapp/supportfiles/.htaccess deleted file mode 100644 index 14249c5..0000000 --- a/tools/supportfiles/webapp/supportfiles/.htaccess +++ /dev/null @@ -1 +0,0 @@ -Deny from all \ No newline at end of file diff --git a/tools/supportfiles/webapp/supportfiles/SendMessages.pl b/tools/supportfiles/webapp/supportfiles/SendMessages.pl deleted file mode 100644 index 1ec2ee2..0000000 --- a/tools/supportfiles/webapp/supportfiles/SendMessages.pl +++ /dev/null @@ -1,51 +0,0 @@ -#!/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/tools/supportfiles/webapp/supportfiles/lang_to_db.pl b/tools/supportfiles/webapp/supportfiles/lang_to_db.pl deleted file mode 100755 index 3b76200..0000000 --- a/tools/supportfiles/webapp/supportfiles/lang_to_db.pl +++ /dev/null @@ -1,163 +0,0 @@ -#!/usr/bin/perl -w - -## @file -# A support script to import a directory tree of language files into a webapp's -# 'language' database table. This allows the webapp author to write .lang files -# containing the language variables for the application, and then run this -# script to import the files into the database for faster access. - -use strict; -use lib "/var/www/webperl"; - -use DBI; -use Webperl::ConfigMicro; -use Webperl::Utils qw(path_join superchomp); - -## @fn $ clear_language_table($dbh, $tablename) -# Clear the contents of the specified language table. This truncates the table, -# erasing all its contents, and resetting the autoincrement for the ID. -# -# @param dbh The database handle to issue queries through. -# @param tablename The name of the database table containing the language variables. -# @return undef on success, otherwise an error message. -sub clear_language_table { - my $dbh = shift; - my $tablename = shift; - - my $nukeh = $dbh -> prepare("TRUNCATE `$tablename`"); - $nukeh -> execute() - or return "Unable to clear language table: ".$dbh -> errstr; - - return undef; -} - - -## @fn $ set_language_variable($dbh, $tablename, $name, $lang, $message) -# Set the langauge variable with the specified name and lang to contain -# the specified message. This will determine whether the name has already -# been set in the specified language, and if so the message will not be -# updated, and an error will be returned. -# -# @param dbh The database handle to issue queries through. -# @param tablename The name of the database table containing the language variables. -# @param name The name of the language variable. -# @param lang The language the variable is being defined in. -# @param message The message to set for the language variable. -# @return undef on success, otherwise an error message. -sub set_language_variable { - my ($dbh, $tablename, $name, $lang, $message) = @_; - - # First check that the variable hasn't already been defined - my $checkh = $dbh -> prepare("SELECT message FROM `$tablename` WHERE `name` LIKE ? AND `lang` LIKE ?"); - $checkh -> execute($name, $lang) - or return "Unable to perform language variable check: ".$dbh -> errstr; - - my $row = $checkh -> fetchrow_arrayref(); - return "Redefinition of language variable $name in language $lang (old: '".$row -> [0]."', new: '$message')" - if($row); - - # Doesn't exist, make it... - my $newh = $dbh -> prepare("INSERT INTO `$tablename` (`name`, `lang`, `message`) - VALUES(?, ?, ?)"); - my $rows = $newh -> execute($name, $lang, $message); - return "Unable to perform language variable insert: ". $dbh -> errstr if(!$rows); - return "User insert failed, no rows added." if($rows eq "0E0"); - - return undef; -} - - -## @fn $ load_language($dbh, $tablename, $langdir) -# Load all of the language files in the appropriate language directory into the -# database. This will attempt to load all .lang files inside the langdir/lang/ -# directory, and store the language variables defined therein in the database. -# The database language table is cleared before adding new entries. -# -# @return true if the language files loaded correctly, undef otherwise. -sub load_language { - my $dbh = shift; - my $tablename = shift; - my $langdir = shift; - - my $res = clear_language_table($dbh, $tablename); - return $res if($res); - - print "Processing language directories in '$langdir'...\n"; - - opendir(LANGDIR, $langdir) - or return "Unable to open languages directory '$langdir' for reading: $!"; - - my @langs = readdir(LANGDIR); - closedir(LANGDIR); - - foreach my $lang (@langs) { - next if($lang =~ /^\.+$/); - - my $langsubdir = path_join($langdir, $lang); - next unless(-d $langsubdir); - - print "Checking for lang files in '$lang'...\n"; - - # open it, so we can process files therein - opendir(LANG, $langsubdir) - or return "Unable to open language directory '$langsubdir' for reading: $!"; - - my @files = readdir(LANG); - closedir(LANG); - - foreach my $name (@files) { - # Skip anything that doesn't identify itself as a .lang file - next unless($name =~ /\.lang$/); - - print "Processing language file '$name'...\n"; - - my $filename = path_join($langsubdir, $name); - - # Attempt to open and parse the lang file - if(open(WORDFILE, "<:utf8", $filename)) { - my @lines = ; - close(WORDFILE); - - foreach my $line (@lines) { - superchomp($line); - - # skip comments - next if($line =~ /^\s*#/); - - # Pull out the key and value, and - my ($key, $value) = $line =~ /^\s*(\w+)\s*=\s*(.*)$/; - next unless(defined($key) && defined($value)); - - # Unslash any \"s - $value =~ s/\\\"/\"/go; - - print "Storing language variable '$key'\n"; - $res = set_language_variable($dbh, $tablename, $key, $lang, $value); - return $res if($res); - } - } else { - return "Unable to open language file $filename: $!"; - } - } # foreach $name (@files) { - } # foreach my $lang (@langs) { - - return undef; -} - - -my $settings = Webperl::ConfigMicro -> new("../config/site.cfg") - or die "Unable to open configuration file: ".$Webperl::SystemModule::errstr."\n"; - -die "No 'language' table defined in configuration, unable to proceed.\n" - unless($settings -> {"database"} -> {"language"}); - -my $dbh = DBI->connect($settings -> {"database"} -> {"database"}, - $settings -> {"database"} -> {"username"}, - $settings -> {"database"} -> {"password"}, - { RaiseError => 0, AutoCommit => 1, mysql_enable_utf8 => 1 }) - or die "Unable to connect to database: ".$DBI::errstr."\n"; - -my $error = load_language($dbh, $settings -> {"database"} -> {"language"}, "../lang") - or print "Finished successfully.\n"; - -print "Failed: $error\n" if($error); diff --git a/tools/supportfiles/webapp/templates/default/.keepme b/tools/supportfiles/webapp/templates/default/.keepme deleted file mode 100644 index e69de29..0000000