#!/usr/local/bin/perl $| = 1; $html_header = "Content-type: text/html\n\n"; $gmtTime = `date -u +%H:%M:%S`; chop $gmtTime; $showTime = `date -u +%H%M`; chop $showTime; $gmtDay = `date -u +%Y-%m-%d`; chop $gmtDay; $styleSheet = "/home/hfradio/html/cgi-bin/styles.format"; $theMenu = "/home/hfradio/html/cgi-bin/menu2.format"; $remoteHost = $ENV{'REMOTE_HOST'}; &GetFormInput; $solarReport = ""; doSolarData(); initSomeStuff(); %colorTable = ( "0" => "Black", "1" => "Brown", "2" => "Red", "3" => "Orange", "4" => "Yellow", "5" => "Green", "6" => "Blue", "7" => "Violet", "8" => "Gray", "9" => "White" ); %colorMult = ( "0" => "1", "1" => "10", "2" => "100", "3" => "1000", "4" => "10000", "5" => "100000", "6" => "1000000", "7" => "10000000", "8" => "100000000", "9" => "1000000000", ".01" => "0.01", ".1" => "0.1" ); print $html_header; $result = ""; $one = ""; $two = ""; $three=""; if (exists ($field{'rescol'})) { $one = $field{'rescol'} + 0; $two = $field{'res2'} + 0; $three = $colorMult{$field{'res3'}}; $fdigit = $one . $two; $newValue = $fdigit * $three; $mValue = ""; if ($newValue > 1000000) { $mValue = $newValue / 1000000; $mValue = "(" . $mValue . "M Ohm)"; } elsif ($newValue > 1000) { $mValue = $newValue / 1000; $mValue = "(" . $mValue . "K Ohm)"; } $result .= "Your result is:
\n"; $result .= "$newValue $mValue with $field{'res4'}\% tolerance.
\n
\n"; } elsif (exists ($field{'resval'})) { my ($theValue) = $field{'resval'} + 0; # $three = "Black"; # $newValue = $theValue / 1; if ($theValue < 100) { $three = "Black"; $newValue = $theValue / 1; } elsif (($theValue >= 100) && ($theValue < 1000)) { $three = "Brown"; $newValue = $theValue / 10; } elsif (($theValue >= 1000) && ($theValue < 10000)) { $three = "Red"; $newValue = $theValue / 100; } elsif (($theValue >= 10000) && ($theValue < 100000)) { $three = "Orange"; $newValue = $theValue / 1000; } elsif (($theValue >= 100000) && ($theValue < 1000000)) { $three = "Yellow"; $newValue = $theValue / 10000; } elsif (($theValue >= 1000000) && ($theValue < 10000000)) { $three = "Green"; $newValue = $theValue / 100000; } elsif (($theValue >= 10000000) && ($theValue < 100000000)) { $three = "Blue"; $newValue = $theValue / 1000000; } elsif (($theValue >= 100000000) && ($theValue < 1000000000)) { $three = "Violet"; $newValue = $theValue / 10000000; } elsif (($theValue >= 1000000000) && ($theValue < 10000000000)) { $three = "Gray"; $newValue = $theValue / 100000000; } elsif (($theValue >= 10000000000) && ($theValue < 100000000000)) { $three = "White"; $newValue = $theValue / 1000000000; } $two = $newValue % 10; $one = $newValue / 10; $one =~ s/^(\d+?)\..*/$1/; $two = $colorTable{$two}; $one = $colorTable{$one}; $result .= "Your result is:
\n"; $result .= "For a value of $theValue, the color code is
\n"; $result .= "$one $two $three
\n
\n"; } print < Resistor Color Code Calculator $_style
hfradio.org


$_menu
$solarReport
Enter the Resistor Value like, '120000' for 120 K Ohms



-- or --
Enter the Bands to decode
Band One: Band Two:
Band Three: Band Four:


$result Fill out either form, to find out the value of a resistor, or the color bands for a value of a resistor.


$_menu






Click here to Vote for this site.




hi1 sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); } else { $buf=$ENV{'QUERY_STRING'}; } if ($buf eq "") { return 0 ; } else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; } } } return 1; } sub doSolarData { $solarReport = ""; $solarReport = "| Current Solar Flux: "; open (PIN, "/hfradio/html/prop/.flux.txt"); my ($line) = ""; while () { $line = $_; $line =~ tr/\n\r\t//d; $solarReport .= $line; }; close(PIN); $solarReport .= " | A-index: "; open (PIN, "/hfradio/html/prop/.aindex.txt"); while () { $line = $_; $line =~ tr/\n\r\t//d; $solarReport .= $line; }; close(PIN); $solarReport .= " |
\n| K-index: "; open (PIN, "/hfradio/html/prop/.kindex.txt"); while () { $line = $_; $line =~ tr/\n\r\t//d; $solarReport .= $line; }; close(PIN); $solarReport .= " | Aurora: "; open (PIN, "/hfradio/html/prop/.aurora_level.txt"); while () { $line = $_; $line =~ tr/\n\r\t//d; $solarReport .= $line; }; close(PIN); $solarReport .= " | more...\n"; } sub initSomeStuff { open (STYLE, "$styleSheet") || die "Could not read $styleSheet: $!\n"; $_style = ""; while (