#!/usr/bin/perl

print "Content-type: image/jpeg\n\r\n";
for( $i=0; $i<10; $i++){
    $data =  `/usr/local/bin/videodog -x 320 -y 240 -w 3 -u 30000 -c 25000 -b 20000 -l 30000 -S "%Y-%m-%d %H:%M:%S JST" -d /dev/video0 -j -f - 2>/dev/null`;
    if( length($data) > 100){  # ok 
	print $data;
        open FH, '>../htdocs/dmy.jpg';
        print FH $data;
	close FH;
	exit(0);
    }
    select(undef, undef, undef, 0.5); # sleep 0.5 sec
}

print `cat ../htdocs/dmy.jpg`;