#!/usr/bin/perl

$desc = "SHIM, TAPPET" ;
$list = "$7.04";
$service = "$5.34";
$partsfish = "$6.45";


print ("Content-type: text/html\n\n");   # the standard html header


print <<HEAD ;

<html>
<head>
<title>valve shim part numbers</title>
</head>
<body>
<h3>Valve shim part numbers</h3>
7.48mm diameter shims<br>
<p>
These numbers came from the  '98 Honda CBR 600 F3 partsfiche, and they'll work for
the following bikes:
<p>
HONDA<br>
CBR600F2/F3/F4, CBR600RR, CBR1000RR,  CBR1100XX, CBR900/929/954, CB919,
CB1, RC30, RC45, 750&nbsp;Magna&nbsp;94&ndash;00, VFR750, VFR800, ST1100, GL1800, 
CRF250R/X, NX250
<p>
SUZUKI<br>
GSXR600 '93-'03, GSXR750 '93-'02, RF900, GSXR1000, GSXR1100 '93-'98
<p>
YAMAHA<br>
YZ250F, WR250F, FZR400, FZR600, YZF600, YZF-R6, YZF750, FZ1, FZR1000,  
GTS1000, YZF1000, YZF-R1


<!--
I'm confident 
that they're the same for the F2, F3, F4, 600rr, 900rr, 929rr, 954rr, GSXR600, 750, 1000, and 
based on a mailing list, also for the FZR400, 600, 1000 ('89+), YZF 600, 750, 1000
-->
<p>

They probably work with lots and lots of other bikes too, but check first.
<p>
<table>
<tr>
<td>List price:<td>&nbsp;&nbsp;<td>\$7.04
<tr>
<td>Typical price:<td>&nbsp;&nbsp;<td>\$5.50
</table>
<table border=1 cellpadding=3 bgcolor="#FFDDDD">
<tr>
<th width=150>Part number<th>thickness<th>printed<br>number
HEAD

for $shim (`cat shims.txt`) {
($part, $thick, $printed ) = split  /	/, $shim ;
chomp $part;
chomp $thick;
chomp $printed;

print <<TABLE ;

<tr><td align=center>$part<td align=center>&nbsp;&nbsp;$thick mm&nbsp;&nbsp;<td align=center>&nbsp;&nbsp;$printed&nbsp;&nbsp;

TABLE

}

print <<END ;

</table>
</body>
</html>



END

