#(С) CopyRight by AHouse
# Скрипт проверяет наличие входящих SMS
# и по-sms-но отправляет их на e-mail
# Должен быть настроен email-клиент на микротике
# DEBUGMODE "True" - будет типа отладка в лог.
-- это в батнике по расписанию
sqlcmd -S SERVERNAME -U sa -P PASSWORD -i "C:\Users\Администратор\Desktop\scripts\резервное копирование какой-то базы.sql"
-- это сам скрипт "резервное копирование какой-то базы.sql"
DECLARE @disk NVARCHAR(2) , -- буква диска
@separate NVARCHAR(1), -- разделитель (\)
@extension NVARCHAR(4) , -- расширение файла
@del_extension NVARCHAR(4) , -- расширение файла для удаления
@subdir NVARCHAR(512) , -- директории с разделением
@date NVARCHAR(11) , -- дата для именования файликов
@DeleteDate DATETIME, -- дата для удаления
@pathName NVARCHAR(512) , -- путь для сохранения
@name NVARCHAR(512) , -- просто название
@base_name NVARCHAR(20), -- имя базы с которой работаем
@hour_full_backup INTEGER; -- час , когда делаем полную копию
SET @base_name = 'db01'; -- имя базы
SET @disk = 'D:';
SET @separate = '\';
SET @extension = '.bak';
SET @del_extension = 'bak';
SET @subdir = '\admin\Backup\mssql\'+@base_name;
SET @date = datename(DW,Convert(varchar(12), GETDATE(), 112));
SET @DeleteDate = DateAdd(day, -6, GetDate());
SET @hour_full_backup = 8;
SET @pathName = @disk+@separate+@subdir+@separate;
SET @name = @base_name+'_'+@date+'_'+Convert(varchar(12), GETDATE(), 108);
EXECUTE master.dbo.xp_create_subdir @pathName;
if (DATEPART(hh,GETDATE()) = @hour_full_backup)
BEGIN
--удаляем старые файлики
EXECUTE master.sys.xp_delete_file 0,@pathName,@del_extension,@DeleteDate,1;
SET @pathName = @disk+@separate+@subdir+@separate+@date+@extension;
BACKUP DATABASE @base_name TO DISK = @pathName WITH RETAINDAYS = 1, NOFORMAT, NOINIT, NAME = @name, SKIP, NOREWIND, NOUNLOAD, STATS = 10;
USE [mosquitoff]
DBCC SHRINKFILE (N'db01') WITH NO_INFOMSGS
DBCC SHRINKFILE (N'db01_log' , 1, TRUNCATEONLY) WITH NO_INFOMSGS
-- оптимизация индексов пользовательских баз с обновлением статистики
-- это уже не к теме , но полезно
USE [master]
EXECUTE dbo.IndexOptimize @Databases = 'USER_DATABASES',
@FragmentationLow = NULL,
@FragmentationMedium = 'INDEX_REORGANIZE,INDEX_REBUILD_ONLINE,INDEX_REBUILD_OFFLINE',
@FragmentationHigh = 'INDEX_REBUILD_ONLINE,INDEX_REBUILD_OFFLINE',
@FragmentationLevel1 = 5,
@FragmentationLevel2 = 30,
@UpdateStatistics = 'ALL',
@OnlyModifiedStatistics = 'Y'
--
END
else
BEGIN
SET @pathName = @disk+@separate+@subdir+@separate+@date+@extension;
BACKUP DATABASE @base_name TO DISK = @pathName WITH DIFFERENTIAL, NOINIT, NAME = @name, SKIP, NOREWIND, NOUNLOAD, STATS = 10;
END
в результате файлы резервных копий будут "человекоудобными" и будут ложится хоть по сети , чего не получается через интерфейс studio.
Помогите пожалуйста! Купил Б/У шлюз Goip4, но не могу зайти в настройки через браузер, 92.168.8.1 СМС отправлял на симку, ответа нету. Неужели Goip4 НЕРАБОЧИЙ?
Не сталкивались с проблемой настройки связки станции и шлюза через встроенный в GoiP PPTP-VPN. У меня VPN поднимается но ни зайти в админку шлюза, ни поднять транк не выходит. В качестве VPN сервера Mikrotik на последней прошивке.
Подскажите пожалуйста, что делать если у модема e171 нет заветных /dev/cuaU1.1 и /dev/cuaU1.2 ? Есть только /dev/ugen1.2 и всё.
(по интернету много свидетельств, что e171 на моей прошивке нормально работают)
FreeBSD10.3, chan_dongle для 13 версии астериска.
Все отлично, спасибо, только вот в пункте "Настройка Микротик 2" нужно было указать, что нужно создать bridge-local, порты которого есть сам eoip-tunnel и один из ether портов.
У меня все получилось.
Ну не скажите, приобрели 2 недели назад лицензию Thinstuff, до этого в течении 2х недель тестировали на пробной версии. Программа работает хорошо, с своей задачей справляется. Для неё выход обновления, появляются новые примочки. Ещё она работает на XP , когда другие могут и не поддерживать её. Если сравнивать цену, всемирно популярного MS, которого все так любят, то цена на менее популярный продукт гораздо ниже.
Ну не скажите, приобрели 2 недели назад лицензию Thinstuff, до этого в течении 2х недель тестировали на пробной версии. Программа работает хорошо, с своей задачей справляется. Для неё выход обновления, появляются новые примочки. Ещё она работает на XP , когда другие могут и не поддерживать её. Если сравнивать цену, всемирно популярного MS, которого все так любят, то цена на менее популярный продукт гораздо ниже.
Уменя гроза унесла за один раз много чего в доме и сетевуха эта тоже сгорела. Поменял эти резюки на полноразмерные 75 ом а также резистор с квадратиком - это 0. поставил перемычку и работает уже пол года превосходно. до этого 2 года эта сетевуха лежала на полке думал не подьемная.
#(С) CopyRight by AHouse
# Скрипт проверяет наличие входящих SMS
# и по-sms-но отправляет их на e-mail
# Должен быть настроен email-клиент на микротике
# DEBUGMODE "True" - будет типа отладка в лог.
:local DEBUGMODE "False"
# EMail адрес получателя
:local DSTEMail "ahousе@mаil.ru"
:if ( $DEBUGMODE="True" ) do={/log info "sms 2 email DEBUG ...";}
/tool sms set receive-enabled=yes
:delay 30s
:local SMSMSG ""
:local SMSPHONE ""
:local SMSDate ""
:local InboxSMSCount [/tool sms inbox print count-only]
:if ( $DEBUGMODE="True" ) do={/log info "INBOX SMS Count: $InboxSMSCount";}
:if ($InboxSMSCount >0) do={
:local InBoxSMSArray [:toarray [/tool sms inbox find]]
:foreach CurrentSMS in=$InBoxSMSArray do={
:if ( $DEBUGMODE="True" ) do={/log info "SMS ID# $CurrentSMS";}
:set SMSPHONE [ /tool sms inbox get value-name=phone number=$CurrentSMS ];
:set SMSDate [ /tool sms inbox get value-name=timestamp number=$CurrentSMS ];
:set SMSMSG [ /tool sms inbox get value-name=message number=$CurrentSMS ];
:if ( $DEBUGMODE="True" ) do={/log info $SMSPHONE;}
:if ( $DEBUGMODE="True" ) do={/log info $SMSDate;}
:if ( $DEBUGMODE="True" ) do={/log info $SMSMSG;}
:if ( [:len $SMSMSG] >0 ) do={
:if ( $DEBUGMODE="True" ) do={/log info "Sending SMS 2 EMail $DSTEMail ....";}
/tool e-mail send from=rb@ahosting.net.ua to=$DSTEMail body="PHONE: $SMSPHONE\nDATE: $SMSDate\nMSG: $SMSMSG" subject="AR SMS-Gateway INBOX SMS#$CurrentSMS"
}
:if ( $DEBUGMODE="True" ) do={/log info "Clearing INBOX SMS# $CurrentSMS";}
/tool sms inbox remove numbers=$CurrentSMS
}
} else {:if ( $DEBUGMODE="True" ) do={/log info "INBOX empty";} }
:if ( $DEBUGMODE="True" ) do={/log info "Sending SMS 2 EMail COMPLITED!!!";}
-- это в батнике по расписанию
sqlcmd -S SERVERNAME -U sa -P PASSWORD -i "C:\Users\Администратор\Desktop\scripts\резервное копирование какой-то базы.sql"
-- это сам скрипт "резервное копирование какой-то базы.sql"
DECLARE @disk NVARCHAR(2) , -- буква диска
@separate NVARCHAR(1), -- разделитель (\)
@extension NVARCHAR(4) , -- расширение файла
@del_extension NVARCHAR(4) , -- расширение файла для удаления
@subdir NVARCHAR(512) , -- директории с разделением
@date NVARCHAR(11) , -- дата для именования файликов
@DeleteDate DATETIME, -- дата для удаления
@pathName NVARCHAR(512) , -- путь для сохранения
@name NVARCHAR(512) , -- просто название
@base_name NVARCHAR(20), -- имя базы с которой работаем
@hour_full_backup INTEGER; -- час , когда делаем полную копию
SET @base_name = 'db01'; -- имя базы
SET @disk = 'D:';
SET @separate = '\';
SET @extension = '.bak';
SET @del_extension = 'bak';
SET @subdir = '\admin\Backup\mssql\'+@base_name;
SET @date = datename(DW,Convert(varchar(12), GETDATE(), 112));
SET @DeleteDate = DateAdd(day, -6, GetDate());
SET @hour_full_backup = 8;
SET @pathName = @disk+@separate+@subdir+@separate;
SET @name = @base_name+'_'+@date+'_'+Convert(varchar(12), GETDATE(), 108);
EXECUTE master.dbo.xp_create_subdir @pathName;
if (DATEPART(hh,GETDATE()) = @hour_full_backup)
BEGIN
--удаляем старые файлики
EXECUTE master.sys.xp_delete_file 0,@pathName,@del_extension,@DeleteDate,1;
SET @pathName = @disk+@separate+@subdir+@separate+@date+@extension;
BACKUP DATABASE @base_name TO DISK = @pathName WITH RETAINDAYS = 1, NOFORMAT, NOINIT, NAME = @name, SKIP, NOREWIND, NOUNLOAD, STATS = 10;
USE [mosquitoff]
DBCC SHRINKFILE (N'db01') WITH NO_INFOMSGS
DBCC SHRINKFILE (N'db01_log' , 1, TRUNCATEONLY) WITH NO_INFOMSGS
-- оптимизация индексов пользовательских баз с обновлением статистики
-- это уже не к теме , но полезно
USE [master]
EXECUTE dbo.IndexOptimize @Databases = 'USER_DATABASES',
@FragmentationLow = NULL,
@FragmentationMedium = 'INDEX_REORGANIZE,INDEX_REBUILD_ONLINE,INDEX_REBUILD_OFFLINE',
@FragmentationHigh = 'INDEX_REBUILD_ONLINE,INDEX_REBUILD_OFFLINE',
@FragmentationLevel1 = 5,
@FragmentationLevel2 = 30,
@UpdateStatistics = 'ALL',
@OnlyModifiedStatistics = 'Y'
--
END
else
BEGIN
SET @pathName = @disk+@separate+@subdir+@separate+@date+@extension;
BACKUP DATABASE @base_name TO DISK = @pathName WITH DIFFERENTIAL, NOINIT, NAME = @name, SKIP, NOREWIND, NOUNLOAD, STATS = 10;
END
в результате файлы резервных копий будут "человекоудобными" и будут ложится хоть по сети , чего не получается через интерфейс studio.
Да, конечно.
Можно ли в Dial прописать вместо ${EXTEN} номер дозвона?
Добавил в статью, спасибо.
Скрипт простой, но провозился несколько часиков.
/tool sms set receive-enabled=yes
/tool sms inbox remove [/tool sms inbox find phone="5433"]
/log info "Get current ballance"
/tool sms send usb5 phone-number=5016 message="CHECKBALANCE"
#ждем смску сбаллансом
/log info "Delay 60s..."
:delay 60s
/log info "Searching Ballance message..."
:local SMSGateBallance [ :pick [/tool sms inbox get value-name=message number=[/tool sms inbox find phone="5433"]] 0 15 ]
#/log info $SMSGateBallance
:if ([:len $SMSGateBallance] >1) do={ /log info $SMSGateBallance } else={ /log info "Ballance SMS not found !!!" }
AHouse
Доброго времени.
Когда можно ожидать публикацию следующей части по разворачиванию и настройки балансировщика NetScaler?
Помогите пожалуйста! Купил Б/У шлюз Goip4, но не могу зайти в настройки через браузер, 92.168.8.1 СМС отправлял на симку, ответа нету. Неужели Goip4 НЕРАБОЧИЙ?
спасибо автору. прошил флеш мульта и ноут ожил.спасибо за прошивку!!!:HAPPY:
Нет, не использовал GoiP PPTP-VPN. Проверьте роутинги возможно, пинг проходит?
Добрый день,
Не сталкивались с проблемой настройки связки станции и шлюза через встроенный в GoiP PPTP-VPN. У меня VPN поднимается но ни зайти в админку шлюза, ни поднять транк не выходит. В качестве VPN сервера Mikrotik на последней прошивке.
Тут только позитивы....
Шрифт не нужен, достаточно в заголовке заменить koi-8r на utf-8
Возможно вы не перевели модем в режим "Только модем", у вас должен поменяться id устройства.
Подскажите пожалуйста, что делать если у модема e171 нет заветных /dev/cuaU1.1 и /dev/cuaU1.2 ? Есть только /dev/ugen1.2 и всё.
(по интернету много свидетельств, что e171 на моей прошивке нормально работают)
FreeBSD10.3, chan_dongle для 13 версии астериска.
Мониторинг сети? ХМ, полезно. Есть еще статьи по этому поводу?
Мой сайт погоды в городе Вознесенске, Украина. http://vozmeteo.com.ua
Все отлично, спасибо, только вот в пункте "Настройка Микротик 2" нужно было указать, что нужно создать bridge-local, порты которого есть сам eoip-tunnel и один из ether портов.
У меня все получилось.
Ну не скажите, приобрели 2 недели назад лицензию Thinstuff, до этого в течении 2х недель тестировали на пробной версии. Программа работает хорошо, с своей задачей справляется. Для неё выход обновления, появляются новые примочки. Ещё она работает на XP , когда другие могут и не поддерживать её. Если сравнивать цену, всемирно популярного MS, которого все так любят, то цена на менее популярный продукт гораздо ниже.
Ну не скажите, приобрели 2 недели назад лицензию Thinstuff, до этого в течении 2х недель тестировали на пробной версии. Программа работает хорошо, с своей задачей справляется. Для неё выход обновления, появляются новые примочки. Ещё она работает на XP , когда другие могут и не поддерживать её. Если сравнивать цену, всемирно популярного MS, которого все так любят, то цена на менее популярный продукт гораздо ниже.
Уменя гроза унесла за один раз много чего в доме и сетевуха эта тоже сгорела. Поменял эти резюки на полноразмерные 75 ом а также резистор с квадратиком - это 0. поставил перемычку и работает уже пол года превосходно. до этого 2 года эта сетевуха лежала на полке думал не подьемная.
Помогло зашил сразу и биос и флешку, в архиве 2 файла. Все отлично Спасибо большое!!!
Не думаю, возможно дроссели.
RD52 RD53 - это диоды? У самого сгорела плата. Может чип. А может и они... Звонятся как 0 Ом в обе стороны.
<?php
$content=file_get_contents('http://ваш сервер/eximstats/');
$pos = strpos($content,'Top 50 rejected ips by message count');
$content = substr($content, $pos);
$pos = strpos($content, '');
preg_match_all('/\d*\.\d*\.\d*\.\d*/', $content, $output);
foreach($output as $val)
{
foreach($val as $val2)
{
if ((substr($val2, 0, 3)!='127')and(substr($val2, 0, 7)!='192.168'))
{
$mass[]=$val2;
}
}
}
if (isset($mass))
{
$str = implode("\n", $mass);
$file = fopen ("/etc/pf-mail-spammers","w+");
fputs ( $file, $str);
fclose ($file);
}
?>