% JLdL 18Aug02.
%	Copyright (C) 2000-2002 by Jorge L. deLyra.
% Mail: <delyra@latt.if.usp.br>. Web: "http://latt.if.usp.br".
% Este documento pode ser copiado e/ou distribuído livremente.
% Ver os termos e condições nos arquivos do sub-diretório web/.
% This document may be copied and/or distributed freely. See the
% _ terms and conditions in the files in the web/ subdirectory.

\vspace{2ex}\noindent\hrulefill\nopagebreak\vspace{-2ex}
\begin{verbatim}
#!/bin/tcsh -f
#
# Um programa para fazer backups.
#
# Verifica se o ZIP esta montado ou nao.
mount | grep -q " /zip "
#
# Se ele nao estiver montado entao monta.
if ( $status != 0 ) then
    echo "`basename $0`: montando o ZIP"
    mount /zip/ext2
    #
    # Se a montagem falha, desiste.
    if ( $status != 0 ) then
        echo "`basename $0`: ERRO ao montar o ZIP"
        exit 1
    endif
endif
#
# Define o diretorio do backup, a
# _ partir do diretorio corrente.
set bdir = /zip/ext2/`echo $cwd | cut -d / -f 4-`
#
# Cria o diretorio, se ele nao existe.
if ( ! -d $bdir ) then
    echo "`basename $0`: criando o diretorio no ZIP"
    mkdir -p $bdir
else
    echo "`basename $0`: diretorio no ZIP ja existe"
endif
#
# Faz o backup.
echo "`basename $0`: fazendo o backup"
cp -af . $bdir
#
# Desmonta o ZIP.
echo "`basename $0`: desmontando o ZIP"
umount /zip/ext2
\end{verbatim}\nopagebreak
\vspace{-3ex}\hrulefill\vspace{3ex}
