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 |