Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
use MailingList;
use htmlgui;
use timer;

Select or download this
```
# my $dbh = vol::connect();
```

Select or download this

my($host) = $config{'db_host_name'};
my($db) = $config{'db_name'};
my($user) = $config{'db_user'};
my($pw) = $config{'db_pw'};
my $dbh = vol::connect_new($host,$db,$user,$pw);

Select or download this

# my($host) = $config{'db'}{'db_host_name'};
# my($db) = $config{'db'}{'db_name'};
...
# etc., etc., etc. 

1;

Select or download this

package supporters_conf;

...
  $scriptpath."conf.d/".$conf."/supporters.conf";
  return $conf;
} # END parse_url

Select or download this

# supporters.db
# Database Configuration file for supporters.cgi
...
db_user = user
db_pw = secret

Select or download this

 
package vol;

...
      {PrintError => 0, RaiseError => 1}));
}