<%args> $recdir <%once> my $logger = Log::Log4perl->get_logger('rbc.tools.m3u'); $logger->debug("call once block"); <%perl> # my $smb_base = 'smb://' . $r->notes('CFG_ip_address') . $r->notes('CFG_smb_path'); my $smb_base = $r->notes('CFG_smb_base'); $smb_base =~ s/\$ip_address/$r->notes('CFG_ip_address')/e; chomp($smb_base); $logger->debug("set base path: $smb_base"); $recdir = uri_unescape( $recdir ); ## prototype '#' char problem hack ... oerks $recdir =~ s/___H___/#/g; $recdir =~ s/___A___/'/g; $recdir =~ s/___U___/&/g; my @Files; my $baserec = $r->notes('CFG_smb_media_path'); my $media_base = $r->notes('CFG_media_base' ); if ( -d $recdir ) { @Files = grep { /\d{3}.vdr/ } glob( "$recdir/*.vdr" ); } else { if( $recdir =~ /$media_base/) { $logger->debug("media base map: $media_base -> $baserec"); $baserec = $media_base; } push(@Files,$recdir); } map { s/^$baserec\/*/$smb_base/; print "$_\n"; } @Files;