GroLUG/script/grolug_email.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl 
 
BEGIN {
    $ENV{CATALYST_ENGINE} ||= 'Null';
    $ENV{CATALYST_SCRIPT_GEN} = 27;
}
use strict;
use FindBin;
use lib "$FindBin::Bin/../lib";
use GroLUG;
 
my $c=GroLUG->prepare();
$c->{stats}=(GroLUG->debug) ? Tree::Simple->new() : '';
$c->forward('/iscritto/send_email');