#!/usr/bin/perl require "../cgi-lib.pl"; ReadParse(*params); $params{roll} ||= "3d6-1"; $params{iters} ||= 10000; $params{maxv} ||= 0.25; $params{bar_width} ||= 5; $params{space_width} ||= 1; print "Content-Type: text/html\n\n"; print "\n"; print "
\n"; print "Roll:
\n"; print "Iterations:
\n"; print "Max Value (0-1):
\n"; print "Bar Width:
\n"; print "Spacer Width:
\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; sub url_safe { my($v) = @_; $v =~ s/\%/\%25/gs; $v =~ s/([^A-Za-z0-9\.\,\:\_\%])/"%".sprintf("%02lx",ord($1))/ge; return $v; }