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	#!/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	$wopi->{'param'}->{'self'} = $wopi->{'cgi'}->url(
25	-relative => 1,
26	-query=>0,
27	-path=>0,
28	);
29
30	my $do = $q->param('do') \|\| 'editor';
31	$do='editor' if ($q->param('cancel'));
32
33	print $q->header;
34
35	if ($wopi->can($do) =~ /^CODE/) {
36	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	} else {
43	die "no method '$do'";
44	}