Parent Directory | Revision Log | Patch
revision 67 by dpavlin, Thu Jul 30 21:31:30 2009 UTC | revision 68 by dpavlin, Thu Jul 30 22:43:48 2009 UTC | |
---|---|---|
# | Line 14 our $dir = "$server::base_dir/tftp"; | Line 14 our $dir = "$server::base_dir/tftp"; |
14 | ||
15 | sub path { | sub path { |
16 | my $glob = shift; | my $glob = shift; |
17 | my $path = glob("$dir/$glob"); | my $path = (glob("$dir/$glob"))[0]; |
18 | die "can't find anything for $dir/$glob" unless $path; | die "can't find anything for $dir/$glob" unless $path; |
19 | warn $path; | warn $path; |
20 | $path =~ s{^$dir}{}; | $path =~ s{^$dir}{}; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |