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 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | |
5 | use DBM::Deep; |
6 | use Data::Dumper; |
7 | use XML::Simple; |
8 | |
9 | my $db = new DBM::Deep '/tmp/wopi.db' || die "can't open db"; |
10 | |
11 | die "can't open db" if (! defined($db)); |
12 | |
13 | 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 |