All pastes #767066 Raw Edit

Untitled

public text v1 · immutable
·published 2007-11-09 13:11 UTC
rendered paste body
use MDV::Distribconf;

my $distrib = MDV::Distribconf->new('/mnt/BIG/dis/2008.0/i586');
$distrib->load;

my $media = ($distrib->listmedia)[1];

warn $distrib->getfullpath($media, 'hdlist'), "\n";
warn $distrib->getfullpath($media, 'pubkey'), "\n";

# gives:
# /mnt/BIG/dis/2008.0/i586/media/media_info/hdlist_main_updates.cz
# /mnt/BIG/dis/2008.0/i586/media/media_info/pubkey_main updates

# note the space in "pubkey_main updates"