blob: 409b822b989763b6c321b9b913f48096d39f779d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!c:/perl/bin/perl
use CGI;
use strict;
use URI::Escape;
use HTML::Entities ();
use Globals;
use Globals qw($delim);
my $QUERY = CGI::new();
my $ACTION = $QUERY->param( "action" );
my $ARTIST = makeNice($QUERY->param( "artist" ));
my $ABC = makeNice($QUERY->param( "abc" ));
my %ABCS = getABCs();
print "<html><head>";
if ($ACTION eq "remove") {
delete $ABCS{$ARTIST};
}
elsif ($ACTION eq "add") {
$ABCS{$ARTIST} = $ABC.".abc"
}
print "</head><script>location.replace(document.referrer);</script></html>\n";
open ( ABC, ">../inventory/abcs.txt" );
my @abckeys = sort {uc($a) cmp uc($b)} keys %ABCS;
my $key;
foreach $key (@abckeys) {
print ABC $key.$delim.$ABCS{$key}."\n";
}
close ABC;
|
