diff options
| -rw-r--r-- | lib/MDV/Distribconf.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm index 6eb5fb5..52fe2d3 100644 --- a/lib/MDV/Distribconf.pm +++ b/lib/MDV/Distribconf.pm @@ -2,7 +2,7 @@ package MDV::Distribconf; # $Id$ -our $VERSION = '3.02'; +our $VERSION = '3.03'; =head1 NAME @@ -473,6 +473,14 @@ sub getpath { } } +=head2 $distrib->getmediapath($media, $var) + +This function does the same than getpath except it return the path proper +to the media for files having doble location (index for example). + +=cut + + sub getmediapath { my ($distrib, $media, $var) = @_; my %files = ( @@ -500,6 +508,12 @@ sub getfullpath { my $path = $distrib->getpath(@_) or return; return $distrib->getpath(undef, 'root') . '/' . $path; } +=head2 $distrib->getfullmediapath($media, $var) + +This function does the same than getpath except it return the path proper +to the media for files having doble location (index for example). + +=cut sub getfullmediapath { my $distrib = shift; |