#!/usr/bin/perl print "Content-type: text/html\n\n"; use CGI qw(param); @name = param('productlist[]'); open(DATA,"palmdevice.txt"); #flock(DATA,2); @database=; #flock(DATA,8); close(DATA); chomp(@database); print qq( Palm OS Device Comparison ::
); ########################################################## if (!@name) { &form(); } else { &compare(); } ########################################################## print qq(
= Low-Resolution 160px*160px
= High-Resolution 320px*320px
= High-Resolution plus 320px*480px (Portrait)
= High-Resolution plus 480px*320px (Landscape) 		= IrDa - Infrared
= Bluetooth 1.1
= Wireless LAN IEEE802.11b
= MP3 capability
= Recording capability
); ########################################################## sub compare { $no=0; while ($name[$no] ne "") { $no++; #print "$no

" } open(DATA,"compare_list.txt"); #flock(DATA,2); @compare_list=; #flock(DATA,8); close(DATA); chomp(@compare_list); print qq( ); $compare_count=0; while ($compare_list[$compare_count]) { my(@compare_xx) = split(/ /,$compare_list[$compare_count]); if ($compare_xx[1] eq "") { print qq ( ); } else { print qq ( ); } for ($i=0;$i<($no) ;$i++) { my(@detail_device) = split(/\;/,$database[$name[$i]]); #print "@detail_device"; if ($compare_xx[1] eq "") { print qq( ); } elsif ($compare_xx[1] eq "999") { if ($detail_device[26] ne "") { $pic_path="model/$detail_device[0]/$detail_device[26].gif"; print qq( ); } else { &none(); } } elsif ($compare_xx[1] == 1) { print qq( ); } elsif ($compare_xx[1] == 2) { print qq( ); } elsif ($compare_xx[1] == 15) { if ($detail_device[$compare_xx[1]] == 1) { print qq( ); } else { &none(); } } elsif ($compare_xx[1] == 16) { if ($detail_device[$compare_xx[1]] eq "1.1") { print qq( ); } else { &none(); } } elsif ($compare_xx[1] == 17) { if ($detail_device[$compare_xx[1]] eq "IEEE802.11b") { print qq( ); } else { &none(); } } elsif ($compare_xx[1] == 20) { if ($detail_device[$compare_xx[1]] eq "1") { print qq( ); } else { &none(); } } elsif ($compare_xx[1] == 21) { if ($detail_device[$compare_xx[1]] eq "1") { print qq( ); } else { &none(); } } elsif ($compare_xx[1] == 25) { if ($detail_device[$compare_xx[1]] ne "") { print qq( ); } else { &none(); } } else { print qq( ); } } $compare_count++; } print "
$compare_xx[0]
$compare_xx[0]$detail_device[$compare_xx[1]-1]
$detail_device[$compare_xx[1]]		$detail_device[$compare_xx[1]] $detail_device[$compare_xx[1]+1]Link $detail_device[$compare_xx[1]]
"; } ########################################################## sub none { print qq( ); } ########################################################## sub form { print qq(
); $n=0; $company=""; $id=0; while ($database[$n] ne "") { my(@file) = split(/\;/,$database[$n]); if ($company ne $file[0]) { $company=$file[0]; $id++; if ($n!=0) { print qq(\n); } print qq( • $file[0]
\n); print qq(
); } ##########################################################