#!/usr/bin/perl

# Origional:
# Test program to decode the multipart-replace stream that
# ZoneMinder sends.  It's a hack for this stream only though
# and could be easily improved.  For example we ignore the
# Content-Length.
#
# Mark J Cox, mark@awe.com, February 2006
#
# Added support for multiple "monitors"... still in progress


use Tk;
use Tk::X11Font;
use Tk::JPEG;
use LWP::UserAgent;
use MIME::Base64;
use IO::Socket;
use Parallel::ForkManager;

my $fm = new Parallel::ForkManager(4);

my $host = "someipaddress";
@links=(
  ["/cgi-bin/nph-zms?mode=jpeg&monitor=1&scale=100&maxfps=5&user=web&pass=webuser","1"],
  ["/cgi-bin/nph-zms?mode=jpeg&monitor=2&scale=100&maxfps=5&user=web&pass=webuser","2"],
  ["/cgi-bin/nph-zms?mode=jpeg&monitor=3&scale=100&maxfps=5&user=web&pass=webuser","3"],
  ["/cgi-bin/nph-zms?mode=jpeg&monitor=4&scale=100&maxfps=5&user=web&pass=webuser","4"]
);

my $stop = 0;
my $mw = MainWindow->new(title=>"Cams");
$mw->minsize( qw(640 480));
my $top = $mw->Frame()->pack(-side=>'top');
my $bottom = $mw->Frame()->pack(-side=>'bottom');

my $photo1 = $top->Label()->pack(-side => 'left');
my $photo2 = $top->Label()->pack(-side => 'right');
my $photo3 = $bottom->Label()->pack(-side => 'left');
my $photo4 = $bottom->Label()->pack(-side => 'right');

$mw->Button(-text=>"Stop",-command => sub { $stop=1; })->pack();

foreach my $itemarray (@links) {
   $fm->start and next;
   print "Start Loop \n";
   my ($url,$zone) = @$itemarray;
   getdata($url,$zone);
   $fm->finish;
}
$fm->wait_all_children; 
 

MainLoop;

sub getdata {
    my $url = shift;
    my $id = shift;
    return unless ($stop == 0);
    my $sock = IO::Socket::INET->new(PeerAddr=>$host,Proto=>'tcp',PeerPort=>80,);
    return unless defined $sock;
    $sock->autoflush(1);
    print $sock "GET $url HTTP/1.0\r\nHost: $host\r\n\r\n";
    my $status = <$sock>;
    die unless ($status =~ m|HTTP/\S+\s+200|);

    my ($grab,$jpeg,$data,$image,$thisbuf,$lastimage);
    while (my $nread = sysread($sock, $thisbuf, 4096)) {
        $grab .= $thisbuf;
        if ( $grab =~ s/(.*?)\n--ZoneMinderFrame\r\n//s ) {

            $jpeg .= $1;
            $jpeg =~ s/--ZoneMinderFrame\r\n//; # Heh, what a
            $jpeg =~ s/Content-Length: \d+\r\n//; # Nasty little
            $jpeg =~ s/Content-Type: \S+\r\n\r\n//; # Hack

            $data = encode_base64($jpeg);
            undef $jpeg;
            eval {
                $image = $mw->Photo(-format=>"jpeg",-data=>$data);
            };
            undef $data;
            eval {
                print "Zone $id\n";
                if ($id == 1) {
                  $photo1->configure(-image=>$image);
                } elsif ($id == 2 ) {
                  $photo2->configure(-image=>$image);
                } elsif ($id == 3 ) {
                  $photo3->configure(-image=>$image);
                } elsif ($id == 4 ) {
                  $photo4->configure(-image=>$image);
                }
            };
            $lastimage->delete if ($lastimage); #essential as Photo leaks!
            $lastimage = $image;
        }
        $jpeg .= $1 if ($grab =~ s/(.*)(?=\n)//s);
        last if $stop;
        $mw->update;
    }
    $stop = 0;
}