#!/usr/local/bin/perl
#Uses browser pull to refresh the current page every second
#file: pull.pl

require '/home/scsfac/downeyt/scripts/parse-lib.pl';
%query=&get_query;

$number=$query{'number'};

$number++;

if ($number < 30)
{
    $REFRESH = "Refresh: 1; URL=pull.pl?number=$number\n";
}

print "$REFRESH","Content-type: text/html\n\n";

print <<HEADER;
<html>
<head>
<title>Pull Example</title>
</head>
<body>
<h1 align=center>$number</h1>
</body>
HEADER
    ;
