#!/usr/bin/perl

# return the last 10 guestbook-entries in javascript format

print "content-type: text/javascript\n\n";
print "var m = new Marquee([\n";


open (BOOK, "gbook.entries") || exit;
my @entries = (<BOOK>);
@entries = @entries[@entries-10 .. $#entries];
foreach my $entry (@entries) {
  #Roelof Bos|Hij werkt!!!<br><br>WELKOM OP MIJN GASTENBOEK ALLEMAAL<br><br>laterz!<br>|21|
  #united states of utreg|roelof667@hotmail.com|http://www.refuse.nl|Tuesday August 21 2001, at 16:26:21|Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)|213.17.84.65
  my ($name,$text,$age,$city,$email,$web,$date) = split(/\|/,$entry);
  $date =~ /^\w+ (\w+) (\d+) (\d+), at (\d+:\d+)/;
  #$date =~ /^\w+ (\w+) (\d+) (\d+), at (\d+:\d+):\d+$/;
  my ($month,$mday,$year,$time) = ($1,$2,$3,$4);
  $month = substr($month,0,3);
  # "Louise / 16-08-2005 @ 18:29:34: prr",
  $name =~ s/<[^>]*>//g; # no HTML
  $name =~ s/"/&quot;/g; # no quots
  $text =~ s/<[^>]*>/ /g; # no HTML
  $text =~ s/"/&quot;/g; # no quots
  $entry = "\"$name <font class=RedText>/ $month $mday $year @ $time:</font> <font color=#999999>$text</font>\"";
}
print join(",\n",reverse(@entries));
print <<"LINES";

  ], // ARRAY strings
  120, // INT delay: milliseconds
  80, // INT steps: number of times the layer is drawn between begin and end
  100,  // INT pauze: milliseconds between strings
  "b", // from (right bottom)
  "t", // to (left top)
  150, // w
  100 // h
  );
document.write(m.paint());
m.start();

LINES

=pod
        ["Jeff / 18 / San Francisco / 21-08-2005 @ 18:26:25: WOW! I'll add your site to my bookmarks.",
         "Louise / 16-08-2005 @ 18:29:34: prr",
         "daddypeter / 38 / Leuven (Belgium) / 11-08-2005 @ 08:30:45: Yow, Ro! Just to let u know: je was veruit &quot;den tofsten hollander&quot; in Turkije... En nu ik jullie muziek gehoord heb... nóg altijd! ;-) Greetz, Peter &amp; Chris",
         "Woutr / Eindhoven / 08-08-2005 @ 18:18:06: Heej gasten! Komen jullie binnenkort een keer in de buurt spelen?! Of ver weg? Kom ik nog eens langs... Tjuuuuus!"
         ], // ARRAY strings
=cut