Система резервного копирования


Вначале был сервер... Никому не нужный. Intel P200Pro, RAID DAC960 45 Гб, ОЗУ 128 Мб. В него воткнули стриммер Seagate Scorpion 24. Вот что получилось.

Была поставла задача копировать файлы с серверов Netware. Проблема была в том, что надо было делать копии открытых DBF (FoxPro). После долгих мытарств и покупки какого-то "голдсупербекапа фо винды" NT был снесен. Кроме всего прочего из него так и не получилось автоматически регистрироваться в Netware. Была поставлена OS/2 (ACP1). К радости, драйвер для DAC960 входит в поставку. Для автоматической регистрации в Novell используется прога attach2.

Скрипт для запуска такой:

-- cut --
c:
cd \netware
attach2 server1 user rassword 
map root O:=server1\DATA:
attach2 server2 user rassword
map root F:=server2\DATA:
map del L:
-- cut --
В процессе работы были случаи отрубания дисков (Netware, к примеру, сдыхала, свитч) после востановления связи диски не подключались сами и потому этот командник был засунут в RSched (шедулер), который его выполняет при отсутсвии файлов vol$log.err на дисках O: и F:
Для копирования данных используется dsync (от Zuko) и два конфигурационных файла к нему. Запуск (тем же Rsched) днем
dsync.exe -v dsync_day.cfg
ночью
dsync.exe -v dsync_NIGHT.cfg
Копирование проводится два раза в сутки (в 0 часов и в 12 часов) в такую структуру каталогов:
\BACKUP
    \DAY            - 12 часов дня
        \SERVER1    - 1 сервер
        \SERVER2    - 2 сервер
    \NIGTH          - 0 часов
        \SERVER1    - 1 сервер
        \SERVER2    - 2 сервер
Естественно, копируется не все данные с дисков Netware, а только важные базы. Каталог BACKUP зашарен по сети и, так как данные там лежат ничем не упакованные, с сохранением структуры каталогов, их можно легко "восстановить" на сервер с любого компьютера в сети.

Потом потребовалось делать копии баз Oracle. Работает это так:

  1. Средствами Oracle с разных серверов(Windows NT) делаются архивные копии на диск сервера NT.
  2. Из оси подключаем диск NT
    при старте системы:
    --cut startlanserver.cmd --
    NET START SERVER
    @if errorlevel 2 C:\IBMLAN\NETPROG\lserr.exe
    logon user /p:password
    --cut--
    
    этот файл также запускается RSched при отсутствии диска N:
     -- cut att.cmd --
    net use n: \\nt\disk
    call c:\start\beep.cmd
    --cut--
    
    этот файл необязателен, пиликает просто :) взят из доки по REXX`у
    --- beep.cmd ---
    /* C scale */
    note.1 = 262    /* middle C */
    note.2 = 294    /*    D     */
    note.3 = 330    /*    E     */
    note.4 = 349    /*    F     */
    note.5 = 392    /*    G     */
    note.6 = 440    /*    A     */
    note.7 = 494    /*    B     */
    note.8 = 524    /*    C     */
    do i=1 to 8
      call beep note.i,250    /* hold each note for */
                              /* one-quarter second */
    end
    do i=1 to 8
      call beep note.i,250    /* hold each note for */
                              /* one-quarter second */
    end
    do i=1 to 8
      call beep note.i,250    /* hold each note for */
                              /* one-quarter second */
    end
    --- beep.cmd ---
    
  3. С помощью BackAgain/2000 копируем все базы Oracle на стриммер. BackAgain каждый раз перезаписывает ленту и после копирования ее "выкидывает". Копирование происходит ночью с понедельника по пятницу (в выходные некому ленту менять). Всего используется 5 лент, по одной на каждый день, таким образом есть пять копий баз данных. В рабочее время каждые полчаса RSched начинает запускать этот скрипт:
    -----
    /* Проверка готовности стриммера */
    call RxFuncAdd 'BaiiLoadFuncs', 'BAIIREXX', 'BaiiLoadFuncs'
    call BaiiLoadFuncs 
    ret = RxFuncAdd('BaiiCheckReady', 'BAIIREXX', 'BaiiCheckReady')
    ret = BaiiCheckReady('ScsiTape:0')
    say 'BaiiCheckReady result = ' ret
    IF ret  \= "READY" then do
    '@c:\netware\send.exe /P'
    '@c:\netware\send.exe "Замените ленту в стриммере" ADMIN /B'
    '@c:\netware\send.exe "Замените ленту в стриммере" SMENA /B'
    call RxFuncAdd 'RexxwebLoadFuncs', 'REXXWEB', 'RexxwebLoadFuncs'
    call RexxwebLoadFuncs
    server = 'ip адрес моего почтового сервера'
    sender = 'control@mydomain.ru'
    recipient = 'control@mydomain.ru'
    subject = 'Замените ленту'
    message = DATE() || " - " || TIME() || ' Замените ленту в стриммере !'
    rc = sendsmtp(server, sender, recipient, subject, 'message','','P')
    end
    ret = RxFuncDrop('BaiiCheckReady')
    exit
    -----
    
    E-mail, на который отправляется сообщения -- это алиас в почтовом сервере Weasel. Это сообщение получают 4 человека.

    Библиотеку RXWEB можно найти на hobbes. Функция BaiiCheckReady возвращает "NOT READY", если идет запись на ленту. Но у меня эти два процесса не пересекаются во времени. Если в рабочее время нет сообщений, посылаемых этим скриптом, то лента не выехала, что означает "копирование не выполнено". Это случалось пару раз из-за плохих лент.

Сервер работает почти год, большую часть времени он конечно не нагружен, но сбоев не было ни разу. А вот восстанавливать что-то приходится часто :(

Роман Попов


Новые статьи на нашем сайте:


Комментариев к странице: 0 | Добавить комментарий
Домой | Проект ядро Core/2 | Проект OS/4 Download | Новости | Гостевая книга | Подробно обо всем | Нужные программы | Проекты | OS/2 FAQ | Всячина | За и Против | Металлолом | #OS2Russian | RDM/2 | Весёлые картинки | Наша галерея | Доска объявлений | Карта сайта | ПОИСК | ФОРУМ