#!/usr/local/bin/perl ############################################################################## sub format_string { $string = ""; @list = split(/,/, $_[0]); while (@list >= 3) { $_ = shift @list; $string .= "$_, "; } if (@list == 2) { $_ = shift @list; $string .= "$_ och "; } $_ = shift @list; $string .= "$_"; return $string; } $searchfor = $ARGV[0] || die "Please specify song name!\n"; open (RECNAMES, "../texter/recnames.dat") || die "Can't open record names file!\n"; while () { chop; ($key, $value) = split(/\t/); $recordnames{$key} = $value; } open (DATA, "../texter/album.dat") || die "Can't find data file!\n"; while () { chop; last if /^$searchfor\t*/o; } die "Error: Song '$searchfor' not found!" unless /^$searchfor\t*/; ($key, $title, $records, $year, $special) = split(/\t/); @records = split(/,/, $records); $_ = shift @records; $recordstring = "" . $recordnames{$_} . ""; while (@records) { $_ = shift @records; $recordstring .= ", " . "" . $recordnames{$_} . ""; } $text = "Anders Falk"; $music = "Tomas Adolphson,Anders Falk"; $copy = "AIR Chrysalis Scandinavia AB"; @specials = split(/;/, $special); while (@specials) { $_ = shift @specials; $text = $' if /^text:/; $copy = $' if /^copy:/; $music = $' if /^musik:/; } $musicstring = &format_string($music); $textstring = &format_string($text); $blinkar_bla = ($key =~ "blinkar_bla") ? " $\"\"$ " : ""; open (TEXTFILE, "../texter/$key.text"); @songtext = ; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "$title\n"; print "\n"; print "\n"; print "\n"; print "$blinkar_bla

$title

\n"; print "\n"; print "

Återfinns på: $recordstring
\n"; print "Musik: $musicstring
\n"; print "Text: $textstring

\n"; print "\n"; print "

@songtext

\n"; print "\n"; print "

$\"A-F$ \n"; print " $\"Upp$ \n"; print " $\"Skriv$ \n"; print "

\n"; print "\n"; print "\n"; print "\n";