#!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 ""; if ($ACTION eq "remove") { delete $ABCS{$ARTIST}; } elsif ($ACTION eq "add") { $ABCS{$ARTIST} = $ABC.".abc" } print "\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;