#!/usr/bin/perl require "../cgi-lib.pl"; ReadParse(*params); %patterns = ( solid => { name => 'Solid', }, dots => { name => 'Dots', }, lines => { name => 'Stripes', }, diag => { name => 'Diaogonal Stripes', }, ); %colors = ( ltred => { bg => 1, rgb => '255,127,127', name => 'Light Red', }, ltorange => { bg => 1, rgb => '255,191,127', name => 'Light Orange', }, ltyellow => { bg => 1, rgb => '255,255,127', name => 'Light Yellow', }, ltgreen => { bg => 1, rgb => '127,255,127', name => 'Light Green', }, ltcyan => { bg => 1, rgb => '127,255,255', name => 'Light Cyan', }, ltblue => { bg => 1, rgb => '127,127,255', name => 'Light Blue', }, ltmag => { bg => 1, rgb => '255,127,255', name => 'Light Magenta', }, red => { bg => 1, fg => 1, rgb => '191,0,0', name => 'Red', }, orange => { bg => 1, fg => 1, rgb => '233,127,0', name => 'Orange', }, yellow => { bg => 1, fg => 1, rgb => '191,191,0', name => 'Yellow', }, green => { bg => 1, fg => 1, rgb => '0,191,0', name => 'Green', }, cyan => { bg => 1, fg => 1, rgb => '0,191,191', name => 'Cyan', }, blue => { bg => 1, fg => 1, rgb => '0,0,191', name => 'Blue', }, mag => { bg => 1, fg => 1, rgb => '191,0,191', name => 'Magenta', }, dkred => { bg => 1, fg => 1, rgb => '127,0,0', name => 'Dark Red', }, dkorange => { bg => 1, fg => 1, rgb => '191,63,0', name => 'Dark Orange', }, dkyellow => { bg => 1, fg => 1, rgb => '127,127,0', name => 'Dark Yellow', }, dkgreen => { bg => 1, fg => 1, rgb => '0,127,0', name => 'Dark Green', }, dkcyan => { bg => 1, fg => 1, rgb => '0,127,191', name => 'Dark Cyan', }, dkblue => { bg => 1, fg => 1, rgb => '0,0,127', name => 'Dark Blue', }, dkmag => { bg => 1, fg => 1, rgb => '127,0,127', name => 'Dark Magenta', }, white => { ft => 1, bg => 1, rgb => '255,255,255', name => 'White', }, black => { ft => 1, fg => 1, rgb => '0,0,0', name => 'Black', }, ); if($params{fg_rgb} =~ /(\d+),(\d+),(\d+)/) { ($params{fgr},$params{fgg},$params{fgb}) = ($1,$2,$3); } if($params{bg_rgb} =~ /(\d+),(\d+),(\d+)/) { ($params{bgr},$params{bgg},$params{bgb}) = ($1,$2,$3); } if($params{fnt_rgb} =~ /(\d+),(\d+),(\d+)/) { ($params{fntr},$params{fntg},$params{fntb}) = ($1,$2,$3); } print "Content-Type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
Owner"; print "\n"; print "
Description"; print "\n"; print "
Dimensions"; print "\n"; print " x "; print "\n"; print "\n"; print "
Background Color"; print " ,\n"; print " ,\n"; print " (R,G,B)\n"; print " -or- "; print "\n"; print "
Foreground Color"; print " ,\n"; print " ,\n"; print " (R,G,B)\n"; print " -or- "; print "\n"; print "
Font Color"; print " ,\n"; print " ,\n"; print " (R,G,B)\n"; print " -or- "; print "\n"; print "
Pattern\n"; print "\n"; print "
\n"; print "
\n"; if($params{width} =~ /\d+/ || $params{height} =~ /\d+/) { my($w,$h); $w = ($params{scale} eq "32x32") ? 32*$params{width} : $params{width}; $h = ($params{scale} eq "32x32") ? 32*$params{height} : $params{height}; print "
\n"; } print "\n"; print "\n"; sub url_safe { my($val) = @_; $val =~ s/([^A-Za-z0-9,\.\:\-\_ ])/"%".sprintf("%02x",ord($1))/ges; $val =~ s/ /\+/gs; return $val; } sub value_safe { my($val) = @_; $val =~ s/\"/"/gsi; return $val; }