#! /opt/Xed/srexx

/***************************************************************/
/*                                                             */
/*  sovcd.rex - (gH) 1997  :                                   */
/*                                                             */
/*     +================================================+      */
/*     +                                                +      */
/*     +    sauvegarde automatique du repertoire        +      */
/*     +                                                +      */
/*     +================================================+      */
/*                                                             */
/*                                                             */
/* testé avec - qrexx                                          */
/*            - /opt/Xed/srexx                                 */
/*            - /opt/Xed/regina                                */
/*                                                             */
/* syntaxe : sovcd [-seul]                                     */
/*                                                             */
/***************************************************************/
/*                                                             */
/*  Auteur                                                     */
/*                                                             */
/*     gilles.hunault@univ-angers.fr                           */
/*                                                             */
/*     http://www.info.univ-angers.fr/pub/gh                   */
/*                                                             */
/***************************************************************/
/*
*/

ftmp = "/home/info/gh/tmp/sovcd.tmp"
"pwd  > " ftmp
nomcd  = linein(ftmp)
is = lastpos("/",nomcd)
nomzip = substr(nomcd,is+1)".zip"

parse arg ops

if ops = "seul"  then ops = "-seul"
if ops = "-seul" then opt = " "
                 else opt = " -r"

/* option -q enlevée au 22 juin 2001 */

"zip -u  " opt " " nomzip "* -x *.zip"


say
say " vous pouvez utiliser " nomzip
say
"ls -al " nomzip
say