Объединенный Открытый Проект

Здравствуйте. У меня возник такой ворос. Как зделать так чтобы при зоходе на мою главную стрину сайта, там появлялась ссылка на чат(естественно там должно быть количество людей в чате). Когда я ставлю ссылку на chat.cgi(кажется) у меня нечего не работает. А когда захожу с форума все ОК.
Спасибо.

Увы, скрипт не работает - ошибка синтаксиса!
В конце, якобы, лишняя скобка. А без нее тоже никак...
Может подскажите где эта ошибка затесалась?!
Уж очень нужен этот скрипт!!!

Действительно, убрать ее надо. (Как всегда, попало что-то лишнее при вырезании куска кода из другого места...)

Хм... оказывается действительн там скобочка нужна а вот фигурную скобобочку в самом конце надо убрать, тогда ошибок не будет...
#!/usr/bin/perl    <br>   print "Content-type: text/html\n\n"; <br>   $filetoopen = $ikondir . "data/chatuser.cgi"; <br>   open(FILE, "<$filetoopen"); <br>   @usersonline = <FILE>; <br>   close (FILE); <br>   $usersinchat = @usersonline; <br>   $currenttime=time; <br>   $userprocdata = ""; <br>   foreach (@usersonline) { <br>     chomp($_); <br>     ($user,$lasttime)=split(/\|/,$_); <br>     if ($lasttime+300 < $currenttime ) { $usersinchat = $usersinchat-1; } <br>     else  { $userprocdata .= "$user|$lasttime\n"; } <br>   } <br>   $filetoopen = $ikondir . "data/chatuser.cgi";     <br>   open(USERFILE,">$filetoopen"); <br>   flock(USERFILE, 2); <br>   print USERFILE ($userprocdata); <br>   close(USERFILE); <br>   $chatmsg=&formatword($usersinchat,qq~ <a href="$chatprog">Чат ($usersinchat участник)</a> | ~,qq~ <a href="$chatprog">Чат ($usersinchat участника)</a> | ~,qq~ <a href="$chatprog">Чат ($usersinchat участников)</a> | ~); <br>   print $chatmsg;

Ну вот надеюсь это окончательная версия работающего скрипта #!/usr/bin/perl  <br>  use CGI::Carp "fatalsToBrowser";          <br>  use CGI qw(:standard);                    <br>  require "ikon.lib";<br>  require "data/progs.cgi";  <br>  print "Content-type: text/html\n\n"; <br>  $filetoopen = $ikondir . "data/chatuser.cgi"; <br>  open(FILE, "<$filetoopen"); <br>  @usersonline = <FILE>; <br>  close (FILE); <br>  $usersinchat = @usersonline; <br>  $currenttime=time; <br>  $userprocdata = ""; <br>  foreach (@usersonline) { <br>    chomp($_); <br>    ($user,$lasttime)=split(/\|/,$_); <br>    if ($lasttime+300 < $currenttime ) { $usersinchat = $usersinchat-1; } <br>    else  { $userprocdata .= "$user|$lasttime\n"; } <br>  } <br>  $filetoopen = $ikondir . "data/chatuser.cgi";     <br>  open(USERFILE,">$filetoopen"); <br>  flock(USERFILE, 2); <br>  print USERFILE ($userprocdata); <br>  close(USERFILE); <br>  $chatmsg=&formatword($usersinchat,qq~<a href="$chatprog">Чат ($usersinchat участник)</a>~,qq~<a href="$chatprog">Чат ($usersinchat участника)</a>~,qq~<a href="$chatprog">Чат ($usersinchat участников)</a>~); <br>  print $chatmsg;

на здоровье