git.sesse.net Git - nms/blob - web/streaming.pl

   1 #!/usr/bin/perl
   2 use GD;
   3 use CGI;
   4 use strict;
   5
   6 my $cgi = CGI->new;
   7
   8 GD::Image->trueColor(1);
   9 my $img = new GD::Image(100,100);
  10
  11 my $wht = $img->colorResolve(0,0,0);
  12 my $blk = $img->colorResolve(255,255,255);
  13 my $red = $img->colorResolve(255,0,0);
  14 my $grn = $img->colorResolve(0,255,0);
  15 my $blu = $img->colorResolve(0,0,255);
  16
  17 $img->transparent($wht);
  18 $img->interlaced('true');
  19
  20 $img->string(gdMediumBoldFont,0,0,"TG05 - Streaming",$blu);
  21
  22 print $cgi->header(-type=>'image/png',
  23                    -refresh=>'10; http://nms.tg07.gathering.org/streaming.pl');
  24 print $img->png;
  25