From fa170afd817648f306e322802ca85b6abbd37f74 Mon Sep 17 00:00:00 2001 From: unknown Date: Tue, 21 Jun 2011 16:33:26 +0200 Subject: Initial commit --- cgi-bin/abcmanager.plx | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 cgi-bin/abcmanager.plx (limited to 'cgi-bin/abcmanager.plx') diff --git a/cgi-bin/abcmanager.plx b/cgi-bin/abcmanager.plx new file mode 100644 index 0000000..409b822 --- /dev/null +++ b/cgi-bin/abcmanager.plx @@ -0,0 +1,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 ""; + +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; -- cgit v1.2.3