GT-ChatUsers 0.93 v1.04j

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Perl-Quellcode

    1. #!/usr/bin/perl
    3. #########################################################
    4. # GT-ChatUsers 0.93 v1.04j #
    5. #########################################################
    7. #-> Copyright 2001 by Dominik Leibenger <-#
    10. # Variablen anpassen! / Set up the variables!
    12. # Text der Userliste / Text before the userlist
    13. $starttext = "Derzeit Online";
    15. # Text nach der Userliste / Text after the userlist
    16. $endtext = "";
    18. # Text vor einem Raumnamen / Text before a room name
    19. $roomtitlestart = "<br><br><u><b>";
    21. # Text vor dem ersten Raum (falls 0 dann Standardname) /
    22. # Text before the first rooms name (if 0 then the standard name)
    23. $roomtitlefirstroomstart = 0;
    25. # Text nach einem Raumnamen / Text after a room name
    26. $roomtitleend = "</u></b><br>";
    28. # Text vor einem Usernamen / Text before a username
    29. $usernamestart = "";
    31. # Text nach einem Usernamen / Text after a username
    32. $usernameend = "";
    34. # Text zwischen 2 Usernamen / Text between two usernames
    35. $betweenusers = ", ";
    37. # Private Räume anzeigen / Show private rooms
    38. $privaterooms = 0;
    40. ### Wenn privaterooms = 1 / If privaterooms = 1 ###
    42. # Private Räume werden gekennzeichnet / Private rooms will be tagged
    43. $showprivatetag = 0;
    46. #########################################################
    48. require "Settings.dat";
    49. require "Directories.dat";
    50. require "$sourcedir/Subs.pl";
    51. require "$language.lng";
    53. $nousers = "<br>$text{login_nouseronline}";
    55. if(($roomtitlefirstroomstart eq "0") || ($roomtitlefirstroomstart == 0))
    56. {
    57. $roomtitlefirstroomstart = $roomtitlestart;
    58. }
    60. $output = $starttext;
    62. print "Content-Type: application/x-javascript\n";
    63. print "Pragma: no-cache\n";
    64. print "Expires: now\n\n";
    65. print "document.write('";
    67. my %roomlist;
    69. opendir(DIR,$vardir);
    71. for (readdir(DIR))
    72. {
    73. if (/^online\._/)
    74. {
    75. open(FILE,"$vardir/$_");
    76. readlock(FILE);
    77. my ($name,$id,$nick,$room,$pull) = split(/\|/,<FILE>);
    78. unlock(FILE);
    79. close(FILE);
    81. $roomlist{$room} .= "$nick";
    82. }
    83. }
    85. closedir(DIR);
    87. $roomnumber = 0;
    88. $countusers = 0;
    90. foreach my $room (sort keys %roomlist)
    91. {
    92. my %chatroominfo;
    93. if($showprivatetag)
    94. {
    95. %chatroominfo = getRoomInfo($room);
    96. }
    97. if(!$privaterooms)
    98. {
    99. if(!$showprivatetag)
    100. {
    101. %chatroominfo = getRoomInfo($room);
    102. }
    103. if($chatroominfo{'closed'})
    104. {
    105. next;
    106. }
    107. }
    109. ++$roomnumber;
    111. if($chatroominfo{'closed'})
    112. {
    113. if($roomnumber == 1)
    114. {
    115. $output .= "$roomtitlefirstroomstart$room ($text{roomlist_state_private})$roomtitleend";
    116. }
    117. else
    118. {
    119. $output .= "$roomtitlestart$room ($text{roomlist_state_private})$roomtitleend";
    120. }
    121. }
    122. else
    123. {
    124. if($roomnumber == 1)
    125. {
    126. $output .= "$roomtitlefirstroomstart$room$roomtitleend";
    127. }
    128. else
    129. {
    130. $output .= "$roomtitlestart$room$roomtitleend";
    131. }
    132. }
    134. $firstuser = 0;
    136. foreach $chatuser (sort split(/ /,$roomlist{$room}))
    137. {
    138. if($chatuser ne "")
    139. {
    140. ++$countusers;
    141. if($firstuser == 0)
    142. {
    143. $output .= "$usernamestart$chatuser$usernameend";
    144. $firstuser = 1;
    145. }
    146. else
    147. {
    148. $output .= "$betweenusers$usernamestart$chatuser$usernameend";
    149. }
    150. }
    151. }
    152. }
    154. if ($countusers <= 0)
    155. {
    156. $output .= "$nousers";
    157. }
    159. $output .= "$endtext";
    160. $output =~ s/\'/\\\'/g;
    162. print "$output";
    163. print "');";
    165. exit;

    959 mal gelesen