/[wopi2]/trunk/editor.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/editor.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4 by dpavlin, Wed Jun 23 11:56:27 2004 UTC revision 5 by dpavlin, Fri Jun 25 16:16:08 2004 UTC
# Line 21  my $wopi = WOPI->new( Line 21  my $wopi = WOPI->new(
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  }  }
Legend:
Removed from v.4  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26