Parent Directory | Revision Log | Patch
revision 490 by dpavlin, Sat Oct 9 21:44:25 2004 UTC | revision 500 by dpavlin, Sun Oct 10 11:04:52 2004 UTC | |
---|---|---|
# | Line 32 my $result = GetOptions( | Line 32 my $result = GetOptions( |
32 | "low_mem!" => \$low_mem, | "low_mem!" => \$low_mem, |
33 | ); | ); |
34 | ||
35 | my $filter = { | |
36 | 'CROVOC' => sub { | |
37 | my $tmp = shift || return; | |
38 | return undef unless ($tmp =~ s/CROVOC.*$/ */); | |
39 | return $tmp; | |
40 | }, | |
41 | }; | |
42 | ||
43 | # create WebPAC object | # create WebPAC object |
44 | # | # |
45 | my $webpac = new WebPAC( | my $webpac = new WebPAC( |
# | Line 40 my $webpac = new WebPAC( | Line 48 my $webpac = new WebPAC( |
48 | start_mfn => $start_mfn, | start_mfn => $start_mfn, |
49 | debug => $debug, | debug => $debug, |
50 | low_mem => $low_mem, | low_mem => $low_mem, |
51 | filter => $filter, | |
52 | ) || die; | ) || die; |
53 | ||
54 | my $log = $webpac->_get_logger() || die "can't get logger"; | my $log = $webpac->_get_logger() || die "can't get logger"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |