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