1 files changed, 33 insertions, 0 deletions
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 "<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;