wopi2/trunk/editor.cgi

#!/usr/bin/perl -w

use strict;
use lib './lib';
use WOPI;

# name to database file (web server writable)
my $db_file = '/tmp/wopi.db';

# name of poll
my $poll_name = 'nadareni';

use Data::Dumper;

my $wopi = WOPI->new(
        db_file => $db_file,
        templates => './template',
        poll_name => $poll_name,
);


my $q = $wopi->{'cgi'} || die "no CGI object?";

$wopi->{'param'}->{'self'} = $wopi->{'cgi'}->url(
        -relative => 1,
        -query=>0,
        -path=>0,
);

my $do = $q->param('do') || 'editor';
$do='editor' if ($q->param('cancel'));

print $q->header;

if ($wopi->can($do) =~ /^CODE/) {
        print qq{<!-- do: $do -->};
        my $out = $wopi->$do() || die "can't do '$do'";

#       confess "no output from '$do', probably bug!" if (! $out);

        print $out;
} else {
        die "no method '$do'";
}
1	dpavlin	1	#!/usr/bin/perl -w
2
3			use strict;
4			use lib './lib';
5			use WOPI;
6
7			# name to database file (web server writable)
8			my $db_file = '/tmp/wopi.db';
9
10			# name of poll
11			my $poll_name = 'nadareni';
12
13			use Data::Dumper;
14
15			my $wopi = WOPI->new(
16			db_file => $db_file,
17			templates => './template',
18			poll_name => $poll_name,
19			);
20
21
22			my $q = $wopi->{'cgi'} \|\| die "no CGI object?";
23
24	dpavlin	5	$wopi->{'param'}->{'self'} = $wopi->{'cgi'}->url(
25			-relative => 1,
26			-query=>0,
27			-path=>0,
28			);
29	dpavlin	1
30			my $do = $q->param('do') \|\| 'editor';
31	dpavlin	5	$do='editor' if ($q->param('cancel'));
32	dpavlin	1
33			print $q->header;
34
35			if ($wopi->can($do) =~ /^CODE/) {
36	dpavlin	5	print qq{<!-- do: $do -->};
37			my $out = $wopi->$do() \|\| die "can't do '$do'";
38
39			# confess "no output from '$do', probably bug!" if (! $out);
40
41			print $out;
42	dpavlin	1	} else {
43			die "no method '$do'";
44			}