flash/cgi chat!!

kan du smide noget kode?

Det er lidt svært, når man ikke får lov at se .fla filen. Mit forslag er at du lægger .fla filen ud, så vi andre kan se den. Så kan vi hjælpe dig!

sådan filen ligger i Html mappen og hedder
chat(bjavle).fla
venlig hilsen bjavle


----------------------------------------------

her er lidt kode





#!/usr/bin/perl
#
#    -----------------------------------------------
#          Flash Chat script version whatever
#                  by Torray Wallace
#
#                torraywallace@yahoo.com
#          http://pluto.spaceportsw.com/~torray
#    -----------------------------------------------
#            No silly disclaimers here. Use it
#            modify it, sell it. Whatever you
#            want. Just drop me a line to let
#            me know how you like it.
#    -----------------------------------------------
#            Unless you are hacking the code, the
#            onlything that needs to be changed is
#            the $basedir variable. If you don\'t
#            know what it is for your server, email
#            your webmaster or server administrator
#            or anybody else who has a clue.
#
#            If is doesn\'t work for some reason, try
#            editing the first line so that it reads
#            \'#!/usr/local/bin/perl\'. Otherwise try
#            \'#!/usr/bin/local/perl\'. I can never
#            remember which.
#

# Setup the Variables

$basedir=\"/\";
$messagefile=\"messages.dat\";
$userfile=\"users.dat\";
$emotefile=\"emote.dat\";
print \"Content-type: text/plain\\n\\n\";

if (!$ARGV[0]) {
    if($ENV{\'REQUEST_METHOD\'} eq \'GET\') {
          $ARGV[0] = $ENV{\'QUERY_STRING\'};
    } else {
          read(STDIN, $ARGV[0], $ENV{\'CONTENT_LENGTH\'});
    }
}
if ($ARGV[0]) {
    %FORM;
    &get_arg;
   
    if ($FORM{\'todo\'} eq \'get\' ) {
          &get_messages;
    }
    if ($FORM{\'todo\'} eq \'post\' ) {
          &post_message;
    }
    if ($FORM{\'todo\'} eq \'namesearch\' ) {
          &name_search;
    }
} else {
    print \"no parameters!\\n\";
}   

#### Initialize Arguments ##################################

sub get_arg {
    @pairs = split(/&/, $ARGV[0]);
    foreach $pair (@pairs) {
          ($name, $value) = split(/=/, $pair);
          $value =~ tr/+/ /;
          $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(\"C\", hex($1))/eg;
          $value =~ s/<!--(.|\\n)*-->//g;     
          $FORM{$name} = $value;
    }
}

#### Name Search ##################################

sub name_search {

    $infile=0;
    open (USERLIST,\"<$basedir/$userfile\") || die $!;
    @users = <USERLIST>;
    close (USERLIST);

    open (USER,\">>$basedir/$userfile\") || die $!;
    print \"Content-type: text/html\\n\\n\";
    foreach $pair (@users) {
          ($username,$lastpoll,$datestamp)=split(/\\,,,,,,,,,,,/,$pair);
          if ($username eq $FORM{\'name\'}) {
              print \"&namefree=false\";
              $infile=1;
          }
    }
    if ($infile==0) {
          &stamp;
          print \"&namefree=true\";
          print USER \"$FORM{\'name\'},,,,,,,,,,,$timestamp,,,,,,,,,,,$datestamp\\n\";
    }

    close (USER);
    &clean_userlist;

    open (INROOM,\"<$basedir/$userfile\") || die $!;
    @inchat = <INROOM>;
    close (INROOM);
    $people=0;
          foreach $one (@inchat) {
              $people++;
          }
    if ($people==1) {
          open (MESSAGES,\">$basedir/$messagefile\") || die $!;
          print MESSAGES \"\";
          close (MESSAGES);
    }
    print \"&eof=true\";
}

#### Get messages ##################################

sub get_messages {

    &get_userlist;
    open (MESSAGES,\"<$basedir/$messagefile\") || die $!;
    @text = <MESSAGES>;
    close (MESSAGES);

    print \"&messages=\";
          foreach $line (@text) {
          $line =~ s/ /+/g;
          $line =~ s/%/%25/g;
          $line =~ s/&/%26/g;
          #$line =~ s/?/%51/g;
          print $line;
    }
    print \"&eot=true\";
}

#### Post messages ##################################

sub post_message {

    open (MESSAGES,\">>$basedir/$messagefile\") || die $!;
    print MESSAGES \"<$FORM{\'name\'}> $FORM{\'text\'}\\n\";
    close (MESSAGES);
    &get_messages;
}

#### Get list of current users ##################################

sub get_userlist {

    &clean_userlist;
    open (INROOM,\"<$basedir/$userfile\") || die $!;
    @inchat = <INROOM>;
    close (INROOM);
    $people=0;

    print \"&userlist=\";
    foreach $one (@inchat) {
          ($username,$lastpoll)=split(/\\,,,,,,,,,,,/,$one);
          print \"$username\\n\";
          $people++;
    }
}

#### Clean user list ##################################

sub clean_userlist {

    open (USERLIST,\"<$basedir/$userfile\") || die $!;
    @users = <USERLIST>;

    close (USERLIST);
    &stamp;
    $inlist=0;

    open (NEWLIST,\">$basedir/$userfile\") || die $!;
    foreach $set (@users) {
          ($username,$lastpoll,$lastdate)=split(/\\,,,,,,,,,,,/,$set);
          chop($lastdate);
          if ($lastpoll+7 >= $timestamp && $lastdate eq $datestamp) {
              if ($username eq $FORM{\'name\'}) {
                    print NEWLIST \"$username,,,,,,,,,,,$timestamp,,,,,,,,,,,$datestamp\\n\";
                    $inlist=1;
              } else {
                    print NEWLIST \"$username,,,,,,,,,,,$lastpoll,,,,,,,,,,,$lastdate\\n\";                   
              }
          }         
    }
    if ($inlist==0) {
          print NEWLIST \"$FORM{\'name\'},,,,,,,,,,,$timestamp,,,,,,,,,,,$datestamp\\n\";             
    }
close (NEWLIST);
}
#### Get timestamp ##################################

sub stamp {
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    $totalseconds=$sec+$min*60+$hour*3600;
    $timestamp = $totalseconds;
    $datestamp = \"$mday $mon $year\";
    chop($timestamp) if ($timestamp =~ /\\n$/);
    chop($timestamp) if ($datestamp =~ /\\n$/);
}

exit;

Du skal huske at uloade din CGI-script som ASCII - Chmod 755 eller vil det ikke virke.

Og så skal du sætte den her...

$basedir=\"http://www.bjavle.trab.dk/Html/\";

Jeg er ikke sikker på basedir, da jeg ikke kender trab.dk´s opbygning.

SWF-filen skal ligge i samme bibliotek.

/Nikolaj

det virker stadig ikke

Du ka send mig filerne på nikolajdu@hotmail.com så vil jeg gerne kigge på det.

Hej Bjavle...  Har fået dine filer.. kigger på det senere i dag fredag...

Bjavle har sendt dig en mai tilbage... du bliver nødt til at zippe filener ned...