#!/usr/bin/perl /home/26774/data/bin/perlwrapper
use CGI;
my $cgi = new CGI();
my $username = $cgi->param('username');
my $artist = $cgi->param('artist') ? 'artists' : 'tags';
print $cgi->header(-status=>404) and exit unless $username =~ /^[A-Za-z0-9\-_\%]+$/ && -e "../data/svgs/$username-$artist.svg";
my $page = <<__FILE__;
Wave graph showing $artist for $username
Original SVG
Powered by the Tinyline applet.
__FILE__
print $cgi->header('text/html');
print $page;
exit;