Parent Directory | Revision Log | Patch
revision 219 by dpavlin, Sat Aug 15 13:44:13 2009 UTC | revision 220 by dpavlin, Sat Aug 15 13:47:37 2009 UTC | |
---|---|---|
# | Line 11 use Carp qw/confess/; | Line 11 use Carp qw/confess/; |
11 | use server; | use server; |
12 | use format; | use format; |
13 | ||
14 | our $debug = $server::debug; | |
15 | ||
16 | sub mkbasedir { | sub mkbasedir { |
17 | my $path = shift; | my $path = shift; |
18 | $path =~ s{(^.*)/[^/]+$}{$1}; | $path =~ s{(^.*)/[^/]+$}{$1}; |
# | Line 60 sub conf { | Line 62 sub conf { |
62 | } elsif ( -f $path ) { | } elsif ( -f $path ) { |
63 | $value = read_file $path; | $value = read_file $path; |
64 | } else { | } else { |
65 | confess "conf $name"; | warn "# $name missing $path\n" if $debug; |
66 | } | } |
67 | return $value; | return $value; |
68 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |