Parent Directory | Revision Log | Patch
revision 156 by dpavlin, Thu Aug 6 15:15:53 2009 UTC | revision 164 by dpavlin, Thu Aug 6 18:43:55 2009 UTC | |
---|---|---|
# | Line 28 sub conf { | Line 28 sub conf { |
28 | write_file $path, $default; | write_file $path, $default; |
29 | warn "default $path = $default"; | warn "default $path = $default"; |
30 | $value = $default; | $value = $default; |
31 | } else { | } elsif ( -e $path ) { |
32 | $value = read_file $path if -e $path; | if ( -l $path ) { |
33 | $value = readlink $path; | |
34 | $value =~ s{.*/([^/]+)$}{$1}; | |
35 | } else { | |
36 | $value = read_file $path; | |
37 | } | |
38 | } | } |
39 | return $value; | return $value; |
40 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |