/[wopi2]/trunk/lib/WOPI.pm
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/lib/WOPI.pm

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

revision 1 by dpavlin, Wed Jun 23 11:56:27 2004 UTC revision 7 by dpavlin, Tue Jul 6 22:21:35 2004 UTC
# Line 19  sub new { Line 19  sub new {
19          bless($self, $class);          bless($self, $class);
20    
21          $self->{'cgi'} = new CGI;          $self->{'cgi'} = new CGI;
22          $self->{'db'} = new DBM::Deep $self->{'db_file'} || die "can't open '",$self->{'db_file'},"'";          $self->{'poll'} = new DBM::Deep $self->{'db_file'} || die "can't open '",$self->{'db_file'},"'";
23          die "can't find database file ",$self->{'db_file'} if (! -e $self->{'db_file'});          die "can't find database file ",$self->{'db_file'} if (! -e $self->{'db_file'});
24          die "database file ",$self->{'db_file'}," not writable!" if (! -w $self->{'db_file'});          die "database file ",$self->{'db_file'}," not writable!" if (! -w $self->{'db_file'});
25          $self->{'tt'} = new Template({          $self->{'tt'} = new Template({
# Line 27  sub new { Line 27  sub new {
27                  EVAL_PERL => 1,                  EVAL_PERL => 1,
28          });          });
29          $self->{'sess'} = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});          $self->{'sess'} = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});
         $self->{'poll'} = $self->{'db'}->get($self->{'poll_name'});  
           
30          # create new database if it doesn't exist          # create new database if it doesn't exist
31          if (! $self->{'poll'}) {          if (! $self->{'poll'}) {
32                  $self->{'db'}->put($self->{'poll_name'}, { 'questions' => [] });                  $self->{'poll'}->{'poll_name'}  { 'questions' => [] };
                 $self->{'poll'} = $self->{'db'}->get($self->{'poll_name'});  
33          }          }
34    
35  print $self->{'cgi'}->header, Dumper($self->{'db'});  #print $self->{'cgi'}->header, Dumper($self->{'poll'});
   
         if ($self->{'poll'} && defined($self->{'poll'}->{'questions'})) {  
                 $self->{'order'} = (scalar @{$self->{'poll'}->{'questions'}})+1;  
         } else {  
                 $self->{'order'} = 1;  
         }  
36    
37          return $self;          return $self;
38  }  }
39    
40    sub last_order {
41            my $self = shift;
42    
43            return 0 if (! defined $self->{'poll'}->{'questions'});
44    
45            return scalar @{$self->{'poll'}->{'questions'}} || 0;
46    }
47    
48  sub get_html {  sub get_html {
49          my $self = shift;          my $self = shift;
50    
# Line 53  sub get_html { Line 52  sub get_html {
52    
53          my $html;          my $html;
54          $self->{'tt'}->process($template, $param, \$html) ||          $self->{'tt'}->process($template, $param, \$html) ||
55                  die $self->{'tt'}->error();                  confess $self->{'tt'}->error();
56    
57          return $html;          return $html;
58  }  }
59    
60  #  #
61    # Acme methods
62    #
63    
64    sub unbless {
65            my $self = shift;
66            
67            my $var = Dumper(\@_);
68    
69            while ($var =~ s/bless\(\s*([{\[].*?[}\]])\s*,\s*'DBM::Deep'\s*\)/$1/sg) { };
70            my $VAR1;
71            eval $var;
72            warn("eval of $var failed: $@") if ($@);
73    
74            return (wantarray ? @{$VAR1} : shift @{$VAR1});
75    }
76    
77    #
78  # CGI methods  # CGI methods
79  #  #
80    
81  sub editor {  sub editor {
82          my $self = shift;          my $self = shift;
83    
84          $self->{'param'}->{'var'} = "v".$self->{'order'};          # question order or current
85            my $order = shift;
86    
87            $self->status("edit called without a number!") if (! defined($order));
88    
89            $self->load_question($order) ||
90            $self->add_question;
91    
92          $self->{'param'}->{'poll_name'} = $self->{'poll_name'};          $self->{'param'}->{'poll_name'} = $self->{'poll_name'};
93          $self->{'param'}->{'order'} = $self->{'order'};  
94            $self->{'param'}->{'poll'} = $self->unbless($self->{'poll'});
95    
96    print qq{<!--},Dumper($self->{'param'}),qq{-->};
97    
98          return $self->get_html('editor.html', $self->{'param'});          return $self->get_html('editor.html', $self->{'param'});
99  }  }
100    
101    
102    sub add_question {
103            my $self = shift;
104    
105            $self->{'param'}->{'order'} = $self->last_order;
106            $self->{'param'}->{'var'} = "v".($self->last_order+1);
107    
108            $self->{'param'}->{'buttons'} = [
109                    { 'save' => ' Add ' },
110                    { 'cancel' => ' Cancel and Add another ' },
111            ];
112    
113            $self->status("Adding question ",$self->last_order);
114    }
115    
116  sub list_questions {  sub list_questions {
117          my $self = shift;          my $self = shift;
118    
119  }  }
120    
121    sub load_question {
122            my $self = shift;
123    
124            my $order = shift;
125            
126            return if (! defined($order));
127    
128            my $q = $self->{'poll'}->{'questions'}->[$order];
129    
130            if (! $q) {
131                    $self->status("Can't load question $order");
132                    return;
133            }
134    
135            foreach my $key (qw(q a time order var)) {
136                    $self->{'param'}->{$key} = $q->{$key};
137            }
138    
139            $self->status("Loaded question $order");
140    }
141    
142    sub question_exist {
143            my $self = shift;
144    
145            my $order = shift || confess "need order";
146            return $self->{'poll'}->{'questions'}->[$order];
147    }
148    
149    
150    
151  sub save_question {  sub save_question {
152          my $self = shift;          my $self = shift;
153    
154          my %v = map { $_ => $self->{'param'}->{$_} } qw(poll_name order);          my %v = map { $_ => $self->{'param'}->{$_} } qw(poll_name order);
155    
156          print "v = ",Dumper(\%v);  #       print "v = ",Dumper(\%v);
157    
158            my $o = $self->{'cgi'}->param('order');
159            confess "no order?" if (! defined($o));
160            confess "order not number? [$o]" if ($o !~ /^\d+$/);
161    
162            if (! $self->{'cgi'}->param('save')) {
163                    $self->status("No save button, won't save question $o");
164                    return;
165            }
166    
167          my $o = $self->{'cgi'}->param('order') || die "no order?";          $self->status("Saving question $o");
168    
169          my $question = {          my $question = {
170                  'q' => $self->{'cgi'}->param('q'),                  'q' => $self->{'cgi'}->param('q'),
171                  'a' => $self->{'cgi'}->param('a'),                  'a' => $self->{'cgi'}->param('a'),
172                  'var' => $self->{'cgi'}->param('var') || die,                  'var' => $self->{'cgi'}->param('var') || die,
173                  'time' => time(),                  'time' => time(),
174                  'order' => $o || die,                  'order' => $o,
175          };          };
176    
177  print "question = ",Dumper($question);  #print "question = ",Dumper($question);
178    
179          push @{$self->{'poll'}->{'questions'}}, $question;          $self->{'poll'}->{'questions'}->[$o] = $question;
180    
181          $self->{'db'}->put($self->{'poll_name'}, $self->{'poll'});          confess "question $0 not saved" if (! $self->{'poll'}->{'questions'}->[$o]);
   
         $self->{'order'}++;  
182    
183          $self->editor();          $self->editor();
184  }  }
185    
186    sub delete_question {
187            my $self = shift;
188    
189            my $nr = $self->{'cgi'}->param('order');
190            if (! defined($nr)) {
191                    $self->status("Can't delete question without a number!");
192                    $self->editor();
193            }
194    
195            if (defined($self->{'poll'}->{'questions'}->[$nr])) {
196                    delete $self->{'poll'}->{'questions'}->[$nr];
197                    splice @{$self->{'poll'}->{'qiestions'}},$nr,1;
198                    $self->{'poll'}->optimize() ||
199                            $self->status("Database optimization failed");
200                    $self->status("Question $nr deleted");
201                    $self->editor();
202            } else {
203                    $self->status("Can't delete question $nr which doesn't exist!");
204                    $self->editor();
205            }
206    
207    }
208    
209    sub edit_question {
210            my $self = shift;
211    
212            my $nr = $self->{'cgi'}->param('order');
213            if (! defined($nr)) {
214                    $self->status("Edit question called without a number!");
215                    $self->editor();
216            }
217    
218            $self->status("Editing question $nr");
219    
220            $self->{'param'}->{'buttons'} = [
221                    { 'save'        => ' Save changes ' },
222                    { 'cancel'      => ' Cancel and Add new ' },
223            ];
224    
225            $self->editor($nr);
226    }
227            
228    
229    sub status {
230            my $self = shift;
231    
232            my $text = join(" ",@_);
233    
234            $self->{'param'}->{'status'} .= $text.'<br/>';
235            $self->{'param'}->{'title'} = $text;
236    }
Legend:
Removed from v.1  
changed lines
  Added in v.7
  ViewVC Help
Powered by ViewVC 1.1.26