@@ -12,6 +12,7 @@ requires 'Template' => '2.20'; requires 'DBIx::Class' => '0.08107'; requires 'Catalyst' => '5.80005'; requires 'Moose' => '0.75'; +requires 'parent'; requires 'Digest'; requires 'DateTime'; requires 'Date::Calc'; Makefile.PL @@ -4,7 +4,7 @@ use strict; BEGIN { $ENV{CATALYST_ENGINE} ||= 'HTTP'; - $ENV{CATALYST_SCRIPT_GEN} = 32; + $ENV{CATALYST_SCRIPT_GEN} = 33; require Catalyst::Engine::HTTP; } @@ -25,12 +25,13 @@ my $restart_delay = 1; my $restart_regex = '(?:/|^)(?!\.#).+(?:\.yml$|\.yaml$|\.conf|\.pm)$'; my $restart_directory = undef; my $follow_symlinks = 0; +my $background = 0; my @argv = @ARGV; GetOptions( 'debug|d' => \$debug, - 'fork' => \$fork, + 'fork|f' => \$fork, 'help|?' => \$help, 'host=s' => \$host, 'port=s' => \$port, @@ -40,6 +41,7 @@ GetOptions( 'restartregex|rr=s' => \$restart_regex, 'restartdirectory=s@' => \$restart_directory, 'followsymlinks' => \$follow_symlinks, + 'background' => \$background, ); pod2usage(1) if $help; @@ -55,18 +57,17 @@ if ($debug) { # variables can be set at runtime. require Foorum; -Foorum->run( - $port, $host, - { argv => \@argv, - 'fork' => $fork, - keepalive => $keepalive, - restart => $restart, - restart_delay => $restart_delay, - restart_regex => qr/$restart_regex/, - restart_directory => $restart_directory, - follow_symlinks => $follow_symlinks, - } -); +Foorum->run( $port, $host, { + argv => \@argv, + 'fork' => $fork, + keepalive => $keepalive, + restart => $restart, + restart_delay => $restart_delay, + restart_regex => qr/$restart_regex/, + restart_directory => $restart_directory, + follow_symlinks => $follow_symlinks, + background => $background, +} ); 1; @@ -97,6 +98,7 @@ foorum_server.pl [options] (defaults to '[SCRIPT_DIR]/..') -follow_symlinks follow symlinks in search directories (defaults to false. this is a no-op on Win32) + -background run the process in the background See also: perldoc Catalyst::Manual perldoc Catalyst::Manual::Intro @@ -111,7 +113,7 @@ Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT -This library is free software, you can redistribute it and/or modify +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut bin/foorum_server.pl @@ -3,6 +3,8 @@ package Foorum; use strict; use warnings; +use Catalyst::Runtime '5.70'; +use parent qw/Catalyst/; use Catalyst qw/ ConfigLoader Static::Simple @@ -18,7 +20,7 @@ use Catalyst qw/ +Foorum::Plugin::FoorumUtils /; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; __PACKAGE__->config( { VERSION => $VERSION } ); lib/Foorum.pm @@ -2,7 +2,7 @@ package Foorum::Action::PathLogger; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'Catalyst::Action'; use Time::HiRes qw( gettimeofday tv_interval ); use Data::Dumper; lib/Foorum/Action/PathLogger.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Admin; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; sub auto : Private { my ( $self, $c ) = @_; lib/Foorum/Controller/Admin.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Admin::BanIP; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Net::CIDR::Lite; sub auto : Private { lib/Foorum/Controller/Admin/BanIP.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Admin::Forum; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; sub auto : Private { my ( $self, $c ) = @_; lib/Foorum/Controller/Admin/Forum.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Admin::Log; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; use Foorum::Logger qw/%levels/; lib/Foorum/Controller/Admin/Log.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Admin::Settings; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use YAML::XS qw/DumpFile LoadFile/; use Foorum::Utils qw/get_server_timezone_diff/; lib/Foorum/Controller/Admin/Settings.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Admin::Tools; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Data::Dumper; sub auto : Private { lib/Foorum/Controller/Admin/Tools.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Admin::Topic; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; sub auto : Private { lib/Foorum/Controller/Admin/Topic.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Admin::User; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; sub auto : Private { lib/Foorum/Controller/Admin/User.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Ajax; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Formatter qw/filter_format/; sub auto : Private { lib/Foorum/Controller/Ajax.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Ajax::Poll; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; sub vote : Local { my ( $self, $c ) = @_; lib/Foorum/Controller/Ajax/Poll.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Comment; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/encodeHTML/; sub auto : Private { lib/Foorum/Controller/Comment.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Forum; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; use Foorum::Formatter qw/filter_format/; lib/Foorum/Controller/Forum.pm @@ -2,8 +2,8 @@ package Foorum::Controller::ForumAdmin; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; #use File::Slurp; use Foorum::Utils qw/is_color encodeHTML/; lib/Foorum/Controller/ForumAdmin.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Get; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; # Module Idea: # we can't use /print_error in Model/Topic.pm like. lib/Foorum/Controller/Get.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Logon; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; sub login : Global { my ( $self, $c ) = @_; lib/Foorum/Controller/Logon.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Message; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; sub auto : Private { lib/Foorum/Controller/Message.pm @@ -2,8 +2,8 @@ package Foorum::Controller::My; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; sub auto : Private { lib/Foorum/Controller/My.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Poll; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/encodeHTML get_page_from_url/; sub auto : Private { lib/Foorum/Controller/Poll.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Profile; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::XUtils qw/theschwartz/; use Digest (); use Locale::Country::Multilingual; lib/Foorum/Controller/Profile.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Register; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Digest (); use WWW::Contact; lib/Foorum/Controller/Register.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Root; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Time::HiRes qw( gettimeofday tv_interval ); use URI::Escape; @@ -52,7 +52,7 @@ sub auto : Private { return 1; } -sub default : Private { +sub default :Path { my ( $self, $c ) = @_; # 404 @@ -60,7 +60,7 @@ sub default : Private { $c->detach( '/print_error', ['ERROR_404'] ); } -sub index : Private { +sub index :Path :Args(0) { my ( $self, $c ) = @_; $c->forward( 'Foorum::Controller::Forum', 'board' ); lib/Foorum/Controller/Root.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Search; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; use Foorum::Logger qw/error_log/; use Data::Page; lib/Foorum/Controller/Search.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Settings; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; sub default : Private { my ( $self, $c ) = @_; lib/Foorum/Controller/Settings.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Site; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; use Foorum::Formatter qw/filter_format/; lib/Foorum/Controller/Site.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Site::Popular; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; use Foorum::Formatter qw/filter_format/; lib/Foorum/Controller/Site/Popular.pm @@ -2,8 +2,8 @@ package Foorum::Controller::StaticInfo; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; sub help : Global { my ( $self, $c, $help_id ) = @_; lib/Foorum/Controller/StaticInfo.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Topic; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/encodeHTML get_page_from_url generate_random_word/; use Foorum::XUtils qw/theschwartz/; use List::MoreUtils qw/firstidx/; lib/Foorum/Controller/Topic.pm @@ -2,8 +2,8 @@ package Foorum::Controller::TopicAction; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; sub lock_or_sticky_or_elite : Regex('^forum/(\w+)/topic/(\d+)/(un)?(sticky|elite|lock)$') { lib/Foorum/Controller/TopicAction.pm @@ -2,8 +2,8 @@ package Foorum::Controller::U; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; use Foorum::Utils qw/get_page_from_url/; sub user_profile : LocalRegex('^(\w+)$') { lib/Foorum/Controller/U.pm @@ -2,8 +2,8 @@ package Foorum::Controller::Utils; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Controller'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Controller'; __PACKAGE__->config->{namespace} = ''; lib/Foorum/Controller/Utils.pm @@ -3,7 +3,7 @@ package Foorum::CronUtils; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use YAML::XS qw/LoadFile/; # config use File::Spec; lib/Foorum/CronUtils.pm @@ -2,7 +2,7 @@ package Foorum::Formatter; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'Exporter'; use Foorum::XUtils qw/config/; use vars qw/ lib/Foorum/Formatter.pm @@ -3,7 +3,7 @@ package Foorum::Formatter::BBCode2; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use strict; use warnings; lib/Foorum/Formatter/BBCode2.pm @@ -3,7 +3,7 @@ package Foorum::Formatter::Pod; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; # most are copied from L<Angerwhale::Format::Pod>, Thank you, Jonathan Rockway lib/Foorum/Formatter/Pod.pm @@ -2,7 +2,7 @@ package Foorum::Logger; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw/Exporter/; use vars qw/@EXPORT_OK %levels/; @EXPORT_OK = qw/ %levels error_log /; lib/Foorum/Logger.pm @@ -1,7 +1,7 @@ package Foorum::Model::DBIC; use strict; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use Catalyst::Model::DBIC::Schema; use base qw/Catalyst::Model::DBIC::Schema/; lib/Foorum/Model/DBIC.pm @@ -2,8 +2,8 @@ package Foorum::Model::Log; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Model'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Model'; use Foorum::Logger qw/error_log/; sub log_action { lib/Foorum/Model/Log.pm @@ -2,8 +2,8 @@ package Foorum::Model::Object; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Model'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Model'; sub get_object_from_url { my ( $self, $c, $path ) = @_; lib/Foorum/Model/Object.pm @@ -2,8 +2,8 @@ package Foorum::Model::Policy; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Model'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Model'; sub fill_user_role { my ( $self, $c, $field ) = @_; lib/Foorum/Model/Policy.pm @@ -2,8 +2,8 @@ package Foorum::Model::UserAuth; use strict; use warnings; -our $VERSION = '1.000008'; -use base 'Catalyst::Model'; +our $VERSION = '1.000009'; +use parent 'Catalyst::Model'; sub auth { my ( $self, $c, $userinfo ) = @_; lib/Foorum/Model/UserAuth.pm @@ -2,7 +2,7 @@ package Foorum::Plugin::FoorumUtils; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; sub load_once { my ( $c, $url ) = @_; lib/Foorum/Plugin/FoorumUtils.pm @@ -3,7 +3,7 @@ package Foorum::Release; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'Exporter'; use vars qw/@EXPORT_OK/; lib/Foorum/Release.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::BannedIp; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; use Net::IP::Match::Regexp qw( create_iprange_regexp match_ip ); lib/Foorum/ResultSet/BannedIp.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Comment; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; use Foorum::Utils qw/get_page_from_url encodeHTML/; lib/Foorum/ResultSet/Comment.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::FilterWord; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub get_data { lib/Foorum/ResultSet/FilterWord.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Forum; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; use Foorum::Formatter qw/filter_format/; lib/Foorum/ResultSet/Forum.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::ForumSettings; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub get_all { lib/Foorum/ResultSet/ForumSettings.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Hit; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub register { lib/Foorum/ResultSet/Hit.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Message; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub remove_from_db { lib/Foorum/ResultSet/Message.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::ScheduledEmail; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; use Foorum::Utils qw/generate_random_word/; lib/Foorum/ResultSet/ScheduledEmail.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::SecurityCode; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; use Foorum::Utils qw/generate_random_word/; lib/Foorum/ResultSet/SecurityCode.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Share; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub del_or_create { lib/Foorum/ResultSet/Share.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Star; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub del_or_create { lib/Foorum/ResultSet/Star.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Topic; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub get { lib/Foorum/ResultSet/Topic.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Upload; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; use File::Remove qw(remove); lib/Foorum/ResultSet/Upload.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::User; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; use Object::Signature(); lib/Foorum/ResultSet/User.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::UserForum; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub create_user_forum { lib/Foorum/ResultSet/UserForum.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::UserOnline; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub get_data { lib/Foorum/ResultSet/UserOnline.pm @@ -2,7 +2,7 @@ package Foorum::ResultSet::Visit; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class::ResultSet'; sub make_visited { lib/Foorum/ResultSet/Visit.pm @@ -3,7 +3,7 @@ package Foorum::SUtils; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use Foorum::Schema; # schema use base qw/Exporter/; lib/Foorum/SUtils.pm @@ -2,7 +2,7 @@ package Foorum::Schema; use Moose; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; extends 'DBIx::Class::Schema'; lib/Foorum/Schema.pm @@ -2,7 +2,7 @@ package Foorum::Schema::BannedIp; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/BannedIp.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Comment; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Comment.pm @@ -2,7 +2,7 @@ package Foorum::Schema::FilterWord; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/FilterWord.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Forum; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Forum.pm @@ -2,7 +2,7 @@ package Foorum::Schema::ForumSettings; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/ForumSettings.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Hit; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Hit.pm @@ -2,7 +2,7 @@ package Foorum::Schema::LogAction; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/LogAction.pm @@ -2,7 +2,7 @@ package Foorum::Schema::LogError; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/LogError.pm @@ -2,7 +2,7 @@ package Foorum::Schema::LogPath; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/LogPath.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Message; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Message.pm @@ -2,7 +2,7 @@ package Foorum::Schema::MessageUnread; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/MessageUnread.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Poll; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/Poll.pm @@ -2,7 +2,7 @@ package Foorum::Schema::PollOption; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/PollOption.pm @@ -2,7 +2,7 @@ package Foorum::Schema::PollResult; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/PollResult.pm @@ -2,7 +2,7 @@ package Foorum::Schema::ScheduledEmail; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/ScheduledEmail.pm @@ -2,7 +2,7 @@ package Foorum::Schema::SecurityCode; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/SecurityCode.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Session; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/Session.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Share; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Share.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Star; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Star.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Stat; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/Stat.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Topic; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Topic.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Upload; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Upload.pm @@ -2,7 +2,7 @@ package Foorum::Schema::User; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/User.pm @@ -2,7 +2,7 @@ package Foorum::Schema::UserActivation; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/UserActivation.pm @@ -2,7 +2,7 @@ package Foorum::Schema::UserDetails; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/UserDetails.pm @@ -2,7 +2,7 @@ package Foorum::Schema::UserForum; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/UserForum.pm @@ -2,7 +2,7 @@ package Foorum::Schema::UserOnline; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/UserOnline.pm @@ -2,7 +2,7 @@ package Foorum::Schema::UserProfilePhoto; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/UserProfilePhoto.pm @@ -2,7 +2,7 @@ package Foorum::Schema::UserRole; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/UserRole.pm @@ -2,7 +2,7 @@ package Foorum::Schema::UserSettings; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/UserSettings.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Variables; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components('Core'); lib/Foorum/Schema/Variables.pm @@ -2,7 +2,7 @@ package Foorum::Schema::Visit; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/Core/); lib/Foorum/Schema/Visit.pm @@ -6,7 +6,7 @@ package Foorum::Scraper::MailMan; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use HTML::TokeParser; use LWP::Simple; use Encode qw/from_to/; lib/Foorum/Scraper/MailMan.pm @@ -2,7 +2,7 @@ package Foorum::Search; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use Foorum::Search::Sphinx; use Foorum::Search::Database; lib/Foorum/Search.pm @@ -1,7 +1,7 @@ package Foorum::Search::Database; use Moose; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use Foorum::SUtils qw/schema/; has 'schema' => ( lib/Foorum/Search/Database.pm @@ -1,7 +1,7 @@ package Foorum::Search::Sphinx; use Moose; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use Sphinx::Search; use Foorum::SUtils qw/schema/; lib/Foorum/Search/Sphinx.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::DailyChart; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::Logger qw/error_log/; lib/Foorum/TheSchwartz/Worker/DailyChart.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::DailyReport; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::Logger qw/error_log/; lib/Foorum/TheSchwartz/Worker/DailyReport.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::Every15Min; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Data::Dump qw/dump/; use Foorum::SUtils qw/schema/; lib/Foorum/TheSchwartz/Worker/Every15Min.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::Hit; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Data::Dump qw/dump/; use Foorum::SUtils qw/schema/; lib/Foorum/TheSchwartz/Worker/Hit.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::RemoveObject; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::XUtils qw/cache/; lib/Foorum/TheSchwartz/Worker/RemoveObject.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::RemoveOldDataFromDB; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::Logger qw/error_log/; lib/Foorum/TheSchwartz/Worker/RemoveOldDataFromDB.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::ResendActivation; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::Logger qw/error_log/; lib/Foorum/TheSchwartz/Worker/ResendActivation.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::ResizeProfilePhoto; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::XUtils qw/base_path/; lib/Foorum/TheSchwartz/Worker/ResizeProfilePhoto.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::Scraper; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::Logger qw/error_log/; lib/Foorum/TheSchwartz/Worker/Scraper.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::SendScheduledEmail; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::Logger qw/error_log/; lib/Foorum/TheSchwartz/Worker/SendScheduledEmail.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::SendStarredNofication; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::XUtils qw/config base_path cache/; lib/Foorum/TheSchwartz/Worker/SendStarredNofication.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::Topic_ViewAsPDF; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::Logger qw/error_log/; lib/Foorum/TheSchwartz/Worker/Topic_ViewAsPDF.pm @@ -2,7 +2,7 @@ package Foorum::TheSchwartz::Worker::ValidateForumData; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base qw( TheSchwartz::Moosified::Worker ); use Foorum::SUtils qw/schema/; use Foorum::Logger qw/error_log/; lib/Foorum/TheSchwartz/Worker/ValidateForumData.pm @@ -3,7 +3,7 @@ package Foorum::Utils; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'Exporter'; use vars qw/@EXPORT_OK/; lib/Foorum/Utils.pm @@ -1,7 +1,7 @@ package Foorum::View::JSON; use strict; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'Catalyst::View::JSON'; 1; lib/Foorum/View/JSON.pm @@ -1,7 +1,7 @@ package Foorum::View::TT; use strict; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use base 'Catalyst::View::TT'; use Template::Stash::XS; use File::Spec; lib/Foorum/View/TT.pm @@ -3,7 +3,7 @@ package Foorum::XUtils; use strict; use warnings; -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; use YAML::XS qw/LoadFile/; # config use TheSchwartz::Moosified; # theschwartz lib/Foorum/XUtils.pm 207fed66d9f447bebd42713cb22bec757a7f6b2e 08e068240507b3058a7fadbdacb6bbf81c88acb8 fayland fayland@gmail.com http://github.com/fayland/foorum/commit/0175819acbb0dbafc751bd432cec23b675831393 0175819acbb0dbafc751bd432cec23b675831393 2009-09-26T02:55:42-07:00 2009-09-26T02:55:42-07:00 Merge branch 'master' of github.com:fayland/foorum 2397e4344ce85ae3a7cd76909e16aa98d2c70989 fayland fayland@gmail.com