#!/usr/bin/perl
print "Contest-type: text/javascript\n\n";
require "config.cgi";
use CGI;
$cgi = new CGI;
$acao = $cgi->param("acao");

open(STATUS,"admin/status.dat");
$status=<STATUS>;
close(STATUS);

if($status eq "online"){
print qq~document.write\('<a href=javascript:chat();><img src=banners/120x60/suporte.jpg border=0 alt=Suporte On-Line></a>'\)\;~;
}else{
print qq~document.write\('<a href=javascript:chat();><img src=banners/120x60/suporteoff.jpg  border=0 alt=Suporte On-Line></a>'\)\;~;
}