#!/usr/bin/perl -w
use strict;
use CGI;
my @tickets = (	[ "GOOG", 533.37 ], [ "MSFT",  47.59 ],	[ "IBM",  162.99 ],	[ "AAPL", 114.12 ],	[ "MSFT",  47.29 ],	[ "GOOG", 533.95 ],	[ "IBM",  163.78 ],	[ "GOOG", 533.55 ],	[ "AAPL", 113.67 ] );
my $ticketsLength = scalar ( @tickets );
my $lastId = 0;
my $q = new CGI ;

local $| = 1;
print "Content-Type: text/event-stream\n";
print "Cache-Control: no-cache\n";
print "Connection: keep-alive\n\n";
while (1) {
    sendMessage($lastId, $tickets[$lastId][0], $tickets[$lastId][1]);
    $lastId++;
    die() if ($lastId >= $ticketsLength); # Check that lastId is not larger than the size of array - if it is larger close connection.
    sleep(1);
}

# Function to send data in format "ticket:price".
sub sendMessage { 
    my $id = shift();
    my $ticket = shift();
    my $price = shift();
    
	print "id: $id\n";
	print "data: $ticket:$price\n\n";
}