#!/usr/bin/perl
#
# dbmusic.pl v0.0.11 - Database for music albums
# Copyright (C) 2005, 2006 Stian Skjæveland
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
use CGI qw(:standard);
use strict;
print header;
print qq(
Music database - Results
);
&display_search();
print qq(
Music database - Results:
);
my $param_search=lc(param('search'));
my $param_alt=lc(param('alt'));
my $file="/home/stunix/domains/atlantiscrew.net/public_html/stian/doc/list.txt"; # You may set this to whatever fits your system.
my ($bandname,
$albumtitle,
$yearofrelease,
$genre,
$other,
$i,
$filelength,
@filelines);
my $found=0;
my $count=0;
open(DB_FILE, "<$file") || print "Cannot find file: $file
";
@filelines=;
print "You're searching for \"$param_search\" in $param_alt (Back):
";
if ($param_alt) {
&view_db();
}
close(DB_FILE);
sub view_db() {
print qq(
);
if ($param_alt eq "all") {
for ($i=0; $i<999; $i++) {
if (lc($filelines[$i])=~/$param_search/) {
&view_db_results();
if (!($filelines[$i+1])) {
last;
}
}
}
}
for ($i=0; $i<999; $i++) {
($bandname, $albumtitle, $yearofrelease, $genre, $other)=split('@', $filelines[$i]);
if ($param_alt eq "band name") {
if (lc($bandname)=~/$param_search/) {
&view_db_results();
}
}
if ($param_alt eq "album title") {
if (lc($albumtitle)=~/$param_search/) {
&view_db_results();
}
}
if ($param_alt eq "year of release") {
if (lc($yearofrelease)=~/$param_search/) {
&view_db_results();
}
}
if ($param_alt eq "genre") {
if (lc($genre)=~/$param_search/) {
&view_db_results();
}
}
if ($param_alt eq "other") {
if (lc($other)=~/$param_search/) {
&view_db_results();
}
}
if (!($filelines[$i+1])) {
last;
}
}
}
print qq(
);
if ($found ne 1) {
print "
No match. Try different keyword(s).";
} else {
$filelength=@filelines;
print "
$count match(es) of total $filelength.";
}
sub view_db_results() {
($bandname, $albumtitle, $yearofrelease, $genre, $other)=split('@', $filelines[$i]);
print "
$bandname
$albumtitle
$yearofrelease
$genre
$other ";
$count+=1;
$found=1;
}
print qq(
Copyright (C) 2005, 2006 Stian Skjæveland.
Verbatim copying and redistribution of this entire page are permitted provided this notice is preserved.
);
sub display_search() {
print qq(