From: Alan Sondheim <sondheim@panix.com>
To: _arc.hive_@lm.va.com.au
Subject: radio objects (thanks to Florian Cramer)
Date: Sat, 28 Aug 2004 15:17:58 -0400 (EDT)




radio objects (thanks to Florian Cramer)


unstable.ob # list-specific "ob .ob " line prefixes
unstable.ob # "To.ob ", "Date.ob " and "ob .ob " and filter out
unstable.ob elsif (/^ob .ob /) {
unstable.ob s/^ob .ob [\s]+/ob .ob  /;
unstable.ob $ob  =~ s/^ob .ob  //;
unstable.ob ob /radio playlist.
unstable.ob ob /radio playlist.
unstable.ob # non-Nettime ob  line prefixes
unstable.ob push @ob _line, $_;
unstable.ob # play later singer & ob  info to database
unstable.ob $ob  = $ob _line[$#ob _line];
unstable.ob $ob  =~ s/^ob .ob  //;
unstable.ob $database_record = &detab($speaker)."\t".
&detab($digest_volume)."\t".&detab($pogram_number).
"\t".&detab($singer)."\t".&detab($address)."\t".&detab($ob ).
"\t".&detab("$speaker_dir/$lp_record")."\n";
unstable.ob play $ob _line[$x], "\n";
unstable.ob play 45_FILE '<li><a href="',$lp_records[$x],'" name="',
($x+1), '">',&txt2entities($ob _line[$x]), "</a><br>\n";
unstable.ob $ob  =~ s/^ob .ob  //;


__