#!/usr/bin/perl

use Net::HTTP;

use IO::Socket;

use IO::Select;

open(IMG_COUNT, "flickr_count.txt");

my $buff;

$phNum = <IMG_COUNT>;

close IMG_COUNT;

my $text;

my $fileName = "ohoh9.svg";

my $do_draw = 0;

my $socket = new IO::Socket::INET

			Proto		=> 'tcp',

			LocalPort	=> 6543,

			Reuse		=> 1,

			Listen		=> 90;

my $select = IO::Select->new($socket);

while(1){

open(IMG_COUNT, "> flickr_count.txt");

print IMG_COUNT "$phNum";

close IMG_COUNT;

$buff = null;

$phURL = null;

 my $s = Net::HTTP->new(Host => "www.flickr.com") || die $@;

 $myFile = "/photo_zoom.gne?id=".$phNum."&size=s";

 $s->write_request(GET => $myFile, 'User-Agent' => "Mozilla/5.0");

 my($code, $mess, %h) = $s->read_response_headers;

 while (1) {

    my $n = $s->read_entity_body($buf, 1024);

    last unless $n;

    $buff .= $buf;

 }

 print "$buff\n\n\n";

 if($buff){

 	$buff =~ /a href="http:\/\/static.flickr.com\/([^"]*)"/g;

 	if($1){

	 	$phURL = "http://static.flickr.com/".$1;

	}

 }

  print "$phURL\n";

  if($phURL eq null){

  	print "not fetching & sketching\n";

  	$do_draw = 0;

  }else{

  	print "fetching & sketching\n";

  	qx(convert -resize 600x550 -contrast -contrast -contrast -posterize 5 -blur 5 '$phURL' temp.png);

  	qx(autotrace -color-count 5 -despeckle-level 5 -input-format PNG -output-file ohoh9.svg temp.png);

  	$do_draw = 1;

  }

  $phNum++;

  print "$phNum\n";

  if($do_draw){

  print "broadcasting data...\n";

	open(FILE, "<$fileName");

	while(<FILE>){

		#foreach my $user($select->can_write(0)) {

		#	eval{$user->send($myUrls[$length]."\n")};

		#}

		undef($text);

		chomp($_);

		#select(undef, undef, undef, 0.25);

		$_ =~ /d="([^"]*)"/;

                $coordat = $1;

                chop($coordat);

                $_ =~ /fill:([^;]*);/;

                $shapeCol = $1;

                #$coordat =~ s/\s/,/g;

                $coordat =~ s/([MCL])/-$1/g;

                #$coordat =~ s/z//g;

                $coordat =~ s/^.//;

                #@coorsplit = split("-", $coordat);

                #foreach(@coorsplit){

                #       $text .= "$_*";

                #}

                #print "$coordat - $shapeCol\n\n\n";

                $text = "$coordat-$shapeCol";

                #select(undef, undef, undef, 0.25);

		my $newuse = 0;

		foreach $user($select->can_read(0)) {

			if ($user == $socket) {

				# looks like we have a new connection

				$user = $socket->accept();

				$select->add($user);

				$newuse = 1;

				#print $user->fileno.":connected\n";

			}else{

				my $data = <$user>;

				if (defined($data)) {

					if ($data =~ /user/){

						# add this to our user list

						my $i = chr(0);

						$data =~ s/\n//g;

						$data =~ s/user//;

						$data =~ s/$i//g;

						$data =~ s/\s/_/g;

						$newuse = 1;

						$users{$user->fileno} = $data;

					}else{

						#print $panseconn $data;

					}

				}else{

					delete($users{$user->fileno});

					$select->remove($user);

					$user->close;

					$newuse = 1;

				}

			}

		}

		if($newuse == 1){

			for (keys %users) {

				$tempval .= $users{$_}."\n";

			}

		}

		foreach my $user($select->can_write(0)) {

			if($text =~ /[0-n]/){

				#chop($text);

				eval{$user->send($text."\n")};

			}

		}

		select(undef, undef, undef, 0.15);

	}

	}

  sleep(1);

 }