From bcc0c17cb41111d723ed49ed7b5408b1a8bb51fe Mon Sep 17 00:00:00 2001 From: dakkar Date: Wed, 15 Feb 2006 16:37:01 +0000 Subject: aggiunte tutte le dipendenze, e la libreria di postgres git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@198 fcb26f47-9200-0410-b104-b98ab5b095f3 --- GroLUG/Makefile.PL | 51 +++++++++++++++++++++++++++++++++++++- GroLUG/lib/Catalyst/Engine/Null.pm | 24 +++++++++--------- GroLUG/lib/GroLUG/C/Iscritto.pm | 2 ++ 3 files changed, 64 insertions(+), 13 deletions(-) (limited to 'GroLUG') diff --git a/GroLUG/Makefile.PL b/GroLUG/Makefile.PL index 6a7cd55..f9d877c 100644 --- a/GroLUG/Makefile.PL +++ b/GroLUG/Makefile.PL @@ -32,17 +32,66 @@ requires Email::Send => 0; requires Encode => 0; requires Encode::MIME::Header => 0; -catalyst_par_script('grolug_fastcgi.pl'); catalyst_par_engine('FastCGI'); +#catalyst_par_engine('HTTP'); +catalyst_par_core(1); +catalyst_par_libs(qw(/usr/lib/libpq.so.3.2)); catalyst_par_classes(qw( DateTime::Format::Strptime Module::Find Email::MIME Email::MIME::Creator Email::Send + Email::Send::SMTP + Email::Send::Qmail Encode Encode::MIME::Header + HTML::Widget HTML::Widget::Constraint + HTML::Widget::Filter::Callback + HTML::Widget::Filter::LowerCase + HTML::Widget::Filter::HTMLEscape + HTML::Widget::Filter::TrimEdges + HTML::Widget::Filter::Whitespace + HTML::Widget::Filter::UpperCase + HTML::Widget::Filter::HTMLStrip + HTML::Widget::Container + HTML::Widget::Constraint::All + HTML::Widget::Constraint::Any + HTML::Widget::Constraint::Length + HTML::Widget::Constraint::In + HTML::Widget::Constraint::Callback + HTML::Widget::Constraint::Range + HTML::Widget::Constraint::Maybe + HTML::Widget::Constraint::ASCII + HTML::Widget::Constraint::AllOrNone + HTML::Widget::Constraint::Date + HTML::Widget::Constraint::DateTime + HTML::Widget::Constraint::Printable + HTML::Widget::Constraint::Regex + HTML::Widget::Constraint::HTTP + HTML::Widget::Constraint::Integer + HTML::Widget::Constraint::Equal + HTML::Widget::Constraint::String + HTML::Widget::Constraint::Time + HTML::Widget::Constraint::Email + HTML::Widget::Result + HTML::Widget::Element::Radio + HTML::Widget::Element::Submit + HTML::Widget::Element::Password + HTML::Widget::Element::Textarea + HTML::Widget::Element::Hidden + HTML::Widget::Element::Upload + HTML::Widget::Element::Textfield + HTML::Widget::Element::Span + HTML::Widget::Element::Select + HTML::Widget::Element::RadioGroup + HTML::Widget::Element::Reset + HTML::Widget::Element::Checkbox + HTML::Widget::Accessor + HTML::Widget::Element + HTML::Widget::Filter + HTML::Widget::Error )); catalyst; diff --git a/GroLUG/lib/Catalyst/Engine/Null.pm b/GroLUG/lib/Catalyst/Engine/Null.pm index 2b910c2..179bc32 100644 --- a/GroLUG/lib/Catalyst/Engine/Null.pm +++ b/GroLUG/lib/Catalyst/Engine/Null.pm @@ -6,16 +6,16 @@ use Catalyst::Utils; use NEXT; use URI; -sub finalize_body { print STDERR "finalize_body\n"}; -sub finalize_cookies { print STDERR "finalize_cookies\n"}; -sub finalize_error { print STDERR "finalize_error\n"}; -sub finalize_read { print STDERR "finalize_read\n"}; -sub finalize_uploads { print STDERR "finalize_uploads\n"}; +sub finalize_body { } +sub finalize_cookies { } +sub finalize_error { } +sub finalize_read { } +sub finalize_uploads { } -sub prepare_request { print STDERR "prepare_request\n"}; -sub prepare_query_parameters { print STDERR "prepare_query_parameters\n"}; -sub prepare_read { print STDERR "prepare_read\n"}; -sub prepare_uploads { print STDERR "prepare_uploads\n"}; +sub prepare_request { } +sub prepare_query_parameters { $_[0]->SUPER::prepare_query_parameters( $_[1], '') } +sub prepare_read { } +sub prepare_uploads { } sub prepare_path { print STDERR "prepare_path\n"; my ($self,$c)=@_; @@ -23,10 +23,10 @@ sub prepare_path { $c->request->base(URI->new('/')); } -sub read { print STDERR "read\n"; '' }; -sub read_chunk { print STDERR "read_chunk\n"; '' }; +sub read { '' }; +sub read_chunk { '' } -sub write { print STDERR "write\n"}; +sub write { } 1; diff --git a/GroLUG/lib/GroLUG/C/Iscritto.pm b/GroLUG/lib/GroLUG/C/Iscritto.pm index 78b89ca..7eefb79 100644 --- a/GroLUG/lib/GroLUG/C/Iscritto.pm +++ b/GroLUG/lib/GroLUG/C/Iscritto.pm @@ -252,6 +252,8 @@ sub cancella_pag :Local { sub send_email :Private { my ($self,$c)=@_; + $c->log->debug('mando posta'); + my $iscritti=GroLUG::M::DB->resultset('Iscritto'); my @scadenze=map { +{ -- cgit v1.2.3