ZoneMinder Forums

Hi,

I just wanted to let you all know I've had success with the IP Kamera 9060.

This camera works using the follwoing hacked Perl script.


#!/usr/bin/perl


use IO::Socket;

my $iphost="192.168.11.45:80";
my $frame_count=25;
my $image_filename="ip_Kamera_9060";

my $no_print_data;
my $target_path='/cgi-bin/Stream?Video';
my $debug=0;

sub main {
my ($heraddr);

RECONNECT:
$t=0;

print STDERR "connecting to $iphost\n";
do {

$F = IO::Socket::INET->new(
PeerAddr => $iphost,
Proto => "tcp",
Type => SOCK_STREAM,
Timeout => 10) ;

$t++;

die ("Socket fail : $!") if $t > 10;

} while( $F == undef );

print STDERR "Connnected\n";

$qu = "GET $target_path HTTP/1.0\r\n" .
"Accept: */*\r\n" .
"Keep-Alive: 300\r\n" .
"Connection: keep-alive\r\n" .
"Cookie: webcamPWD=RootCookie00000\r\n" .
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\r\n" .
"\r\n";

print $F $qu;
#print $D $qu;


while ($j = read($F, $data, 20) ) {

#print " j = $j\n";
@a = unpack('v10', $data);

if ($debug) {
for $i ( 0 .. $#a ) {
#print $D "$i = $a[$i]\n";
print "$i = $a[$i]\n";
}
}

# make sure er got pre-image header.
unless ($a[0] == 10794 && $a[3] && $a[4] && $a[5]) {
close($F);
print STDERR "bad header image $image_filenam\n";
goto RECONNECT ;
}

#print STDERR "$image_filename : Size=$a[1]\tWidth=$a[3]\tHeight=$a[4],Compression-Level=$a[5]\n";

$j = read($F, $data, $a[1]) or die ("bad read: $!");


open(J, ">$image_filename.JPG");
print J $data;
close(J);

# $image_filename++;

#last unless --$frame_count;
}

}

&main;
exit;

Good. Thanks for letting us know and posting your script

I've just bought the kit version of this (9060AK) and your script works a treat. Cheers!

Where can I get these cameras in the US?

What is the Lux rating of this camera? I found the manufucturer's website, but it doesn't have alot of spec.

Google/froogle wasn't much help in finding this in the us. I'm feeling retarded today.

Here is a site I found by chance in the US ... a lot more expensive though..

http://www.arucaelectronics.com/shop/ipcamera9060Ak.php

Hi
What directory do you need to save this script in?

Thanks

hi all.
How to use this script? I'm running ZM-1.22.3
Recently I've bought Aviosys IP Kamera 9060A-SL. Does any1 made it work with topic script?

Sounds great. This one is just the one I need (cost\quality). thx

What's the meaning of the "10794" value in the first shortint? Is this a known format or proprietary?

We're trying to make it work here. We need to send user/password, which we have done by sending it in http authentication headers.

Also, it seems that the 10794 is offset by 40 bytes in the stream. Any hints?

Hello, i have this camera, where does we do this script? Why this script is necesary? Why this cam dont work directly?

Does this look like the same camera? Hows it going with them? They work ok? http://www.geeks.com/details.asp?invtid ... US&cat=VID[/url]