| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 44 | dpavlin | #!/usr/bin/perl -w |
| 2 | |||
| 3 | 87 | dpavlin | use strict; |
| 4 | 76 | dpavlin | use lib './lib'; |
| 5 | use Webnote; | ||
| 6 | 44 | dpavlin | |
| 7 | 76 | dpavlin | my $wn = new Webnote( |
| 8 | dsn => 'dbi:Pg:dbname=webnote', | ||
| 9 | 77 | dpavlin | db_user => 'dpavlin', |
| 10 | db_passwd => '', | ||
| 11 | 93 | dpavlin | db_codepage => 'ISO-8859-2', |
| 12 | 80 | dpavlin | adminEmail => 'dpavlin(at)rot13(dot)org', |
| 13 | 93 | dpavlin | debug => 1, |
| 14 | 76 | dpavlin | ); |
| 15 | 44 | dpavlin | |
| 16 | 98 | dpavlin | $wn->run(); |
| 17 | 44 | dpavlin |