Script can not open the transcripts.txt file I think. Its an old perl script. Was working fine until a few chatters got to posting a lot together and it crashed. 

#!/usr/bin/perl
#print "Content-type:text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);

#LITERALS
#--------
$LOCK_SH = 1;
$LOCK_EX = 2;
$LOCK_NB = 4;
$LOCK_UN = 8;

$TRUE    = 1;
$FALSE    = 0;

#GLOBALS
#-------

$client                    = "chat.pl#anchor1";

$point_gif                = "http://www.themegaphone.net/point.gif";
$webchat_logo                = "/mbslogo2sm.gif ";
$about_local_server            = "http://themegaphone.net";
$local_tz                = "GMT (-0000 GMT)";

$read_block_size            = 512;
$num_context_paras            = 0;
$num_context_paras_when_starting    = 10;
$para_mark_size                = 7;    # 7 digits (space padded)
$back_jump                = 10;
$way_back_when                = 40;

# get the form
&ReadParse;

$talkfile                ="transcripts/" . $in{room} . ".txt";

$last_read_para = $in{last_read_para};
$wants_dates_printed = $in{wants_dates_printed};
$back_para = $in{back_para};

# we've changed to letting you specify how far back you want to scroll
# we're leaving the old code in case we go back
if($in{Back} > 0)
    {
    $back = $TRUE;
    $back_para = $back_para - $back_jump;
    ($back_para < 1) && ($back_para = 1);
#    $last_read_para = $back_para;
    $last_read_para = $last_read_para - $in{Back};
    ($last_read_para < 1) && ($last_read_para = 1);
    }



# open a (properly initialized) transcript file

# later: if need to die, put text in some log file somewhere
open (TRANSCRIPT, "+<$talkfile") || die "Client 
can't open transcript file";

# If the user input any text, add it to transcript file
($in{InputText} ne "" && $back eq "") && &add_to_transcript;

# Update the output area or send error message if nothing new
&output_new_form;
exit;

[download]

In reply to Chat Error by pastxx

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.