tagging ychat-perl-legacyychat-perl-legacy

1 files changed, 94 insertions, 0 deletions

diff --git a/0.8.1/ychatd.pl b/0.8.1/ychatd.pl
new file mode 100755
index 0000000..f804436
--- /dev/null
+++ b/0.8.1/ychatd.pl
@@ -0,0 +1,94 @@
+#!/usr/bin/perl
+use CGI;
+$q = new CGI;
+
+use config;
+use modules::commands;
+use modules::changeroom;
+use modules::divcom;
+use modules::hierachie;
+use modules::htdocs;
+use modules::input;		
+use modules::loggedin;
+use modules::online;
+use modules::postmessage;
+use modules::shared;
+use modules::start;		
+use modules::statistic;
+use modules::stream;
+use modules::webchat;
+use IO::Socket;
+use Socket;
+use POSIX;
+
+$SIG{'CHLD'} = 'IGNORE';
+
+$mainsocket = 'IO::Socket::INET'->new('LocalHost', "$localhost", 'LocalPort', $localport, 'Porto', 'tcp', 'Listen', $limit + 10, 'Reuse', 1);
+die "Kann Server-Socket nicht erzeugen: $!\n" unless $mainsocket;
+
+print "yChat wurde auf $localhost:$localport gestartet...\n";
+
+$STARTIME = time;
+
+#Debugging only
+#open AWAKE, ">data/online/awake/-$$-";
+#print AWAKE "$STARTIME - Daemon";
+#close AWAKE;
+
+while ($client = $mainsocket->accept) {
+    print $client "HTTP/1.1 200 OK\nContent-type:text/html\n\n";
+
+    ++$HITS;
+    $pid = fork;
+    if ($pid == 0) {
+	my @reqheader;
+
+	$rv = $client->recv($reqheader[0], POSIX::BUFSIZ, 0);
+	@reqheader = split "\n", $reqheader[0];
+
+        my $requeststring;
+        my(@tmp) = split(/\s+/, $reqheader[0], 0);
+
+            if ($tmp[0] eq 'GET') {
+                $requeststring = $tmp[1];
+
+	    } else {
+		$requeststring = 'chat?'.$reqheader[-1];
+	    }
+
+	    #Debug only
+	    #open AWAKE, ">data/online/awake/$$";
+	    #print AWAKE $requeststring;
+            #close AWAKE;
+          
+            @tmp = split(/\?/, $requeststring, 0);
+            @tmp = split(/&/, $tmp[1], 0);
+            my %variables;
+
+            foreach $_ (@tmp) {
+                my(@tmp) = split(/=/, $_, 0);
+                next if $tmp[0] eq 'admin' or $tmp[0] eq 'mogeladmin';
+                $tmp[0] =~ s[/][];
+                $variables{$tmp[0]} = &url_decode($tmp[1]);
+            }
+
+            foreach $_ (keys %variables) {
+		$variables{$_} =~ s/'/\\'/g;
+                my $eval = "\$$_ = '" . $variables{$_} . "';";
+               # print "$eval\n";
+		eval $eval;
+            }
+	    *STD = *STDOUT;
+            *STDOUT = $client;
+            if ($request) {
+                &secure_checkid($alias, $tmpid) if $request != 'start';
+                eval "&$request";
+            }
+            else {
+                &start;
+            }
+	    &del_awake();
+            $client->shutdown(2);
+            exit 0;
+    }
+}