BackUp для Firebird

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
tria
постоялец
Сообщения: 401
Зарегистрирован: 03.04.2006 11:24:10
Контактная информация:

BackUp для Firebird

Сообщение tria »

Может вопрос и не совсем в тему, но встречал ли кто бесплатный бекапер для вин/линукс, делающий копии с настройкой периодичности (раз в день) и с изменением имени файла (с добавлением даты копирования, инкрементного номера).
Или может есть какая заготовка на паскале, которую можно "допилить" до необходимого функционала?
Аватара пользователя
dunin
энтузиаст
Сообщения: 634
Зарегистрирован: 02.05.2007 13:18:11
Откуда: Тољя††и
Контактная информация:

Сообщение dunin »

да вроде ничего сложного...
под заказ напишу быстро :roll:
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

батник 2 строки
1-я - бакапишь в файл
2-я запускаеш рар с ключа -ag
и всё...
а можно и через команды шела... (хоть в винде, хоть в линухе)

переодичность обеспечит планировщик.
Аватара пользователя
*vmr
постоялец
Сообщения: 168
Зарегистрирован: 08.01.2007 00:46:07
Откуда: Киев
Контактная информация:

Сообщение *vmr »

Действительно, зачем внешняя утилита если все прекрасно делается встроенными средствами?
Аватара пользователя
dunin
энтузиаст
Сообщения: 634
Зарегистрирован: 02.05.2007 13:18:11
Откуда: Тољя††и
Контактная информация:

Сообщение dunin »

Я так понял - здесь цель/задача скинуть инсталяху заказчику или встроить код в свою программу, дабы не обременять(ся) удаленной настройкой, а решить текущую проблему методом "ткните вон в ту кнопку пожалуйста". Зачем еще это надо - тоже не представляю.
Mr.Smart
долгожитель
Сообщения: 1796
Зарегистрирован: 29.03.2008 00:01:11
Откуда: из леса!

Сообщение Mr.Smart »

Profint, он и есть профит!!!
tria
постоялец
Сообщения: 401
Зарегистрирован: 03.04.2006 11:24:10
Контактная информация:

Сообщение tria »

Разъясню задачку более подробно.
Кроме основной работы (1С), занимаюсь продвижением своей учетной программы (Лазарь, Фаеберд). Основные клиенты - мелкие розниные магазинчики.
Функции админа в них я на себя не беру (не компетентен, да и шкурка вычинки не стоит). Теоретически, функции копирования БД должен брать на себя админ, но по факту получается, что админов в таких магазинчиках и нет...
А если база "умрет", то доказывай потом, что ты не верблюд.
Планировал какое-нить специализированное ПО, чтобы и себе проще настраивать, и пользователь в телефонном режиме мог хотя-бы идентифицировать проблему.
Судя по всему, надо будет делать, как написал alexs.
Из нерешенных вопросов:
- проверка наличия свободного места на диске, сообщение об ошибке.
- хранить архивы за последние 3 месяца (или заданное кво дней). Остальные чистить, кроме, допустим, сделанных каждого 1-го числа месяца.
- отслеживание ошибок копирования, сообщение об ошибке.

Буду благодарен, если кто-то поделится кусками bat-ников, решаюищих данные задачи.
На текущий момент интересует Виндоуз, Линукс пока только в планах...
v-t-l
энтузиаст
Сообщения: 744
Зарегистрирован: 13.05.2007 16:27:22
Откуда: Belarus

Сообщение v-t-l »

Аватара пользователя
Jura
незнакомец
Сообщения: 7
Зарегистрирован: 24.12.2009 16:18:16
Откуда: Новосибирск

Сообщение Jura »

Попробуйте планировщик nnCron (http://www.nncron.ru) - он всё умеет делать что вы написали выше
Например проверка свободного места на диске(это скрипт nnCron):

Код: Выделить всё

#( Check_DiscSpace_discD
AsLoggedUser
User: "jura" SecPassword: "*****" Domain: "******" LogonInteractive
Time: 0 7 * * * *
Action:

FREE-SPACE: D 30000000 <

    IF

<VBScript>
Dim objEmail
Const EmailFrom = "alert@mail.ru"   
Const EmailPassword = "123"       
Const strSmtpServer = "192.168.0.1"
Const EmailTo = "jura@mail.ru"       
Set objEmail = CreateObject("CDO.Message")


objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = "Server На диске D осталось меньше 30Гб (%DD%.%MM%.%YYYY%)"
objEmail.Textbody = "Дата: %DD%.%MM%.%YYYY%" & Chr(13) & Chr(10) & "Сервер Server" & Chr(13) & Chr(10) & "На диске D осталось меньше 30Гб"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

objEmail.Send
</SCRIPT>

THEN
)#


Если объем диска меньше чем 30Гб. - посылает сообщение по почте с помощью скрипта VB
Пользуюсь 5 лет и никогда не подводил
Можно добавить кучу всяких функций - запуск любых приложений , в т.ч. и Backup баз Firebird с помощью стандартных средств сервера Firebird, сжатие в архив, отправка по почте и т.д.
Может Вам это пригодится..

P.S. Есть скрипт для nnCron как создавать циклический архив - создаются архивы и идет проверка - если архив старше 30 дней, то он удаляется
Ответить