#!/usr/bin/perl use CGI ':standard'; use CGI::Carp qw(fatalsToBrowser); open FILE, "; close (FILE); $dirtoget = "settings/."; opendir(IMD, $dirtoget); @thefiles = readdir(IMD); closedir(IMD); $counter = -1; foreach $afile (@thefiles) { if (($afile ne ".") && ($afile ne "..") && ($afile ne "Default.txt")) { $counter++; @filesplit = split /\./,$afile; $options[$counter] = $filesplit[0]; if ($filesplit[0] eq $default) { $id = $counter;} } } $aid = param("id"); if ($aid ne "") {$id = $aid;} $convertchoice = qq{}; $filestring = "; close (FILE); $counter = -1; foreach $aline (@lines) { @linebits = split /,/, $aline; $counter++; $sliders[$counter] = $linebits[0]; $minimum{$sliders[$counter]} = $linebits[1]; $maximum{$sliders[$counter]} = $linebits[2]; $conversionf{$sliders[$counter]} = $linebits[3]; $conversiont{$sliders[$counter]} = $linebits[4]; } $counter = -1; foreach $aslider (@sliders) { $counter++; ###styles if ($counter == 0) { $awidth = 400; } else { $awidth = 400 * (($maximum{$sliders[$counter]} - $minimum{$sliders[$counter]}) / ($maximum{$sliders[0]} - $minimum{$sliders[0]})); } $bwidth = $awidth . "px"; $styles = $styles . "\#slider-$counter \{ width: $bwidth; \}\n"; ###trows if ($counter == 0) {$checkthing = 1;} else {$checkthing = 2;} $trows = $trows . qq{   $sliders[$counter]
  }; $acode = "s$counter.getValue()"; if ($counter == 0) { $bcounter = -1; $toinclude = qq{document.getElementById("in").value = 0;\n}; foreach $bslider (@sliders) { $bcounter++; $bcode = $conversiont{$sliders[$bcounter]}; $ccode = $bcode; $ccode =~ s/x/$acode/; if ($bcounter != 0) { $toinclude = $toinclude . qq{s$bcounter.setValue(parseInt($ccode));\n}; } } $toinclude = $toinclude . qq{document.getElementById("in").value = -1;\n}; } else { $bcode = $conversionf{$sliders[$counter]}; $ccode = $bcode; $ccode =~ s/x/$acode/; $toinclude = qq{if (document.getElementById("in").value == -1) }; $toinclude = $toinclude . "{"; $toinclude = $toinclude . qq{s0.setValue(parseInt($ccode));}; $toinclude = $toinclude . "}"; } $trows =~ s/\[INCLUDE\]/$toinclude/; $toinclude = ""; } ### Output page print "Content-type: text/html\n\n"; print qq{ Igor's Converter

Igor's Converter

$trows
 Converting$convertchoice  
$savethis };