trunk/lib/WOPI.pm

package WOPI;

use strict;
use warnings;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use DBM::Deep;
use Template;
our $VERSION = '1.00';

use Data::Dumper;

sub new {
        my $class = shift;

        my $self = {@_};
        bless($self, $class);

        $self->{'cgi'} = new CGI;
        $self->{'db'} = new DBM::Deep $self->{'db_file'} || die "can't open '",$self->{'db_file'},"'";
        die "can't find database file ",$self->{'db_file'} if (! -e $self->{'db_file'});
        die "database file ",$self->{'db_file'}," not writable!" if (! -w $self->{'db_file'});
        $self->{'tt'} = new Template({
                INCLUDE_PATH => $self->{'templates'},
                EVAL_PERL => 1,
        });
        $self->{'sess'} = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});
        $self->{'poll'} = $self->{'db'}->get($self->{'poll_name'});
        
        # create new database if it doesn't exist
        if (! $self->{'poll'}) {
                $self->{'db'}->put($self->{'poll_name'}, { 'questions' => [] });
                $self->{'poll'} = $self->{'db'}->get($self->{'poll_name'});
        }

print $self->{'cgi'}->header, Dumper($self->{'db'});

        if ($self->{'poll'} && defined($self->{'poll'}->{'questions'})) {
                $self->{'order'} = (scalar @{$self->{'poll'}->{'questions'}})+1;
        } else {
                $self->{'order'} = 1;
        }

        return $self;
}

sub get_html {
        my $self = shift;

        my ($template,$param) = @_;

        my $html;
        $self->{'tt'}->process($template, $param, \$html) ||
                die $self->{'tt'}->error();

        return $html;
}

#
# CGI methods
#

sub editor {
        my $self = shift;

        $self->{'param'}->{'var'} = "v".$self->{'order'};
        $self->{'param'}->{'poll_name'} = $self->{'poll_name'};
        $self->{'param'}->{'order'} = $self->{'order'};

        return $self->get_html('editor.html', $self->{'param'});
}

sub list_questions {
        my $self = shift;

}

sub save_question {
        my $self = shift;

        my %v = map { $_ => $self->{'param'}->{$_} } qw(poll_name order);

        print "v = ",Dumper(\%v);

        my $o = $self->{'cgi'}->param('order') || die "no order?";

        my $question = {
                'q' => $self->{'cgi'}->param('q'),
                'a' => $self->{'cgi'}->param('a'),
                'var' => $self->{'cgi'}->param('var') || die,
                'time' => time(),
                'order' => $o || die,
        };

print "question = ",Dumper($question);

        push @{$self->{'poll'}->{'questions'}}, $question;

        $self->{'db'}->put($self->{'poll_name'}, $self->{'poll'});

        $self->{'order'}++;

        $self->editor();
}
1	package WOPI;
2
3	use strict;
4	use warnings;
5
6	use CGI qw(:standard);
7	use CGI::Carp qw(fatalsToBrowser);
8	use CGI::Session;
9	use DBM::Deep;
10	use Template;
11	our $VERSION = '1.00';
12
13	use Data::Dumper;
14
15	sub new {
16	my $class = shift;
17
18	my $self = {@_};
19	bless($self, $class);
20
21	$self->{'cgi'} = new CGI;
22	$self->{'db'} = new DBM::Deep $self->{'db_file'} \|\| die "can't open '",$self->{'db_file'},"'";
23	die "can't find database file ",$self->{'db_file'} if (! -e $self->{'db_file'});
24	die "database file ",$self->{'db_file'}," not writable!" if (! -w $self->{'db_file'});
25	$self->{'tt'} = new Template({
26	INCLUDE_PATH => $self->{'templates'},
27	EVAL_PERL => 1,
28	});
29	$self->{'sess'} = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});
30	$self->{'poll'} = $self->{'db'}->get($self->{'poll_name'});
31
32	# create new database if it doesn't exist
33	if (! $self->{'poll'}) {
34	$self->{'db'}->put($self->{'poll_name'}, { 'questions' => [] });
35	$self->{'poll'} = $self->{'db'}->get($self->{'poll_name'});
36	}
37
38	print $self->{'cgi'}->header, Dumper($self->{'db'});
39
40	if ($self->{'poll'} && defined($self->{'poll'}->{'questions'})) {
41	$self->{'order'} = (scalar @{$self->{'poll'}->{'questions'}})+1;
42	} else {
43	$self->{'order'} = 1;
44	}
45
46	return $self;
47	}
48
49	sub get_html {
50	my $self = shift;
51
52	my ($template,$param) = @_;
53
54	my $html;
55	$self->{'tt'}->process($template, $param, \$html) \|\|
56	die $self->{'tt'}->error();
57
58	return $html;
59	}
60
61	#
62	# CGI methods
63	#
64
65	sub editor {
66	my $self = shift;
67
68	$self->{'param'}->{'var'} = "v".$self->{'order'};
69	$self->{'param'}->{'poll_name'} = $self->{'poll_name'};
70	$self->{'param'}->{'order'} = $self->{'order'};
71
72	return $self->get_html('editor.html', $self->{'param'});
73	}
74
75	sub list_questions {
76	my $self = shift;
77
78	}
79
80	sub save_question {
81	my $self = shift;
82
83	my %v = map { $_ => $self->{'param'}->{$_} } qw(poll_name order);
84
85	print "v = ",Dumper(\%v);
86
87	my $o = $self->{'cgi'}->param('order') \|\| die "no order?";
88
89	my $question = {
90	'q' => $self->{'cgi'}->param('q'),
91	'a' => $self->{'cgi'}->param('a'),
92	'var' => $self->{'cgi'}->param('var') \|\| die,
93	'time' => time(),
94	'order' => $o \|\| die,
95	};
96
97	print "question = ",Dumper($question);
98
99	push @{$self->{'poll'}->{'questions'}}, $question;
100
101	$self->{'db'}->put($self->{'poll_name'}, $self->{'poll'});
102
103	$self->{'order'}++;
104
105	$self->editor();
106	}