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	#!/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	}