BackUp для Firebird

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

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

BackUp для Firebird

Сообщение tria » 13.12.2010 14:08:03

Может вопрос и не совсем в тему, но встречал ли кто бесплатный бекапер для вин/линукс, делающий копии с настройкой периодичности (раз в день) и с изменением имени файла (с добавлением даты копирования, инкрементного номера).
Или может есть какая заготовка на паскале, которую можно "допилить" до необходимого функционала?
tria
постоялец
 
Сообщения: 401
Зарегистрирован: 03.04.2006 11:24:10

Re: BackUp для Firebird

Сообщение dunin » 13.12.2010 15:18:30

да вроде ничего сложного...
под заказ напишу быстро :roll:
Аватара пользователя
dunin
энтузиаст
 
Сообщения: 634
Зарегистрирован: 02.05.2007 13:18:11
Откуда: Тољя††и

Re: BackUp для Firebird

Сообщение alexs » 13.12.2010 22:00:05

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

переодичность обеспечит планировщик.
Аватара пользователя
alexs
долгожитель
 
Сообщения: 4060
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь

Re: BackUp для Firebird

Сообщение *vmr » 13.12.2010 22:23:57

Действительно, зачем внешняя утилита если все прекрасно делается встроенными средствами?
Аватара пользователя
*vmr
постоялец
 
Сообщения: 168
Зарегистрирован: 08.01.2007 01:46:07
Откуда: Киев

Re: BackUp для Firebird

Сообщение dunin » 13.12.2010 23:46:31

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

Re: BackUp для Firebird

Сообщение Mr.Smart » 14.12.2010 00:09:01

Profint, он и есть профит!!!
Mr.Smart
долгожитель
 
Сообщения: 1796
Зарегистрирован: 29.03.2008 01:01:11
Откуда: из леса!

Re: BackUp для Firebird

Сообщение tria » 14.12.2010 12:26:10

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

Буду благодарен, если кто-то поделится кусками bat-ников, решаюищих данные задачи.
На текущий момент интересует Виндоуз, Линукс пока только в планах...
tria
постоялец
 
Сообщения: 401
Зарегистрирован: 03.04.2006 11:24:10

Re: BackUp для Firebird

Сообщение v-t-l » 14.12.2010 17:48:41

v-t-l
энтузиаст
 
Сообщения: 735
Зарегистрирован: 13.05.2007 16:27:22
Откуда: Belarus

Re: BackUp для Firebird

Сообщение Jura » 15.12.2010 06:57:24

Попробуйте планировщик 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 дней, то он удаляется
Аватара пользователя
Jura
незнакомец
 
Сообщения: 7
Зарегистрирован: 24.12.2009 17:18:16
Откуда: Новосибирск


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 21

Рейтинг@Mail.ru