#!/usr/bin/perl require config; # HTML Part # ######################## #REGISTER.HTML - Printed when user registers new nick Выводится когда Пользователь регистрирует новое имя sub register_html { print <<"[END]"; $html_title - Регистрация нового имени $html_css $meta $html_bodytag

Регистрация нового имени

Новый ник:
Пароль:
Пароль (ещё раз):
eMail:
(только для администрации)
[END] } #BANNER.HTML - the banner on the top - You may change or remove it! sub banner_html { print <<"[END]"; $html_css $meta $html_bodytag
[END] } #OPTIONS.HTML - the options page sub options_html { print <<"[END]"; $html_title - Настройки $html_css $meta $html_bodytag

Настройки

Частота обновления (секунд):
Цвет шрифта:
порядок сообщений
Звук входа

смена пароля

старый пароль:
новый пароль:
новый пароль ещё раз:
[END] } #USERINFO.HTML - information about the users, click on user in online list Информация о пользователях, клик по имени пользователя в списке присутствующих sub userinfo_html { print <<"[END]"; $html_title - Просмотр информации о пользователе $html_css $meta $html_bodytag

Информация о пользователе

[END] print "
" if ($userinfo{'photo_url'} ne ""); print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
Псевдоним:$query{'infoabout'}
Настоящее имя:$userinfo{'realname'}
email:$userinfo{'email'}
Возраст:$userinfo{'age'}
Город:$userinfo{'city'}
Страна:$userinfo{'country'}
URL странички:$userinfo{'url'}
Номер ICQ:$userinfo{'icq_uin'}
Другое:$userinfo{'stuff'}
"; print "
" if ($userinfo{'photo_url'} ne ""); print <<"[END]";
[END] } #CHANGEUSERINFO.HTML - change user information sub changeuserinfo_html { print <<"[END]"; $html_title - Изменение личной информации $html_css $meta $html_bodytag

Изменение личной информации

Настоящее имя:
email:
Страна:
Город:
Возраст:
URL странички:
URL фото:
Номер ICQ:
Что-либо ещё:
[END] } #SCRIPTLINKS.HTML - Links to other chatscripts sub scriptlinks_html { print <<"[END]"; $html_css $meta $html_bodytag chat 2 [END] } #CHATFRAMES.HTML #СНИМИТЕ КОММЕНТАРИи если желаете сделать несколько комнат. sub chatframes_html { print "$html_title\n"; if ($banner_picture) { print " \n" } else { print " \n" } print " \n" if ($banner_picture); print " \n"; print " \n"; # print " \n"; #УБЕРИТЕ КОММЕНТАРИЙ если желаете сделать много комнат print " \n"; # print " \n"; #УБЕРИТЕ КОММЕНТАРИЙ если желаете сделать много комнат #UNCOMMENT IF YOU WANT MULTIPLE SCRIPT SUPPORT print " \n"; # print " \n"; #СНИМИТЕ КОММЕНТАРИЙ если желаете сделать много комнат #UNCOMMENT IF YOU WANT MULTIPLE SCRIPT SUPPORT print " \n"; print "\n"; print "\n"; } # MESSAGES Part # ######################## $chat2_msg[0] = "вошёл в чат"; # [user] has entered the chat # illegal_nick_html $chat2_msg[1] = "Недопустимый псевдоним"; # Illegal Nick $chat2_msg[2] = "Ваш ник "\"$query{'name'}\"" contains illegal characters
содержит недопустимые символы.
Псевдоним может содержать только буквы, цифры и символы полчёркивания \"_\".
Заново"; # Your Nick \"$query{'name'}\" contains illegal characters
A Nick may contain only letters, numbers and the underdash \"_\".
retry # illegal_pass_html $chat2_msg[3] = "Недопустимый пароль"; # Illegal Password $chat2_msg[4] = "Пароль не должен содержать \";\"
попытайтесь заново"; # A password may not contain \";\"
retry # pass_check_failed_html $chat2_msg[5] = "Несоответствие пароля"; # Password Check Failed $chat2_msg[6] = "Введённые Вами пароли различаются
Пожалуйста, повторите ввод"; # The passwords you entered are not equal
retry # existingnick_html $chat2_msg[7] = "Псевдоним уже существует"; # Nickname already exists $chat2_msg[8] = "Попробуйте выбрать другой псевдоним"; # try another nick # nickcreated_html $chat2_msg[9] = "Ваш псевдоним успешно зарегистрирован";# Your nick is now registered $chat2_msg[10] = "войти в чат"; # login # chat_is_full_html $chat2_msg[11] = "Чат переполнен"; # Chat is full $chat2_msg[12] = "Извините, комната в чате переполнена, Пожалуйста, попытайтесь войти в другую комнату или вернитесь через некоторое время.
Однако Вы можете войти в любом случае, если Вы используете \"Административный пароль\".
заново"; # Sorry, the chat room is full, please try another room or come back another time.
You can login anyway if you login with the password \"yourpassword masterpassword\".
back # send_pwd_html $chat2_msg[13] = "Пароль успешно отослан"; # Lost Password $chat2_msg[14] = "Пароль отослан на адрес электронной почты, который был указан при регистрации.
Вернуться назад"; # The password was sent to you ($query{'email'}).
back # illegal_international_nick_html $chat2_msg[15] = "Недопустимый псевдоним"; # Illegal Nick $chat2_msg[16] = "Ваш ник \"$query{'name'}\" содержит недопустимые символы.
Псевдоним может содержать только буквы, цифры и символы подчёркивания.
Не допускается использование символов \\\";/ :?*<>|
Попытайтесь заново"; # Your Nick \"$query{'name'}\" contains illegal characters
A Nick may not contain \\\";/ :?*<>|
retry $chat2_msg[17] = "Пароль успешно изменён"; # Password changed $chat2_msg[18] = "Новый пароль не должен содержать \";\""; # The new password may not contain \";\" $chat2_msg[19] = "Проверка нового пароля неудачна, вероятно, пароль набран неверно."; # New password check failed, probably mistyped $chat2_msg[20] = "одну секундочку"; # please wait $chat2_msg[21] = "Записка от"; # Memo from $chat2_msg[22] = "[ЧАТ] Ваш Пароль"; # [CHAT] Your Password $chat2_msg[23] = "Ваш пароль:"; # Your password is $chat2_msg[24] = "- Администратор"; # - the admin $chat2_msg[25] = "ник"; # Nick # Main Part - DON'T CHANGE ANYTHING HERE! # ####################### &action; # Fuehrt je nach action variable gegebene sub aus # action im FORM definieren! #ГОЛОС ПЕРЕВОДЧИКА (ГНУСАВО): "...говорят по-немецки..:)." exit; sub action { if ($qs eq "") { # Wenn query_string leer sprung zum &error("dont't execute this file, run chat.cgi instead"); } elsif ($query{'action'} eq "register") { &header; ®ister_html; } elsif ($query{'action'} eq "login") { &login; } elsif ($query{'action'} eq "create_nick") { &create_nick; } elsif ($query{'action'} eq "banner") { &header; &banner_html; } elsif ($query{'action'} eq "options_html") { &header; &options_html; } elsif ($query{'action'} eq "setoptions") { &setoptions; } elsif ($query{'action'} eq "gotourl") { &gotourl; } elsif ($query{'action'} eq "userinfo") { &userinfo; } elsif ($query{'action'} eq "changeuserinfo") { &changeuserinfo; } elsif ($query{'action'} eq "setuserinfo") { &setuserinfo; } elsif ($query{'action'} eq "show_users") { &show_users; } elsif ($query{'action'} eq "scriptlinks") { &header; &scriptlinks_html; } elsif ($query{'action'} eq "send_pwd") { &send_pwd; } elsif ($query{'action'} eq "show_usernames") { &show_usernames; } else { &error; } } sub login { # Loginprozedur # check login name+password if (-e "$data_dir/$data_nicks_file") { # wenn nickfile existiert dann oeffnen open (NICKFILE, "<$data_dir/$data_nicks_file") || &error("::open $data_dir/$data_nicks_file failed::"); } else { # sonst nonick_html &header; &user_error_html($config_msg[1], $config_msg[2]); exit; } # check if ip is banned open (BANFILE, "<$data_dir/$data_banned_file"); my $banfile = ; my @banfiletemp = split(/;;/, $banfile); for (@banfiletemp) { if ("ip:".$ENV{'REMOTE_ADDR'} eq $_) { &header; &user_error_html($config_msg[7], $config_msg[8]); exit; } } &max_user_limit; # check if chat is full my @nickfile = ; close NICKFILE; my @nickfile_matrix = (); for (my $i = 0; $i <= $#nickfile; $i++) { chomp($nickfile[$i]); push(@nickfile_matrix, [split(/;;/, $nickfile[$i])]); } for (my $i=0; $i<=$#nickfile_matrix; $i++) { if ($nickfile_matrix[$i][0] =~ /^$query{'name'}$/i) { # compare nicks with uppercases $query{'name'} = $nickfile_matrix[$i][0] if ($nickfile_matrix[$i][0] ne $query{'name'}); # if nicks are different, because of some upper cases use the version in the nickfile if ($nickfile_matrix[$i][1] eq $query{'password'}) { # update last visited var $nickfile_matrix[$i][4] = time; # set ip $nickfile_matrix[$i][11] = $ENV{'REMOTE_ADDR'}; #set unkicked if user was kicked $nickfile_matrix[$i][10] = 0 if ($nickfile_matrix[$i][10] == 1); #check if user is banned if ($nickfile_matrix[$i][10] == 2) { close NICKFILE; &header; &user_error_html($config_msg[7], $config_msg[8]); exit; } if ($clear_old_msgs == 1) { &clear_old_msgs_sub; } if ($nickfile_matrix[$i][5] ne "") { $query{'updatefrequency'} = $nickfile_matrix[$i][5]; $query{'color'} = $nickfile_matrix[$i][6]; $query{'new_msg_on_top'} = $nickfile_matrix[$i][9]; $query{'ls'} = $nickfile_matrix[$i][13]; } else { $query{'updatefrequency'} = $updatefrequency; $query{'color'} = "standard"; $query{'new_msg_on_top'} = $new_msg_on_top; } # check memos if ($nickfile_matrix[$i][12] > 0) { $pause = 1; &check_for_memo($nickfile_matrix[$i][12]); } $nickfile_matrix[$i][12] = 0; open (NICKFILE, ">$data_dir/$data_nicks_file"); flock(NICKFILE,2) if ($flocking == 1); for (my $i = 0; $i <= $#nickfile_matrix; $i++) { my $temp = join(';;', @{$nickfile_matrix[$i]}); print NICKFILE $temp."\n"; } close NICKFILE; #post welcome msg if ($welcome_msg ne "") { &postprivatemsg($query{'name'}, "WELCOME", $welcome_msg); #print login msg open (CHATFILE, ">>$data_dir/$data_msg_file"); flock(CHATFILE,2) if ($flocking == 1); print CHATFILE "".$query{'name'}." ".$chat2_msg[0].""; if ($query{'ls'}) { print CHATFILE "\n"; } else { print CHATFILE "\n"; } close CHATFILE; } &enterchat; # wenn beides richtig goto chat exit; # danach prozedur verlassen } else { &header; &user_error_html($config_msg[3], $config_msg[4]."$query{'name'}".$config_msg[19]); exit; } } } # falls nick falsch nonick_html &header; &user_error_html($config_msg[1], $config_msg[2]); } sub enterchat { # LOG ACTION if ($logtype >= 2) { open (LOGFILE, ">>$log_dir/$log_file") || &error("::open $log_dir/$log_file failed::"); flock(LOGFILE,2) if ($flocking == 1); print LOGFILE localtime(time)." $ENV{'REMOTE_ADDR'} [LOGIN] $query{'name'}\n"; close LOGFILE; } if ($query{'noframes'} == 1) { print "Location: $script_name?action=chatnoframes_html&name=$query{'name'}&password=$query{'password'}&color=$query{'color'}&new_msg_on_top=$query{'new_msg_on_top'}&ls=$query{'ls'}&noframes=1\n\n"; } else { &header; &chatframes_html; } } sub validate_string { # params: 0: string to validate # alle strings die spaces, semikolons oder steuerzeichen enthalten if (($_[0] =~ /[\W]/ || $_[0] eq "") && $international_nicks == 0) { return 1; # illegal string } elsif ($_[0] =~ /[\";\/:\\\?\*<>\| ]/ || $_[0] eq "") { return 1; } else { return 0; # legal string } } sub create_nick { # neuen nick anlegen + weiterleiten zum chat if (&validate_string($query{'name'}) == 1) { # ueberpruefen ob nick illegale Zeichen enthaelt &header; if ($international_nicks == 0) { &user_error_html($chat2_msg[1], $chat2_msg[2]); } else { &user_error_html($chat2_msg[15], $chat2_msg[16]); } exit; }; if ($query{'password'} =~ /;/ || !$query{'password'}) { # ueberpruefen ob password illegale Zeichen enthaelt &header; &user_error_html($chat2_msg[3], $chat2_msg[4]); exit; }; if ($query{'password'} ne $query{'password2'}) { &header; &user_error_html($chat2_msg[5], $chat2_msg[6]); exit; }; if (-e "$data_dir/$data_nicks_file") { open (NICKFILE, "<$data_dir/$data_nicks_file") || &error("::open $data_dir/$data_nicks_file failed::"); } else { &create_file("$data_dir/$data_nicks_file"); open (NICKFILE, "<$data_dir/$data_nicks_file") || &error("::open Nickfile failed::"); # und dann oeffnen } my @nickfile = ; close NICKFILE; my @nickfile_matrix = (); for (my $i = 0; $i <= $#nickfile; $i++) { chomp($nickfile[$i]); push(@nickfile_matrix, [split(/;;/, $nickfile[$i])]); } # does nick already exist? for (my $i=0; $i<=$#nickfile_matrix; $i++) { if ($nickfile_matrix[$i][0] =~ /^$query{'name'}$/i) { &header; # wenn ja dann ausgabe existingnick.htm &user_error_html($chat2_msg[7], $chat2_msg[8]); exit; } } open (NICKFILE, ">>$data_dir/$data_nicks_file") || &error("open nickfile failed"); flock(NICKFILE,2) if ($flocking == 1); my @nickdate; $nickdata[0] = $query{'name'}; $nickdata[1] = $query{'password'}; $nickdata[2] = $query{'email'}; $zeit = time(); $nickdata[3] = localtime($zeit); $nickdata[4] = time; $nickdata[5] = $updatefrequency; $nickdata[6] = "standard"; $nickdata[9] = $new_msg_on_top; my $nickentry = join(';;', @nickdata); print NICKFILE "$nickentry\n"; close NICKFILE; if (-e "$data_dir/$data_private_file.$query{'name'}") { } else { &create_file("$data_dir/$data_private_file.$query{'name'}"); } #MAIL TO ADMIN if ($mail_on_new_registration == 1) { open(MAIL,"|$mailprogramme -t"); print MAIL "To: $admin_email_addresse\n"; print MAIL "From: $admin_email_addresse (Ralfs Chat Script)\n"; print MAIL "Subject: [CHAT] New Nick Registration\n\n"; print MAIL "A new user was registered\n"; print MAIL "Nickname: $query{'name'}\n"; print MAIL "eMail: $query{'email'}\n"; print MAIL "HTTP User Agent: ".$ENV{'HTTP_USER_AGENT'}."\n"; print MAIL "Remote Addresse: ".$ENV{'REMOTE_ADDR'}."\n"; } # LOG ACTION if ($logtype >= 1) { open (LOGFILE, ">>$log_dir/$log_file") || &error("::open $log_dir/$log_file failed::"); flock(LOGFILE,2) if ($flocking == 1); print LOGFILE localtime(time)." $ENV{'REMOTE_ADDR'} [NEW USER] $query{'name'} <$query{'email'}>\n"; close LOGFILE; } &header; &user_error_html($chat2_msg[9], $chat2_msg[10]); } sub clear_old_msgs_sub { # safile einlesen if (-e "$data_dir/$data_stillalive_file") { open (SAFILE, "<$data_dir/$data_stillalive_file") || &error("opening safile failed"); my $safile = ; close SAFILE; my @sa = split (/;;/, $safile); # Eintraege nach ueberfaelligen (> 50) durchsuchen und diese entfernen my $coms_i = 0; for ($coms_i=1; $coms_i<=$#sa; $coms_i+=2) { if ($sa[$coms_i] < (time - 50)) { # ist zeitstempel schon aelter als 50s? $sa[$coms_i] = "//2delete"; $sa[$coms_i-1] = "//2delete"; # zu loeschende eintraege mit //2delete ersetzten } } # alle Felder mit //2delete entfernen my $templsa = $#sa; # Laenge von @sa wird in templsa gespeichert; for ($coms_i=0; $coms_i<=$templsa; $coms_i++) { my $temp = shift(@sa); if ($temp ne "//2delete") { push(@sa,$temp); } } # wenn laenge von safile < 0 (chat empty) dann chatfile leeren if ($#sa < 0) { if (-e "$data_dir/$data_msg_file") { # CHATFILE oeffnen open (CHATFILE, ">$data_dir/$data_msg_file") || &error("opening chatfile failed"); print CHATFILE ""; close CHATFILE; } } } } sub setoptions { &checkpass; if ($query{'updatefrequency'}<$min_update_freq || $query{'updatefrequency'} eq "") { $query{'updatefrequency'}=$min_update_freq; } my $cpw_msg; my $change_password_ok = 0; if ($query{'change_pwd_old'} && $query{'change_pwd_new'}) { if ($query{'change_pwd_old'} eq $query{'password'}) { if ($query{'change_pwd_new'} eq $query{'change_pwd_new2'}) { if ($query{'change_pwd_new'} !~ /[;\n]/ || !$query{'change_pwd_new'}) { $change_password_ok = 1; $cpw_msg = $chat2_msg[17]; } else { $cpw_msg = $chat2_msg[18]; } } else { $cpw_msg = $chat2_msg[19]; } } else { $cpw_msg = $config_msg[3]; } &postprivatemsg("$query{'name'}","CHANGE_PWD",$cpw_msg) if ($cpw_msg); $query{'password'} = $query{'change_pwd_new'} if ($change_password_ok == 1); } open (NICKFILE, "<$data_dir/$data_nicks_file") || &error("::open $data_dir/$data_nicks_file failed::"); my @nickfile = ; # Daten aus nickfile an @nickfile uebergeben close NICKFILE; # nickfile schliessen my @nickfile_matrix = (); for (my $i = 0; $i <= $#nickfile; $i++) { chomp($nickfile[$i]); push(@nickfile_matrix, [split(/;;/, $nickfile[$i])]); } for (my $i=0; $i<=$#nickfile_matrix; $i++) { if ($nickfile_matrix[$i][0] =~ /^$query{'name'}$/i) { $nickfile_matrix[$i][1] = $query{'password'}; $nickfile_matrix[$i][5] = $query{'updatefrequency'}; $nickfile_matrix[$i][6] = $query{'color'}; $nickfile_matrix[$i][9] = $query{'new_msg_on_top'}; if ($query{'ls'}) { $query{'ls'} =~ s/^(file:)?(\/\/)?(localhost)?\/?(.*)/file:\/\/localhost\/\4/; $nickfile_matrix[$i][13] = $query{'ls'}; } else { $nickfile_matrix[$i][13] = ""; } open (NICKFILE, ">$data_dir/$data_nicks_file"); flock(NICKFILE,2) if ($flocking == 1); for (my $i2 = 0; $i2 <= $#nickfile_matrix; $i2++) { my $temp = join(';;', @{$nickfile_matrix[$i2]}); print NICKFILE $temp."\n"; } close NICKFILE; } } &header; &chatframes_html; } sub setuserinfo { &checkpass; open (UIFILE, "<$data_dir/$data_userinfo_file") || &error("::open $data_dir/$data_userinfo_file failed::"); my @uifile = ; close UIFILE; my @uifile_matrix; for (my $i = 0; $i <= $#uifile; $i++) { chomp($uifile[$i]); push(@uifile_matrix, [split(/;;/, $uifile[$i])]); } my $info_exists; for (my $i=0; $i<=$#uifile_matrix; $i++) { if ($uifile_matrix[$i][0] =~ /^$query{'name'}$/i) { $info_exists=1; } } if ($info_exists != 1) { $uifile_matrix[$#uifile_matrix+1][0] = $query{'name'}; } for (my $i=0; $i<=$#uifile_matrix; $i++) { if ($uifile_matrix[$i][0] =~ /^$query{'name'}$/i) { $uifile_matrix[$i][1] = $query{'realname'}; $uifile_matrix[$i][2] = $query{'email'}; $uifile_matrix[$i][3] = $query{'age'}; $uifile_matrix[$i][4] = $query{'city'}; $uifile_matrix[$i][5] = $query{'country'}; $uifile_matrix[$i][6] = $query{'url'}; $uifile_matrix[$i][7] = $query{'stuff'}; $uifile_matrix[$i][8] = $query{'photo_url'}; $uifile_matrix[$i][9] = $query{'icq_uin'}; for (my $i2=0; $i2<=9; $i2++) { $uifile_matrix[$i][$i2] =~ s/;/;#59;/g; $uifile_matrix[$i][$i2] =~ s/&/&/g; $uifile_matrix[$i][$i2] =~ s/;#59;/;/g; $uifile_matrix[$i][$i2] =~ s//g; $uifile_matrix[$i][$i2] =~ s/\r//g; } open (UIFILE, ">$data_dir/$data_userinfo_file"); flock(UIFILE,2) if ($flocking == 1); for (my $i = 0; $i <= $#uifile_matrix; $i++) { $temp = join(';;', @{$uifile_matrix[$i]}); print UIFILE $temp."\n"; } close UIFILE; } } &header; &chatframes_html; } sub changeuserinfo { &checkpass; open (UIFILE, "<$data_dir/$data_userinfo_file") || &create_file("$data_dir/$data_userinfo_file"); my @uifile = ; close UIFILE; local @uifile_matrix; for (my $i = 0; $i <= $#uifile; $i++) { chomp($uifile[$i]); push(@uifile_matrix, [split(/;;/, $uifile[$i])]); } for (my $i=0; $i<=$#uifile_matrix; $i++) { if ($uifile_matrix[$i][0] =~ /^$query{'name'}$/i) { for (my $i2=0; $i2<=9; $i2++) { $uifile_matrix[$i][$i2] =~ s/;/;/g; $uifile_matrix[$i][$i2] =~ s/&/&/g; $uifile_matrix[$i][$i2] =~ s/
/\n/g; } $userinfo{'realname'} = $uifile_matrix[$i][1]; $userinfo{'email'} = $uifile_matrix[$i][2]; $userinfo{'age'} = $uifile_matrix[$i][3]; $userinfo{'city'} = $uifile_matrix[$i][4]; $userinfo{'country'} = $uifile_matrix[$i][5]; $userinfo{'url'} = $uifile_matrix[$i][6]; $userinfo{'stuff'} = $uifile_matrix[$i][7]; $userinfo{'photo_url'} = $uifile_matrix[$i][8]; $userinfo{'icq_uin'} = $uifile_matrix[$i][9]; } } &header; &changeuserinfo_html; } sub show_users { &header; print &number_of_users; open (NU, ">count"); print NU &number_of_users; close NU; } sub number_of_users { open (SAFILE, "<$data_dir/$data_stillalive_file"); flock(SAFILE,2) if ($flocking == 1); my $safile = ; # Daten aus safile an $safile uebergeben close SAFILE; local @sa = split (/;;/, $safile); &repair_safile if ($#sa % 2 == 0); # wenn safile fehlerhaft -> repair # Eintraege nach ueberfaelligen (aelter als 50s) durchsuchen und diese entfernen for (my $i=1; $i<=$#sa; $i+=2) { if ($sa[$i] < (time - 50)) { # ist zeitstempel schon aelter als 50s? $sa[$i] = "//2delete"; $sa[$i-1] = "//2delete"; # zu loeschende eintraege mit //2delete ersetzten } } # alle Felder mit //2delete entfernen my $templsa = $#sa; # Laenge von @sa wird in templsa gespeichert; for (my $i=0; $i<=$templsa; $i++) { my $temp = shift(@sa); if ($temp ne "//2delete") { push(@sa,$temp); } } $safile = join(';;', @sa); open (SAFILE, ">$data_dir/$data_stillalive_file"); flock(SAFILE,2) if ($flocking == 1); print SAFILE $safile; close SAFILE; my $nrusers = ($#sa+1) / 2; return $nrusers; } sub gotourl { &header; print ""; print ""; print "$chat2_msg[20]"; print ""; } sub max_user_limit { if (&number_of_users >= $max_users && $max_users >= 0) { if ($query{'password'} =~ / $masterpassword$/) { $query{'password'} = substr($query{'password'}, 0, index($query{'password'}, " ")); } else { &header; &user_error_html($chat2_msg[11], $chat2_msg[12]); exit; } } } sub check_for_memo { &create_file("$data_dir/$data_memo_file") if (!-e "$data_dir/$data_memo_file"); open (MEMOFILE, "<$data_dir/$data_memo_file") || &error("opening memofile failed"); flock(MEMOFILE,2) if ($flocking == 1); my @memofile = ; close MEMOFILE; my @memofile_matrix = (); for (my $i = 0; $i <= $#memofile; $i++) { chomp($memofile[$i]); push(@memofile_matrix, [split(/;;/, $memofile[$i])]); } # Eintraege nach ueberfaelligen (aelter als $days_to_keep_memos) durchsuchen und diese entfernen for (my $i=0; $i<=$#memofile_matrix; $i++) { if ($memofile_matrix[$i][3] < (time - $days_to_keep_memos*60*60*24)) { # ist zeitstempel schon aelter als 50s? $memofile_matrix[$i] = "//2delete"; } } for (my $cfm_i=0; $cfm_i<=$#memofile_matrix; $cfm_i++) { if ($memofile_matrix[$cfm_i][0] =~ /^$query{'name'}$/i) { &postprivatemsg($query{'name'},"MEMO","$chat2_msg[21] $memofile_matrix[$cfm_i][1] (".localtime($memofile_matrix[$cfm_i][3])."): $memofile_matrix[$cfm_i][2]"); $memofile_matrix[$cfm_i] = "//2delete"; } } # alle Felder mit //2delete entfernen my $templ = $#memofile_matrix; # Laenge von @sa wird in templsa gespeichert; for (my $i=0; $i<=$templ; $i++) { my $temp = shift(@memofile_matrix); if ($temp ne "//2delete") { push(@memofile_matrix,$temp); } } open (MEMOFILE, ">$data_dir/$data_memo_file"); flock(MEMOFILE,2) if ($flocking == 1); for (my $i = 0; $i <= $#memofile_matrix; $i++) { my $temp = join(';;', @{$memofile_matrix[$i]}); print MEMOFILE $temp."\n"; } close MEMOFILE; } sub send_pwd { open (NICKFILE, "<$data_dir/$data_nicks_file") || &error("::open $data_dir/$data_nicks_file failed::"); my @nickfile = ; # Daten aus nickfile an @nickfile uebergeben close NICKFILE; # nickfile schliessen my @nickfile_matrix = (); for (my $i = 0; $i <= $#nickfile; $i++) { chomp($nickfile[$i]); push(@nickfile_matrix, [split(/;;/, $nickfile[$i])]); } for (my $i=0; $i<=$#nickfile_matrix; $i++) { if ($nickfile_matrix[$i][0] =~ /^$query{'name'}$/i) { $query{'email'} = $nickfile_matrix[$i][2]; $query{'password'} = $nickfile_matrix[$i][1] } } # mail to user open(MAIL,"|$mailprogramme -t"); print MAIL "To: $query{'email'}\n"; print MAIL "From: $admin_email_addresse ($html_title)\n"; print MAIL "Subject: $chat2_msg[22]\n\n"; print MAIL "$chat2_msg[23] $query{'password'} ($chat2_msg[25]: $query{'name'})\n\n"; print MAIL "$chat2_msg[24]"; close MAIL; &header; &user_error_html($chat2_msg[13], $chat2_msg[14]); } sub show_usernames { &header; open (SAFILE, "<$data_dir/$data_stillalive_file"); flock(SAFILE,2) if ($flocking == 1); my $safile = ; # Daten aus safile an $safile uebergeben close SAFILE; local @sa = split (/;;/, $safile); &repair_safile if ($#sa % 2 == 0); # wenn safile fehlerhaft -> repair # Eintraege nach ueberfaelligen (aelter als 50s) durchsuchen und diese entfernen for (my $i=1; $i<=$#sa; $i+=2) { if ($sa[$i] < (time - 50)) { # ist zeitstempel schon aelter als 50s? $sa[$i] = "//2delete"; $sa[$i-1] = "//2delete"; # zu loeschende eintraege mit //2delete ersetzten } } # alle Felder mit //2delete entfernen my $templsa = $#sa; # Laenge von @sa wird in templsa gespeichert; for (my $i=0; $i<=$templsa; $i++) { my $temp = shift(@sa); if ($temp ne "//2delete") { push(@sa,$temp); } } $safile = join(';;', @sa); open (SAFILE, ">$data_dir/$data_stillalive_file"); flock(SAFILE,2) if ($flocking == 1); print SAFILE $safile; close SAFILE; for (my $i=0; $i<=$#sa; $i+=2) { print $sa[$i]."
\n"; } }