#!/usr/bin/env ruby

# Script to extract images from the Hawking HNC230G
# 
# Copyright (C) Tim Haynes 
# HNC230G{at}stirfried.vegetable.org.uk    http://pig.sty.nu/
#
# Redistributable under the terms of the GNU Public License: see
# <http://www.gnu.org/copyleft/gpl.html>
#
# Requires ruby, imagemagick
#

nopics=ARGV[1] || "1"
nopics=nopics.to_i

require 'socket'
require 'RMagick'

xsize,ysize=640,480

puts "Connecting"

s=TCPSocket.new('buffalo', 4321)

nopics.times { |n|

  puts "Requesting data"
  s.puts("0110")

  len=s.read(2).reverse.unpack("v")[0]
  2.times {s.getc }

  puts "Len: #{len}"
  jpeg=s.read(len)

  puts "Getting image"

  img=Magick::Image.from_blob(jpeg)[0];

  puts "Saving image"
  img.write("foo-#{n}.jpg")

}