Здравствуйте дорогие читатели ! 

Несколько дней назад вышел в свет новый 4-ый выпуск журнала Wmaster. В нём собраны новые статьи, которые ВЫ присылали НАМ.... Скачивайте и читайте. Подробности на http://www.wmaster.ru/wj.htm 

Также по просьбам многих читателей я постараюсь консультировать и отвечать на вопросы по e-mail. Вы будуте получать ответ лично от меня по e-mail и вопросы будут приниматься только на адрес rass@wmaster.ru .

Принимаются вопросы по темам:

1. Платный российский хостинг - rass@wmaser.ru?subject=Vopros-Hosting 

2. Заработок в Интернет - rass@wmaster.ru?subject=Vopros-Zarabotok 

3. Раскрутка сайта - rass@wmaster.ru?subject=Vopros-Raskrutka 

Вопросы будут приниматься только по этим ссылкам.

Продаются 100 000 показов RLE Classic 100*100 за 3$. Обращаться на mail@wmaster.ru с темой "Показы RLE". Деньги прнинимаются в webmoney.

На сайте  изменились тарифы на рекламу на сайте www.wmaster.ru :))) В 2 раза :) Спешите !!!! Так как это не надолго :))) Также хочу сказать, что вы можете публиковаться в наших рассылках тоже. Если ваша статья информативного характера то вы публикуетесь бесплатно (указываете в статье адрес вашего www-сайта и e-mail). А если вы хотите рекламировать ваш сайт и ваша статья только о вашем сайте и его сервисах, то вы заплатив всего 3,5$ [по webmoney] можете занять целый блок статьи и рекламировать ваш сайт сколько хотите. Мы всё опубликуем. !!!! 

Уважаемые авторы. Если вы хотите повысить посещаемость вашего сайта, вы можете присылать свои статьи в нашу рассылку. За каждую авторскую статью вы получаете 1000 показов RLE Classic 468*60 или 2000 показов RLE Classic 100*100. Также вы можете попросить поставить вашу кнопку на первую страницу нашего сайта. Ждём ваших статей. 

ValueHost : Самый популярный и профессиональный хостинг.  Лучший выбор это "План А": 200 mb, mySQL, cgi-bin, perl, PHP, FTP, неограниченно POP3 Email,  SSI, и всё это всего за $8.95 в месяц.  "Заказывайте на Valuehost !!". И если вы решились заказать хостинг у Валехост, то нажмите на эту ссылку --> ValueHost-лучший хостинг или при регистрации укажите наш промо код: 5394. Будем очень рады !

Автор: Парыгин Алексей

Источник: http://webb.bip.ru - Web Builder - Все для НАСТОЯЩИХ веб-мастеров

Что ж, сегодня мы научимся создавать простейшие счётчики для личных Web-страниц. Так как этот вопрос не раз задавался в этом журнале. Конечно, все ниже описанное ни коим образом не посягает на идеал, хотя бы потому, что это один из первых моих счётчиков, а может потому, что мне пока 16...
не знаю, но знаю точно, что это РАБОТАЕТ!
Итак, начнём. Разберёмся, какие действия должен выполнять
наш счётчик:
1. считать общее количество посетителей
2. считать число уникальных посетителей за день
Теперь обозначим, где будут хранится данные. Я думаю, что удобнее всего их хранить в текстовых файлах, причём таковых будет два: в первом будет храниться вся статистика (т.е. и хиты и хосты). А второй текстовый файл нам очень пригодиться для хранения базы IP.
Когда посетитель будет заходить на нашу страничку впервые, то его IP занесётся в базу (чтобы его впредь больше не считать уникальным), в текстовом файле произойдут изменения: увеличатся значения хитов и хостов
на 1. Теперь, допустим, тот же человек, с тем же IP заходит повторно к нам на пагу. Перед тем, как увеличить статистику, следует порыскать в нашей базе, и если такого IP за этот день там нет, значит можно спокойно конкатенировать и то и другое, если же есть, то увеличиваем только хиты.
Следует заметить, что в базе IP, кроме самих IP будут храниться дни посещения.
И если любой пользователь зайдёт на сайт, допустим, через неделю, и он был единственным за это время то, следовательно база устарела и в результате из неё будут вычищены прошлые данные.
Вот собственно код:

#!/usr/local/bin/perl
# Объявляем переменные
# Получаем день и номер месяца, хотя остальное не используется
# но удалять что-либо нельзя, т.к. присвоение идёт
# в контексте списка.
my ($sec, $min, $hour, $day, $mon) = localtime(time);

# в путь к файлу гле будут IP
my $IpFile = "/shttps/WWW/COUNT/ip.txt";

# в путь к файлу где будет лежать статистика
my $CountFile = "/shttps/WWW/COUNT/count.txt";

# ваш IP
my $ip = $ENV{'REMOTE_ADDR'};

# переменная-флаг, проверяющая IP на уникальность
my $new = "true";

# эта функция используется для обновления (перезаписи)
# статистики и для добавления новых IP в базу
sub WriteBase
{
# 1 параметр - путь для записи в файл
# 2 параметр - отвечает за перезапись или добавление данных
$path = $_[0];
$bit = $_[1];
if ($bit == 2){open COUNTFILE, ">$path"}
elsif ($bit == 3){open COUNTFILE, ">>$path"}
flock(COUNTFILE); # чтобы юзвери в один файл разом не
# ломились, "блокуем" его до закрытия
# правда у меня в винде эта фича не проходит,
# но в UNIX должна, если нет - ПИШИТЕ!
# если у вас Win9x - то уберите ВЕЗДЕ её
for ($i=2; $i<=$#_; $i++)
{
print COUNTFILE "$_[$i]\n";
}
close COUNTFILE;
}

# эта функция используется для чтения данных
sub ReadBase
{

# ей нужен только 1 парам. - путь для чтения
$path = $_[0];
open COUNTFILE, "<$path";
flock(COUNTFILE)
@count = <COUNTFILE>;
close COUNTFILE;
chomp($hits = @count[0]); # читаем кол-во хитов
chomp($hosts = @count[1]); # читаем кол-во хостов
}


# здесь мы сравниваем сумму числа месяца и номер месяца текущих
# с суммой, которая была записана раннее, при чьём-нибудь
# заходе на страницу. И если прошлая запись старая, т.е.
# допустим, это был день назад, то удаляем ко всем чертям
# эти старые записи с IP, чтобы позволить в любой другой
# день пользователю быть УНИКАЛЬНЫМ! Без этой проверки
# IP хранились бы вечно (+ занимали бы место и усложняли чтение)
# и пользователь, посетив раз эту страницу
# уже не был бы уникальным НИКОГДА.

open IP, "<$IpFile";
flock(IP)
while(<IP>)
{
if (/ (\d+)/ && $1<$day+$mon)
{
close IP;
unlink $IpFile; # ко всем чертям старую базу!
&ReadBase($CountFile); # читаем статистику
&WriteBase($CountFile, 2, $hits, 0); # сохраняем хиты, обнуляем хосты
}
}
close IP;

# проверка юзверя на уникальность
open IP, "<$IpFile";
flock(IP)
while(<IP>)
{
if (/$ip $day+$mon/)
{
$new = "false"; last;
}
}
close IP;

# ежели уникален, то...
if ($new eq "true")
{
&WriteBase($IpFile, 3, "$ip $day+$mon"); # пишемся в базу
&ReadBase($CountFile); # читаем статистику
$hits++;
$hosts++;
&WriteBase($CountFile, 2, $hits, $hosts); # обновляем всю статистику

# если юзверь еще раз ломится на пагу, то...
else
{
&ReadBase($CountFile); # читаем базу
$hits++; # обламываем его с хостами, но не с хитами
&WriteBase($CountFile, 2, $hits, $hosts); # прежний хост и новый
&ReadBase($CountFile); # хит
}

# выводим всю эту инфу в своеобразный каунтер
# мой с виду не отличить от натурального.
# рисуем картинку 88/31 и пишем её в Бекграунд
print "Content-type:text/html\n\n";
print qq\ # чтобы Принты сотню раз не печатать
<div style="pdding-left:3px;width:88px;height:31px;
background-image:URL(cgi-bin/counter.gif);
border-width:1px; border-style:solid; border-color:black;
font-family:Verdana;font-size:10px;color:white;text-align:right;line-height:13px">
$hits<br>
$hosts<br>
</div>\;

КАК ВСТРОИТЬ СЧЁТЧИК
Для работы счётчика достаточно иметь любой сервер с поддержкой Perl и SSI. С помощью второго мы можем вставить
наш счётчик в любое место страницы вот так:
<!--#exec cgi="counter1.pl"-->
для скрипта права 755
для текстовых файлов 666

Ну... вот вроде бы и всё :)
Для новичков, возможно, сложно, но я сам полторы недели как новичок... был. На самом деле главное понять принцип, вы и сами сможете
написать что-то подобное или даже лучшее, никто вас не ограничивает. Меня ограничил лишь световой день. Perl советую всем!
Он не лёгок, но две недели практики в писании скриптов, вам окупятся! Удачи!

С уважением, UzesCCron.
e-mail: prodesign@mail.ru 

 Сайт Wmaster.ru шаблоны красивых web-дизайнов, где используются стили и графика. Один шаблон стоит всего 4$. Всего за 4$ вы станете обладателем красивого дизайна. Обращаться на e-mail mail@wmaster.ru c пометкой "Шаблон". Перевод денег осуществляется в WEBMONEY.

1. www.pfpl.ru - Сайт Питерской футбольной премьер лиги. На сайте вы найдёте много инфы о футболе соответственно :) Дизайн и стили удобно сочитаются и навигация тоже удобна, даже придраться некчему :) 

Вопрос №55

Как на java script добавить в конец текстового поля (в форме) текстовую строку?  Ответить

Вопрос №56

Как на java script отправить текст, сформированный в текстовом поле (1), по заданному email-у?  Ответить

 Вопрос №57

Подскажите, как осуществить вещание в интернете своей радиостанции. Ответить

y

№52

У нас локальноя сетка. И в ней сделан сайтик. Как сделать форму, чтобы после заполнения (вставка фото и т.п.)данные из нее переносились
в текстовый файл, а также на мыло (письмо отправляется, но с пустым телом)?

Ответ от нашего Эксперта-Arekusa

Форма делается обычно, разве что в поле action тега form должен быть
указан путь к скрипту, который будет размещать данные из формы на диске
и отсыла ть письмо.

Ответ от UzesCCron

Это всё с лёгкостью реализуется на Perl.
Т.к. на подобные квесчинзы конкретики мало, я это исправлю.
И вообще! Все должны своим делом заниматься!
Наймите программера - он всё сделает! А уж если ваш сисадмин
не знает Perl - увольняйте...
Делаем формочку (буду краток) типа:
<form action="http://server_lamer_admina/cgi-bin/write.pl">
<input type="text" name="text"><input type="submit">
</form>

пишем скрипт [write.pl]:
#!/usr/local/bin/perl # или где там у вас...
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split (/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9]{2})/pack('C', hex($1))/ge;
$FORM{$name} = $value;
}
# ну... проверку на предмет ошибок ваш админ сделает
$text = $FORM{'text'};
$save = "путь_к_файлу";
unless (-e $save){open FILE, ">$save"; close FILE};
open FILE, ">>$save";
print FILE "$text\n";
close FILE;
--------------
так мы записываем текст из формы в базу,
хотите получить ТО, что хотите ВЫ - пишите лично ;)

Ответ от Alexander Lysenko

Просто запускаешь сайт в браузере (ну пишешь http://your_site.com) если у тя стоит апач и ты все парвильно настроил должно работать.....Просто пишешь скрипт который загружает файл заданный пользователем........ <input type="file"потом обрабатываешь форму... всеА насчет почты те надо чтобы сообщение отправлялось в Интернет на почту или у вас же в локалке????Напиши более подробно что тебе конкретно нужно... постараюсь помочь.

№53
Где найти инструкцию по файлам .htaccess и .htpasswd?

Ответ от нашего Эксперта-Arekusa

В Яндексе - полно ссылок

Ответ от pablo

http://forum.21.ru/faq/htaccess.html 

Ответ от Alexander Lysenko

Вот читай статью моего знакомого Павла из Астаны http://www.wmaster.ru/htaccess 

№54

Где найтй Perl-скрипт, отправляющий форму на определенный e-mail?

Ответ от нашего Эксперта-Arekusa

Эээ, в любом каталоге скриптов...

Ответ от UzesCCron

Гы-гы-гы! Самому писать лучше =)
Мой пример (ответ на 52) демонстрирует сохранение данных в текстовом файле,
чтобы отправить данные из формы на e-mail, нужна прога
sendmail (либо другой web-mailer), если она есть, то простейший вариант отправки выглядит так
(вместо кода с сохранением, вставляй это):
$mailer = "путь к мейлеру";
open MAIL, "|$mailer -oi -t";
print MAIL <<"MESSAGA";
From: имя <ваше_\@мыло_сер>
To: имя <имя_\@пипла>
Subject: тема
Ваша мессага
MESSAGA # точку с запятой не ставить!
close MAIL;
ну вот и всё :)

Ответ от Alexander Lysenko

on TOP (наверх)

Вам предствлены темы нашего форума http://forum.wmaster.ru . Чтобы пообщаться или задать вопрос зайдите на www.forum.wmaster.ru 

  Оглавление y

   Для того, чтобы повысить рейтинг вашего ресурса и стать другом, вы должны поставить кнопку нашего портала на главную страницу вашего сайта и сообщить его адрес и  краткое описание по e-mail: rass@wmaster.ru с темой "klub". Принимаются все сайты с посещаемостью не менее 10 человек в день, кроме порно-сайтов, и сайтов о заработке в Интернете.

Вот код кнопки:

<!-- Начало кода кнопки Wmaster -->

<a href="http://www.wmaster.ru" target=_blank> <img src="http://www.wmaster.ru/88x31.gif" width=88 height=31 border=0 alt="Wmaster дизайн портал - всё для web-дизайнера" > </a>

<!-- Конец кода кнопки Wmaster-->

Ждём заявок.