Parent Directory | Revision Log | Patch
revision 276 by dpavlin, Thu Aug 20 17:36:17 2009 UTC | revision 500 by dpavlin, Mon May 3 15:15:08 2010 UTC | |
---|---|---|
# | Line 30 sub iso { | Line 30 sub iso { |
30 | my $dir = "$server::base_dir/iso"; | my $dir = "$server::base_dir/iso"; |
31 | mkdir $dir unless -e $dir; | mkdir $dir unless -e $dir; |
32 | ||
33 | my $file = $1 if $url =~ m{/([^/]+\.iso$)}i; | my $file = $1 if $url =~ m{/([^/]+\.iso)}i; |
34 | die "can't find iso file in $url" unless $file; | die "can't find iso file in $url" unless $file; |
35 | ||
36 | my $iso = "$dir/$file"; | my $iso = "$dir/$file"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |