#!/usr/bin/perl print "Content-type: text/html\n\n"; use CGI qw(param); $name = param('list'); open(DATA,"palmdevice.txt"); #flock(DATA,2); @database=; #flock(DATA,8); close(DATA); chomp(@database); print qq( Palm OS Device :: Capsules! http://capsules.no-ip.com
กำลังรวบรวมให้มากที่สุด ฮ่าๆ ใครอยากช่วยก็ช่วยได้ค้าบบ แต่คงไม่มี ฮ่าๆ เพราะ spec บางอย่างมันหาไม่ได้ ถ้าไม่มีเครื่องจริงๆ ครั้นจะให้ซื้อทุกเครื่องก็ป่วยละ -_- ให้ครบก่อนค่อยทำให้มัน compare ได้ เหอ-เหอ ...
10-pa-koRn - ic74175 at yahoo.co.uk - 16062005 - 0805pm
= 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
); #################### &list_all(); #################### print qq( ); #####จบบบบบ######### sub list_all { $loop=0; $company=""; # while (($database[$loop] ne "") && ($loop<=30)) { while ($database[$loop] ne "") { @file=split(/\;/,$database[$loop]); if ($company ne $file[0]) { $company=$file[0]; print qq(
$company
); # $file[10] = ~s{160\*160\,}{ }gi; # $file[10] = ~s{320\*320\,}{ }gi; # $file[10] = ~s{320\*480\,}{ }gi; # $file[10] = ~s{480\*320\,}{ }gi; print qq( ); if ($file[10]=~/160\*160\,/) { $file[10]=~s/160\*160\,//g; print qq( ); } elsif ($file[10]=~/320\*320\,/) { $file[10]=~s/320\*320\,//g; print qq( ); } elsif ($file[10]=~/320\*480\,/) { $file[10]=~s/320\*480\,//g; print qq( ); } elsif ($file[10]=~/480\*320\,/) { $file[10]=~s/480\*320\,//g; print qq( ); } else { print qq( ); } # print qq( ); # อันนี้เป็น connectivity ทั้งหมด print ""; print qq( ); print ""; print qq( ); } else { # $file[10] = ~s{160*160\,}{ }gi; # $file[10] = ~s{320\*320,}{ }gi; # $file[10] = ~s{320\*480\,}{ }gi; # $file[10] = ~s{480\*320\,}{ }gi; print qq( ); if ($file[10]=~/160\*160\,/) { $file[10]=~s/160\*160\,//g; print qq( ); } elsif ($file[10]=~/320\*320\,/) { $file[10]=~s/320\*320\,//g; print qq( ); } elsif ($file[10]=~/320\*480\,/) { $file[10]=~s/320\*480\,//g; print qq( ); } elsif ($file[10]=~/480\*320\,/) { $file[10]=~s/480\*320\,//g; print qq( ); } else { print qq( ); } # print qq( ); # อันนี้เป็น connectivity ทั้งหมด print ""; print qq( ); print ""; print qq( ); } $loop++; } #while } sub search { $loop=0; $check=0; while ($database[$loop] ne "") { @file=split(/\;/,$database[$loop]); if (($y_intania ne "") && ($name eq "")) { if ($file[0]==$y_intania) {&printt(); $check++;} } elsif (($y_intania eq "") && ($name ne "")) { if (($file[3] =~/$name/)) {&printt(); $check++;} }else { if (($file[3] =~/$name/) && ($file[0]==$y_intania)) { &printt(); $check++; } } $loop++; } #while if ($check==0) { print "
Model CPU OS Memory Screen Extra key. Expansion Connectivity Wireless Multi-media Other
$file[1] $file[3] $file[4] $file[5]/$file[6]/$file[7]$file[10]$file[10]$file[10]$file[10]$file[10]$file[10]$file[12] $file[13]$file[14]$file[14]"; if ($file[15] == 1) { print qq( ); } if ($file[16] eq "1.1") { print qq( ); } if ($file[17] eq "IEEE802.11b") { print qq( ); } print " $file[18]"; if ($file[20] == 1) { print qq( ); } if ($file[21] == 1) { print qq( ); } print " $file[24]
$file[1] $file[3] $file[4] $file[5]/$file[6]/$file[7]$file[10]$file[10]$file[10]$file[10]$file[10]$file[10]$file[12] $file[13]$file[14]$file[14]"; if ($file[15] == 1) { print qq( ); } if ($file[16] eq "1.1") { print qq( ); } if ($file[17] eq "IEEE802.11b") { print qq( ); } print " $file[18]"; if ($file[20] == 1) { print qq( ); } if ($file[21] == 1) { print qq( ); } print " $file[24]


ไม่พบรายชื่อหรือรุ่นที่ท่านหา~~!!"; } else { print ""; } } #sub search() ##################################### sub head{ print qq( ); } ###############################
Company ID Model CPU Speed OS Memory (MB) ROM (MB) ext Memory (MB) Storage heap (kB) Dynamic heap (kB) Screen Screen Size Extra keys Expansion Connectivity IrDA Bluetooth WLAN Wireless++ Speaker MP3 Voice Recorder Size Weight Others Web