» Главная
eXcode.ru » Статьи » Perl
» Новости
» Опросы
» Файлы
» Журнал



Пользователей: 0
Гостей: 6





Чат на Perl.




Автор: Ковязин Дмитрий, P-Lib(www.p-lib.narod.ru)

Написание чата ничем особенным не отличается. Та же запись в файлы, чтение из них информации и вывод ее на экран. Однако есть кое-какие тонкости. Сообщения в чат поступают в режиме реального времени, поэтому для поддержания этого режима необходимо периодически обновлять содержимое html-страницы. Это осуществляется с помощью мета-инструкции <meta http-equiv="Refresh" content="10"> .В данном случае будем обновлять страницу с интервалом в 10 секунд, этого вполне достаточно. Итак, приступим непосредственно к чату. Для удобства, разобьем его как и форум на части и рассмотрим каждую в отдельности.
Вход в чат

Сгенерируем форму для входа в чат.


<html>
<style>
BODY
{
background-color:#e6e8fa;font-family:arial;font-size:10pt;color:#000080;
}
</style>
<body>
<h3 align=center><font color="ff0000">Вход в чат.</font></h3>
<form action="chat.cgi" method="GET">
<table align=center>
<tr><td>Введите ваш ник:<td><input type="text" name="nick" size=20>
<tr><td>Выберите цвет сообщений:<td><select name="color">
<option>black</option>
<option>red</option>
<option>blue</option>
<option>green</option>
<option>darkred</option>
<option>yellow</option>
</select>
<tr><td colspan=2><input type="hidden" name="enter" value="1">
<tr><td colspan=2><input type="hidden" name="action" value="login">
<tr><td colspan=2><input type="submit" value="Enter">
</table>
</form>
</html>


Посетитель выбирает себе ник и цвет, под которым будут выводиться его сообщения. Далее,скрипт получает эти данные и обрабатывает их.



#!/usr/local/bin/perl
$request=$ENV{′REQUEST_METHOD′};
$content=$ENV{′CONTENT_LENGTH′};
$file="chat.txt"; # Файл для записи сообщений
$syslog="log.txt"; # Cистемный журнал
$online="online.txt"; # Файл для записи онлайновых посетителей.
$dir="f:/usr/local/apache/cgi-bin";
$path="f:/usr/local/apache/cgi-bin/images/";
# Путь к папке с картинками (смайликами)
# Назначаем переменные для смайликов.
@images=([smile.gif],"frown.gif","redface.gif","biggrin.gif","wink.gif",
[tongue.gif],"cool.gif","rolleyes.gif",
[mad.gif],"eek.gif","confused.gif");
$img0=$images[0];
$src0="$path$img0";
$img1=$images[1];
$src1="$path$img1";
$img2=$images[2];
$src2="$path$img2";
$img3=$images[3];
$src3="$path$img3";
$img4=$images[4];
$src4="$path$img4";
$img5=$images[5];
$src5="$path$img5";
$img6=$images[6];
$src6="$path$img6";
$img7=$images[7];
$src7="$path$img7";
$img8=$images[8];
$src8="$path$img8";
$img9=$images[9];
$src9="$path$img9";
$img10=$images[10];
$src10="$path$img10";
if ($request eq ′GET′) {
$query=$ENV{′QUERY_STRING′};
} else {
sysread(STDIN,$query,$content);
}
# Функция для декодирования полей форм.

@pairs = split(/&/, $query);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack([C], hex($1))/eg;
$name =~ s///g;
$name =~ s/<([^>]|n)*>//g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack([C], hex($1))/eg;
$value =~ s///g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/n//g;
$value =~ s/cM/ /g;
$value =~ s/|/ /g;
$value =~ tr/ / /s;
$value =~ s/<([^>]|n)*>//g;
$value =~ s/"/"/g;
$value=~s/:)/<img src=′$src0′>/g;
$value=~s/:(/<img src=′$src1′>/g;
$value=~s/:o/<img src=′$src2′>/g;
$value=~s/:D/<img src=′$src3′>/g;
$value=~s/;)/<img src=′$src4′>/g;
$value=~s/:p/<img src=′$src5′>/g;
$value=~s/:cool:/<img src=′$src6′>/g;
$value=~s/:rolleyes:/<img src=′$src7′>/g;
$value=~s/:mad:/<img src=′$src8′>/g;
$value=~s/:eek:/<img src=′$src9′>/g;
$value=~s/:confused:/<img src=′$src10′>/g;
$input{$name} = $value;
}
#####################Вход в чат#########################
($action eq [login]) && do {
# Получаем переменные
$enter=$input {′enter′};
$color=$input {′color′};
$nick=$input {′nick′};
$time=scalar localtime;
if ($enter eq [1]) {
# Проверяем,ввел ли посетитель ник и если да то записываем в системный
# журнал имя и время входа.
if ($nick ne "") {
open (LOG,">>$syslog");
$string="Системное сообщение: $nick вошел в чат $time";
print LOG [$stringn];
close (LOG);
# Добавляем имя посетителя также в файл для показа онлайна.
open (NET,">>$online");
print NET [$nickn];
close (NET);
# Установим количество записей в журнале. Я выбрал их равным 10.
open (LOG,"$syslog");
@strings=<LOG>;
$count=@strings;
close (LOG);
# Если их количество больше 10, удаляем
самую первую запись и перезаписываем журнал.
if ($count>10) {
shift (@strings);
}
open (LOG,">$syslog");
print LOG @strings;
close (LOG);
# Теперь посетитель находится в чате и может добавлять сообщения.
# Генерируем форму.
print [Content-type:text/htmlnn];
print <HTML;
<html><style>
BODY {background-color:#e6e8fa;font-family:arial;font-size:10pt;color:#000080;}
</style>
<body>
<center><h3>Здравствуйте,<font color="$color">$nick!</font></h3>
Вы успешно вошли в чат.

Вы можете добавлять ваши сообщения.Ваш цвет-<font
color="$color">$color</font>.</center>
<form action="chat.cgi" method="GET" ID="Form1">
<input type="hidden" name="action" value="add" ID="Hidden1">
<input type="hidden" name="nick" value="$nick" ID="Hidden2">
<input type="hidden" name="color" value="$color" ID="Hidden3">
<input type="hidden" name="send" value="1" ID="Hidden4">
<table align=center ID="Table8">
<tr><td><textarea name="message" wrap="virtual" rows=5 cols=40 ID="Textarea1"></textarea>
<td><input type="submit" value="Отправить" ID="Submit1" NAME="Submit1"></form><p>
<form action="chat.cgi" method="GET" ID="Form3">
<input type="hidden" name="action" value="add" ID="Hidden5">
<input type="hidden" name="nick" value="$nick" ID="Hidden6">
<input type="submit" value="<<Выход>>" ID="Submit2" NAME="Submit2">
</form>
</table>
HTML
}
# Если посетитель не ввел ник,выдается ошибка.
else {
print [Content-type:text/htmlnn];
print <<HTML;
<html><style>
BODY {background-color:#e6e8fa;font-family:arial;font-size:10pt;color:#000080;}
</style>
<body>
<h3 align=center>Вы не ввели ник!</h3>
Пожалуйста,вернитесь и введите ник.
<p><center><a href="chat.cgi?action=login">Назад</a></center>
HTML
}
}


Добавление сообщения в чат

После того, как посетитель ввел сообщение и нажал кнопку [Отправить], сообщение записывается в файл. Ник посетителя и цвет сообщений передаются в скрытых полях формы.



#########################Добавление
сообщения#########################
($action eq [add]) && do {
$time=time; # Получаем текущее время в секундах.
$time1=scalar localtime; # Время в нормальном формате.
$nick=$input {′nick′};
$color=$input {′color′};
$send=$input {′send′};
$exit=$input {′exit′};
$message=$input {′message′};
# Если посетитель нажал кнопку [Отправить].
if ($send eq [1]) {
# Проверяем,чтобы поле сообщения не было пустым.
if ($message ne "") {
# Если все ОК открываем файл на добавление и записываем данные.
open (FILE,">>$file");
$string=join (′&′,$nick,$time,$color,$message);
print FILE [$stringn];
close (FILE);
# Читаем файл в массив и подсчитываем количество сообщений.
open (FILE,"$file");
@lines=<FILE>;
$count=@lines;
close (FILE);
# Устанавливаем количество сохраняемых сообщений равным 20.
# Если этот лимит превышен,первое сообщение удаляется и т.д.
if ($count>20) {
shift (@lines);
}
# Перезаписываем измененный файл.
open (FILE,">$file");
print FILE @lines;
close (FILE);
# Сообщение записано и через 10 секунд появится на экране.
# Снова выводим форму для отправки сообщения.
print [Content-type:text/htmlnn];
print <<<HTML>;
<html><style>
BODY {background-color:#e6e8fa;font-family:arial;font-size:10pt;color:#000080;}
</style>
<body>
<center><h3>Новое сообщение.lt;/h3>
Вы уже в чате.Добавьте новое сообщение.
<вr>Ващ ник-<font color="$color">$nick</font>,цвет-<font color="$color">
$color</font>.</center>
<form action="chat.cgi" method="GET">
<input type="hidden" name="action" value="add">
<input type="hidden" name="nick" value="$nick">
<input type="hidden" name="color" value="$color">
<input type="hidden" name="send" value="1">
<table align=center>
<tr><td><textarea name="message" wrap="virtual" rows=5 cols=40></textarea>
<td><input type="submit" value="Отправить"></form><p>
<form action="chat.cgi" method="GET">
<input type="hidden" name="action" value="add">
<input type="hidden" name="nick" value="$nick">
<input type="submit" value="<<Выход>>">
</form>
</table>
<HTML>
}
# Если посетитель не ввел сообщение.
else {
print [Content-type:text/htmlnn];
print <<<HTML>
<html><style>
BODY {background-color:#e6e8fa;font-family:arial;font-size:10pt;color:#000080;}
</style>
<body>
<center><h3>Ошибка!</h3>
Поле сообщения не должно быть пустым.

Ваш ник-<font color="$color">$nick</font>,цвет-
<font color="$color">$color</font>.
<form action="chat.cgi" method="GET">
<input type="hidden" name="action" value="add">
<input type="hidden" name="nick" value="$nick">
<input type="hidden" name="color" value="$color">
<input type="hidden" name="send" value="1">
<table align=center>
<tr><td><textarea name="message" wrap="virtual" rows=5
cols=40></textarea>
<td><input type="submit" value="Отправить"></form><p>
<form action="chat.cgi" method="GET">
<input type="hidden" name="action" value="add">
<input type="hidden" name="nick" value="$nick">
<input type="submit" value="<<Выход>>">
</form>
</table>
<HTML>
}


Выход из чата

Если посетитель нажал кнопку [Выход].


#######################Выход из чата#########################

} else
{
# Записываем сообщение в системный журнал.
open (LOG,">>$syslog");
$string="Системное сообщение: $nick вышел из чата $time1";
print LOG [$stringn];
close (LOG);
# Снова удаляем лишние сообщения.
open (LOG,"$syslog");
@strings=<LOG>;
$count=@strings;
close (LOG);
if ($count>10) {
shift (@strings);
}
# Перезаписываем файл.
open (LOG,">$syslog");
print LOG @strings;
close (LOG);
# Говорим посетителю до свидания :)
print [Content-type:text/htmlnn];
print <<<HTML>;
<html><style>
BODY
{background-color:#e6e8fa;font-family:arial;font-size:10pt;color:#000080;}
</style>
<body>
<h3 align=center>Спасибо за посещение нашего чата,
<font color="0000ff">$nick</font>!</h3>
Заходите еще!
<p><center><a href="chat.cgi?action=login">Войти в чат</a></center>
<HTML>
# Удаляем посетителя из онлайна.Для этого обновляем файл online.txt
open (NET,"$online");
@users=<NET>; # Читаем содержимое
foreach $user (@users) {
if ($user !~ /$nick/) { # Сравниваем ник посетителя,выщедшего из чата с каждым
# ником в файле и если они не равны помещаем их в массив.
push (@online,$user);
}
}
close (NET);
# Перезаписываем файл уже без ушедшего посетителя.
open (NET,">$online");
print NET @online;
close (NET);
}
#Таким образом поддерживается самая свежая информация


о посетителях, или я не прав? x:)))

Показ посетителей,в данный момент находящихся в чате


########################Кто в онлайне#########################
($action eq [online]) && do {
# Эта страница также будет обновляться каждые 10 секунд.
print [Content-type:text/htmlnn];
print <<<HTML>;
<html><meta http-equiv="Refresh" content="10"><style>
BODY
{background-color:lightsteelblue;font-family:arial;font-size:10pt;}
</style>
<body>
# Выводим на экран табличку со смайликами.
<p><h5 align=center><font color="000080">Смайлики</font></h5>
<p><table align=center width=100>
<tr><td><img src="$path$img0"><td><font color="000000">:)</font>
<tr><td><img src="$path$img1"><td><font color="000000">:(</font>
<tr><td><img src="$path$img2"><td><font color="000000">:o</font>
<tr><td><img src="$path$img3"><td><font color="000000">:D</font>
<tr><td><img src="$path$img4"><td><font color="000000">;)</font>
<tr><td><img src="$path$img5"><td><font color="000000">:p</font>
<tr><td><img src="$path$img6"><td><font color="000000">:cool:</font>
<tr><td><img src="$path$img7"><td><font color="000000">:rolleyes:</font>
<tr><td><img src="$path$img8"><td><font color="000000">:mad:</font>
<tr><td><img src="$path$img9"><td><font color="000000">:eek:</font>
<tr><td><img src="$path$img10"><td><font color="000000">:confused:</font>
</table>
# Отображаем список посетителей.
<h5 align=center><font color="000080">Кто в онлайне.</font></h5>
<HTML>
# Здесь я предусмотрел очистку файла online.txt через 3 минуты после бездействия чата.
# Ни к чему хранить давние сообщения. Системный журнал и файл с сообщениями также очищаются
# после 3 минут бездействия, как вы увидите дальше.
# Сравниваем время модификации файла с текущим временем.
$cur_time=time;
$stat3=(stat ([$online]))[9];
$diff3=$cur_time-$stat3; # Вычисляем разность
# Если разность более 180 секунд, перезаписываем файл пустым значением.
if ($diff3>180) {
open (NET,">$online");
print NET "";
close (NET);}
# Дальше выводим собственно список.
open (NET,"$online");
@lines=<NET>;
$count=@lines;
if ($count!=0) {
print [<table bgcolor=]e6e8fa" align=center width=80 cellspacing=0
border=1 bordercolor="000000"><tr><td>n";
foreach $line (@lines) {
print [<font face=]serif" size=2 color="0000ff">[,$line,]</font>
[;
}
}
close (NET);
print <<<HTML>;
</table><p> <center><a href=]chat.cgi?action=login" target="second">Войти в чат</a></center>
<HTML>

Вывод системного журнала

В системный журнал пишутся сообщения о входе в чат и выходе из него. Он постоянно динамически обновляется. Для вывода его на экран читаем файл syslog.txt

##############Вывод системного журнала###############
($action eq [log]) && do {
# Здесь,в принципе все просто. Открываем файл, читаем и выводим на экран.
print [Content-type:text/htmlnn];
print <<<HTML>;
<html><meta http-equiv="Refresh" content="10">
<body bgcolor="0000ff" text="ffffff">
<HTML>
# Снова проверяем время модификации файла, и если оно больше 180 секунд очищаем его.
$cur_time=time;
$stat2=(stat ([$syslog]))[9];
$diff2=$cur_time-$stat2;
if ($diff2>180) {
open (LOG,">$syslog");
print LOG "";
close (LOG);
}
# Выводим сообщения на экран,начиная с последнего.
open (LOG,"$syslog");
@lines=<LOG>;
@strings=reverse @lines;
foreach $string (@strings) {
print $string,"
[;
}
close (LOG);
};


Вывод сообщений

Здесь тоже ничего особенного. Просто выводим сообщения на экран, каждые 10 секунд обновляя его.


###################Чтение cообщений########################
($action eq „read“) && do {
print „Content-type:text/htmlnn“;
print <<<HTML>;
<html><meta http-equiv=]Refresh" content="10">
<style>
BODY
{background-color:#e6e8fa;font-family:arial;font-size:10pt;}
</style>
<body>
<HTML>
# Файл с сообщениями также очищается после 180 секунд бездействия.
$cur_time=time;
$stat1=(stat ([$file]))[9];
$diff1=$cur_time-$stat1;
if ($diff1>180) {
open (FILE,">$file");
print FILE "";
close (FILE);
}
# Читаем сообщения и выводим на экран, начиная с последнего.
open (FILE,"$file");
@lines=<FILE>;
@items=reverse (@lines);
foreach $item (@items) {
@string=split (/&/,$item);
$time=localtime ($string[1]);
print <<<HTML>;
<font color="$string[2]">$string[0]</font> $time

<font color="$string[2]">$string[3]</font>
<center><hr width=80% noshade size=1></center>
<HTML>
}
close (FILE);


Главная страница

Вот мы и добрались до главной страницы, на которой, собственно, и происходит все это. Она представляет собой набор фреймов, в каждом из которых производятся совершенно независимые действия.


########################Главная страница#########################
if ($query eq "") {
print [Content-type:text/htmlnn];
print <<<HTML>;
<html><head></head>
<style>
A:link {text-decoration:none;font-family:arial;font-size:10pt;color:#000080; }
A:hover {text-decoration:none;font-family:arial;font-size:10pt;color:#ff0000; }
A:visited {text-decoration:none;font-family:arial;font-size:10pt;color:#000080; }
</style>
<frameset cols=20%,*>
<frame name="left" src="chat.cgi?action=online">
<frameset rows=50%,10%,*>
<frame name="first" src="chat.cgi?action=read">
<frame name="2" src="chat.cgi?action=log">
<frame name="second" src="chat.cgi?action=login">
</frameset>
</frameset>
<HTML>
}

К началу статьи





Добавил: MadvEXДата публикации: 2005-05-31 16:57:28
Рейтинг статьи:3.00 [Голосов 5]Кол-во просмотров: 26910

Комментарии читателей

Всего комментариев: 311

2017-10-14 03:22:55
teplopek
Представленный онлайн-проект предоставляет вам много сведений о таком факте, каким образом сделать ремонт в квартире, в доме, а то и совсем воздвигнуть его целиком. Согласитесь, в случае, если взяться за подобное самому, то сможете сэкономить раза в два, а то и более.

Разделы нашего ресурса подразумевают, что вы собираетесь конкретно искать данные о том или ином этапе строительства или ремонта. Для начала нужно будет приобрести сами материалы, из чего строить, что эффективнее использовать, какой материал нужен конкретно вам. Соответствующий раздел несомненно поможет вам в этом. Дальше сам процесс, трудности и особенности. И в случае, если вы даже прочитав все, что мы можем вам предложить, не уверенны в своих силах, то может быть имеет смысл нанять профессионалов.

А вот делать ремонтные работы – это уже смогут многие, преимущественно в нашей державе, в какой любой мужчина, да и многие женщины – истинные мастера, каким привычно держать молоток в руке. Поэтапно и тщательно делая ремонт в доме или квартире вы имеете возможность создать тот уют и комфорт, которого вы заслуживаете и о каком желали.


[url=http://teplovdome2.ru/postroim/remont-betonnogo-i-derevyannogo-pola-pod-ukladku-laminata.html]http://teplovdome2.ru/[/url]

2017-09-25 00:47:44
Larryasymn
Приобрести сироп Mangoosteen можно на веб-сайте http://mangystin.bxox.info

Предлагаем нашим покупателям инновационное средство для похудения сироп Мангустина. С его помощью возможно избавиться от 15 кг за 14 суток.

Дерево мангкут растет в Малайзии. Плоды растения обладают удивительными свойствами, которые были взяты за основу средства Mangoosteen. В банке содержится около 20 плодов данного замечательного дерева. Плоды дерева гарциния помогают убрать излишнею жировую ткань. Также положительно влияют на организм в целом. Специфика производства препарата, а также уникальная упаковка помогают сохранить все удивительные свойства мангостина.

Главным действующим веществом сиропа Мангустина являются фрукты с растения мангостан, в них имеется огромное количество полезных веществ. Благодаря компоненту ксантону, которое в больших количествах содержатся в плодах, сильно притормаживаются окислительные процессы в теле. Ксантон считается одним из наиболее сильных антиоксидантов. В плоде дерева мангустин к тому же содержатся разнообразные группы витаминов и элементы. Купить сироп Мансустина возможно на интернет-сайте http://mangjoo77.mangoosteen.com.


2017-09-23 07:27:50
Larryasymn
Приобрести сироп Mangoosteen можно на веб-сайте http://mangystin.bxox.info

Хотим предложить нашим покупателям удивительное средство для снижения веса Mangoosteen. С его помощью реально сбросить около 10 килограмм за 14 суток.

Дерево мангкут растет в Таиланде. Плоды этого растения имеют потрясающие особенности. В банке содержится более 25 плодов этого замечательного растения. Плоды дерева мангкут помогают сжечь излишнею жировую ткань. Также отлично влияют на человека в комплексе. Специфика производства препарата, и уникальная упаковка помогают сберечь все удивительные свойства мангостана.

Главным веществом сиропа Мангустина являются плоды с растения мангостан, в которых имеется большое число питательных элементов. Благодаря компоненту окиси дифениленкетона, которое в громадных количествах содержатся в плодах, значительно замедляются окислительные процессы в теле. Окись дифениленкетона признана одним из самых мощных антиоксидантов. В плоде дерева мангостан также содержатся разные витамины и микроэлементы. Купить сироп Mangoosteen можно на сайте http://mangjoo77.mangoosteen.com.


2017-09-21 08:12:41
Robertnig
Propolis Gelée Royale; Knochen und Gelenke; Ebenso wie Calcium spielt der Mineralstoff Magnesium eine wichtige Rolle für eine normale Nerven-. Nebenwirkungen von Gelée Royale.Gelée Royale Krampf; Culturale. Kaufen Sie 100% reines Gelee Royale jetzt im Aspermühle Onlineshop - Jetzt günstig und sicher Gelee Royale bestellen - Gelee Royal. Royale, Royal Jelly, Bienengift, Bee Poisen, Bienenwachs, Schuppenflechte / Psoriasis Gesund Backen und Kochen mit Honig Mit Propolis-Creme.Find and save ideas about Propolis creme on Pinterest. Propolis ist also ein Baustoff der Honigbienen. Haftungsausschluss / Disclaimer.Propolis - ein von Bienen hergestelltes Harz - zeigte in Studien vielversprechende Ergebnisse für eine verbesserte und schnellere Wundheilung.Nicht nur Menschen haben Rückenschmerzen und Probleme mit den Bandscheiben, auch viele Hunde haben Bandscheibenvorfälle. Die Honigbienen schenken dem Menschen folgende Produkte, die er als Arznei oder Nahrung verwenden kann: Bienengift, Propolis und Wachs werden therapeutisch genutzt. Auch das Klima spielt bei Psoriasis eine Rolle: Unter Stress verschlechtern sich die Beschwerden bei Schuppenflechte in der Regel. Natürlichen Hanf-Salbe für schmerzende Gelenke.


Official site: http://zdorov.socaf.info

2017-09-18 16:06:20
Jamessah
АлкоБарьер – эффективное средство, которое выводит токсины из организма и устраняет тягу к спиртному. Янтарная кислота и фибрегам в составе АлкоБарьера выводят токсины из организма после приема алкогольных напитков и оказывают общеукпрепляющее действие. Уникальный растительный компонент - экстракт артишока – снимает психологическую зависимость от алкоголя.
Официальный сайт: http://alko.1stbest.info/

2017-09-17 22:38:45
Larryasymn
Приобрести сироп Mangoosteen можно на веб-сайте http://mangystin.bxox.info

Предлагаем вам инновационное средство для снижения веса Mangoosteen. При помощи него возможно сбросить около 15 килограмм за 14 дней.

Растение мангостин растет на Филиппинах. Плоды данного дерева имеют замечательные свойства. В баночке имеется около 20 плодов данного удивительного растения. Плоды с растения мангкут помогают сжечь излишнею липидную ткань. Также положительно воздействуют на человека в целом. Специфика производства средства, и специальная упаковка позволяют сберечь все удивительные свойства растения.

Основным действующим веществом сиропа Мангустина являются фрукты с растения мангустин, в них содержится огромное количество полезных микроэлементов. Благодаря компоненту окиси дифениленкетона, которое в огромных количествах содержатся в плодах, значительно притормаживаются окислительные процессы в теле. Ксантон признана одним из наиболее сильных антиоксидантов. В плоде дерева мангустин также имеются разные витамины и элементы. Приобрести сироп Мансустина можно на сайте http://mangoo77.mangoosteen.com.


2017-09-17 13:15:58
Larryasymn
Приобрести сироп Mangoosteen можно на веб-сайте http://mangystin.bxox.info

Хотим предложить вам инновационное средство для похудения сироп Мангустина. С ним реально сжечь около 15 килограмм за 14 суток.

Дерево мангкут растет в Малайзии. Плоды дерева имеют удивительные свойства. Во флаконе имеется около 25 плодов этого замечательного дерева. Плоды с дерева мангостан помогают растопить чрезмерную липидную ткань. И отлично влияют на человека в комплексе. Специфика изготовления препарата, и специальная упаковка позволяют сберечь все полезные свойства растения.

Основным компонентом сиропа Mangoosteen являются фрукты с дерева мангостан, в которых имеется большое количество полезных микроэлементов. Благодаря веществу окиси дифениленкетона, которое в громадных количествах имеется в плоде, сильно тормозятся процессы окисления в организме. Окись дифениленкетона признана одним из наиболее сильных антиоксидантов. В плоде растения мангостан также есть разные витамины и микроэлементы. Купить сироп Mangoosteen возможно на сайте http://mangoo77.mangoosteen.com.


2017-09-16 23:41:46
Larryasymn
Приобрести сироп Mangoosteen можно на веб-сайте http://mangystin.bxox.info

Предлагаем вам чудодейственное средство для похудения Mangoosteen. С его помощью возможно сбросить около 15 кг за 2 недели.

Растение мангустин произрастает в Таиланде. Плоды этого растения имеют удивительные особенности. В банке содержится более 25 плодов этого замечательного дерева. Плоды дерева мангустин помогают сжечь лишнюю липидную ткань. И также отлично влияют на организм в целом. Специфика производства средства, а также специальная упаковка позволяют сберечь все полезные свойства мангустина.

Главным веществом сиропа Мангустина являются плоды с растения гарциния, в них имеется большое число питательных микроэлементов. Благодаря веществу окиси дифениленкетона, которое в больших количествах содержатся в плоде, значительно притормаживаются процессы окисления в организме. Ксантон считается одним из наиболее мощных антиокислителей. В плодах растения гарциния к тому же есть различные витамины и элементы. Приобрести сироп Мансустина возможно на веб-сайте http://mangjoo77.mangoosteen.com.


2017-09-11 00:43:19
domLyday
С прежних времен предназначенные для жилья дома делали преимущественно из различных пород дерева. Дерево является натуральным материалом и экологически чистым. Возводить деревянный дом следует так, дабы в нём максимально сохранялось тепло и вместе с этим поступал кислород. Хвойные смолы, которые выделяет дерево, считаются превосходным антисептиком, а кроме того она может сорбировать токсические соединения, те что есть внутри жилища, в атмосфере. Именно поэтому дома желательно всего сооружать из различных пород дерева.
В каждой квартире либо частном дачном домике время от времени надо делать ремонт, будь-то поверхностный или капитальный. А вот для этого всякий раз должны быть необходимые инструменты для квартиры, Инструмент для дома чтобы в нужный час они находились под рукой, а не бегать затем по торговым центрам и разыскивать всё необходимое. Правда и какой же это в доме хозяин, ежели у него нету топора, гвоздей, молотка или обыкновенной малярной кисти. Только имея в наличии требуемые инструменты, вы непременно с лёгкостью сумеете справиться с большинством проблем и препятствий в работе, пусть даже если ремонтные работы вы делаете не своими руками.



[url=http://domokvar.ru/santechnika/kak-vibrat-trubi-dlya-domashnego-vodoprovoda]http://domokvar.ru/[/url]

2017-09-04 03:04:19
s14grEquit
Рекламное агентство «S14 Group» успешно функционирует более 10 лет на российском рынке. За это время созданная нами высококвалифицированная команда специалистов накопила солидный опыт и надежную репутацию в предоставлении рекламных работ нашим клиентам.
Самым главным принципом функционирования представленного рекламного агентства считается принцип индивидуального подхода к всякому заказчику, по этой причине наши сотрудники всегда учитываем специфику и схему Вашего бизнеса.
В любой проект мы вкладываем не только смысл и логику, но и душу, проживая это на себе. Именно поэтому наши клиенты нередко становятся нашими товарищами и мы совместно нога в ногу идем по дороге благополучия и процветания бизнеса.
Ключевые линии нашей деятельности:

Внешняя реклама.
Предприятие S14 Group имеет личную производственную базу, именно поэтому мы систематически контролируем качество и скорость производства нашей рекламной продукции. Мы сможем создать рекламную продукцию различной сложности: световые короба, объемные буквы, крышные установки, входные группы ,таблички и др. Наши квалифицированные профессионалы осуществят монтаж/демонтаж конструкций какой угодно сложности и из любых материалов.

Широкоформатная печать.
В нашем парке в наличии все нужное современное оборудование для широкоформатной печати на любых материалах. Мы можем напечатать на пленке, баннере, сетке, прозрачной пленке, полиэстере. Также у нас есть интерьерная печать с фотографическим качеством разрешения 1440 dpi для печати больших фотография, плакатов, печати на холсте и т.д.

Полиграфия.
Типография S14 Group предоставляет полиграфические услуги: визитки, листовки, буклеты, календари, POS-материалы. Мы сможем изготовить продукцию быстро и не очень большим тиражом методом цифровой печати, а кроме того большим тиражом и весьма бюджетнее методом офсетной печати.

Дизайн.
Дизайнеры фирмы S14 Group посодействуют Вам обнаружить ту рекламную идею, какая даст успех Вашему бизнесу. Мы подчеркнем индивидуальность Вашего бизнеса и сделаем его ярче и заметнее.

Фотообои.
Обои с фотопечатью будут продолжительное время услаждать Вас живописным рисунком, и не придется беспокоиться за сохранность эстетического вида, ведь красочный слой невосприимчив к царапинам. Вы можете самостоятельно выбрать изображение в нашем каталоге, либо дать свое изображение.



[url=https://s14-group.ru/design/razrabotka-logotipov/]разработка логотипа краснодар[/url]
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Вы купите понравившуюсь программу?
Да, если не найду Crack
19% (40)
С удовольствием если будут деньги
23% (48)
Нет, потомучто не знаю как заплатить
6% (12)
Нет, принципиально!
17% (37)
Нет, у меня никогда нет денег!
14% (29)
Да, если разработчик будет русским
9% (20)
Нет, не хочу париться с оплатой
13% (27)

Проголосовало: 213
Долгое время считалось, что бит неделим. Но советские учёные...
Рейтинг: 1/10 (1)
Посмотреть все анекдоты