Форум сетевых администраторов - Проблема с кодировкой FreeLove3

alexander70
Участник

Вот тект исправленного файла:

#!/usr/bin/perl
##################################################
##########
# version 3
# (c) 2000, 2001 Russian London LTD.
# www.russianlondon.com
# Nullified by TNO (T)he (N)ameless (O)ne
##################################################
##########
#update version 3.0.4 (30/10/2001)

$root_d = substr($ENV{'SCRIPT_FILENAME'},0,rindex($ENV{'SCRI
PT_FILENAME'},'/')); # program root dir
$home_dir = $ENV{'DOCUMENT_ROOT'}; # html root dir

#*************************************************
***************************
# $home_dir = "/home/websites/www.server.com"; # server home dir
# $root_d = "$home_dir/cgi-bin/fl"; # program home dir
#*************************************************
***************************
$path_to_web = $home_dir; # path to WWW

$server_name = $ENV{'SERVER_NAME'};
$script_name = $ENV{'SCRIPT_NAME'};
$buffer = $ENV{QUERY_STRING};
$program = 'love';
$timer_main = time;

if ($ENV{'SERVER_NAME'} eq 'nullifiedbytno.com') { require "rl-com-win3.lib"; }

if (-s "$root_d/rl-com3.lib") { require "$root_d/rl-com3.lib"; }
else { require "/home/sites/site1/cgi-bin/rl/rl-com3.lib"; }

&rename_setup;
&read_setup;

%hash001,%words,$regim;
$from_query_hash = '';

use CGI qw(:standard);
$query = new CGI;
$mode = &par("mode");
$email = &par("email");
$login = &par("login"); $login = &down_case_string($login);
$password = &par("password");
$file = &par("file");
$lang = &par("lang");
$background = &par("background");
if (!$lang) { $lang = $def_lang; }
if (!$lang) { $lang = 'eng'; }
if (&par('admin_lang')) { $lang=&par('admin_lang'); }
$enable_lang__ = '1';
# $lang = 'eng';

$datadir = 'data';

$set_d = "$root_d/$datadir/set";
$templ_d = "$root_d/$datadir/templates"; # темплейты страниц
$reg_d = "$root_d/$datadir/reg"; # данные регистрации
$adv_d = "$root_d/$datadir/adv"; # коды баннеров
$let_d = "$root_d/$datadir/letters"; #
$mess_d = "$root_d/$datadir/mess"; # запросы на контакт
$cron_d = "$root_d/$datadir/cron"; # имитация кронтаба и счетчики
$hlp_d = "$set_d/$lang/help"; # подсказки
$form_d = "$set_d/$lang/form"; # формочки
$words_f = "$set_d/words.$lang"; # slova na jazike lang
%words = &f_to_hash($words_f);
$userid_base_on_server = "$cron_d/daily-userid"; #
%userid_base_on_server;

$userid_name = 'fluserid';

if (($buffer =~ /admin/) || (&par('admin')) ) { $use_discl_page = 'n'; }
if ($use_discl_page eq 'y')
{
$discl_name = 'fl-discl-page';
$discl = &my_get_kuki($discl_name);
if (!$discl && (!&par('discl_yes')) && (!&par('discl_no'))) { &print_discl_page; }
else {
if (&par('discl_no')) { $url_no = &par('url_no'); print "Content-type: text/html\n\n<html><META http-equiv=\"refresh\" content=\"0; URL=$url_no\"></html>"; exit; }
if (&par('discl_yes')) { &my_set_kuki($discl_name,'ok',''); }
}
}

$userid = &my_get_kuki($userid_name);
if (!$userid)
{
$userid = &get_userid;
&my_set_kuki($userid_name,$userid,'long');
}
$timer_main = time;

$qqq = localtime $timer_main;

print "Content-Type: text/html; charset=windows-1251\n\n";
print "
\n\n";

$picdemo = '';
if ($root_d =~ /\/home\/sites\/site1\/cgi\-bin\/freelove3\/demo\//)
{
$picdemo = $root_d;
$picdemo =~ s/\/home\/sites\/site1\/cgi\-bin\/freelove3\/demo\///;
$picdemo =~ s/^\///;
$picdemo = "demo3/$picdemo";
$userid_base_on_server = "$wwwdir/$picdemo" . "pic/daily-userid"; #
}

$pic_d = "$wwwdir/$picdemo" . "pic"; # фото
$images = "$wwwdir/images"; # картинки служебные
$images =~ s/$path_to_web//;
$maincss = $wwwdir; $maincss =~ s/$path_to_web//;
$admin_email = $photo_email__;

print "<head>";
#if (($enable_main_css eq 'y') && (-s "$wwwdir/main.css")) { print "<link rel=\"stylesheet\" type=\"text/css\" href=\"$maincss/main.css\" src=\"$maincss/main.css\">"; }
print "<link rel=\"stylesheet\" type=\"text/css\" href=\"/fl3pic/main.css\" src=\"/fl3pic/main.css\">";
print "<title>$title__ </title>";
print "</head>";

if (($buffer =~ /admin/) || &par('admin'))
{
&setup;
exit;
}

print "<body topmargin=0 leftmargin=0 marginwidth=0 marginheight=0>";

if ($mode eq 'show_color') { &show_color_name; exit; }
if ($mode eq 'show_color_hex') { &show_color_hex; exit; }
if (&par('ruslon')) { &rus_lon_supp; }

if ( &par('anketa')
|| &par('del_photo')
|| &par('add_photo')
|| &par('menu_user_enter')
|| &par('userdata')
) {
if (&test_login) { &main_page; }
$userid_on_server = "~$login";
}

&write_userid_base_on_server($userid_on_server);

if (&par('menu_user_enter'))
{
$menu_user_select = &par('menu_user_select');
if ($menu_user_select eq '') { &enter; }
if ($menu_user_select eq 'anketa') { &anketa; }
if ($menu_user_select eq 'photo') { &photo; }
if ($menu_user_select eq 'messagi') { &messagi; }
if ($menu_user_select eq 'freevf') { &freevf_export; }
if ($menu_user_select eq 'vf_rating') { &vf_rating; }
if ($menu_user_select eq 'vf_remove') { &vf_remove; }
if ($menu_user_select eq 'search') { &search; }
if ($menu_user_select eq 'passw') { &user_data; }
if ($menu_user_select eq 'exit') { &main_page; }
}

if ( &par('anketa')
|| &par('del_photo')
|| &par('add_photo')
) { &anketa; }

if ( &par('messagi')
|| &par('del_mess')
) { &messagi; }

if ( &par('new_user')) { if ($reg_plus_data eq 'n') { &new_user; }
if ($reg_plus_data eq 'y') { &anketa2; }
}
if ( &par('enter')) { &enter; }
if ( &par('search')) { &search; }
if ( &par('show_user')) { &show_user; }
if ( &par('userdata')) { &user_data; }
if ( &par('lost')) { &lost_passw; }
if ( &par('add_mess')) { &add_mess; }
if ( &par('help')) { &print_help; }
if ( &par('show_user_photo')) { &show_user_photo; }
if ( $mode eq 'statistics') { &global_statistics; }
if ( $mode eq 'for_reg_user') { &for_reg_user; }
if ( !$mode) { &main_page; }

Сообщить модератору об этом сообщении | Предупреждение | IP: определен

10-12-2005 09:51

Отправить Персональное сообщение alexander70