Parent Directory
| 
Revision Log
a lot of changes, poll is in it's own database, edit and delete of questions, display of status messages
| 1 | dpavlin | 1 | #!/usr/bin/perl -w |
| 2 | |||
| 3 | use strict; | ||
| 4 | |||
| 5 | use DBM::Deep; | ||
| 6 | use Data::Dumper; | ||
| 7 | use XML::Simple; | ||
| 8 | |||
| 9 | dpavlin | 5 | my $db = new DBM::Deep '/tmp/wopi.db' || die "can't open db"; |
| 10 | dpavlin | 1 | |
| 11 | dpavlin | 5 | die "can't open db" if (! defined($db)); |
| 12 | |||
| 13 | dpavlin | 1 | if (lc(shift) =~ /xml/) { |
| 14 | print XMLout($db); | ||
| 15 | } else { | ||
| 16 | print Dumper($db); | ||
| 17 | } |
| Name | Value |
|---|---|
| svn:executable |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |