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'} = $q->self_url;

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

print $q->header;

if ($wopi->can($do) =~ /^CODE/) {
        print qq{<pre>do: $do</pre>};
        print $wopi->$do() || die "can't do '$do'";
} 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			$wopi->{'param'}->{'self'} = $q->self_url;
25
26			my $do = $q->param('do') \|\| 'editor';
27
28			print $q->header;
29
30			if ($wopi->can($do) =~ /^CODE/) {
31			print qq{<pre>do: $do</pre>};
32			print $wopi->$do() \|\| die "can't do '$do'";
33			} else {
34			die "no method '$do'";
35			}