head	1.3;
access;
symbols;
locks
	alexis:1.3; strict;
comment	@# @;


1.3
date	2001.05.09.11.05.37;	author ahuxley;	state Exp;
branches;
next	1.2;

1.2
date	2000.01.27.20.54.52;	author ahuxley;	state Exp;
branches;
next	1.1;

1.1
date	99.06.19.16.45.47;	author ahuxley;	state Exp;
branches;
next	;


desc
@added logging
@


1.3
log
@converted to 'active' format
@
text
@#!MARKER_SHELL_CMD
#shpp include ../bldcfg/paths.shpp
PATH=/bin:/usr/bin:/sbin:/usr/sbin
PROGNAME=`basename $0`
RCS_ID='$Header: /home/ahuxley/dev/newstruct/lx/bin/RCS/lx.shpp,v 1.18 2000/05/31 10:54:57 ahuxley Exp ahuxley $'
VERSION_SCHEME=rcs


LOG_FILE=$HOME/var/log/rndpic.log

main()
{
    [ "X$BG_ROOT_DIR" = X ] && error "BG_ROOT_DIR not defined"
    [ -d $BG_ROOT_DIR ] || error "$BG_ROOT_DIR: no such directory"

    FILE=`perl -e '@@files=glob($ENV{'BG_ROOT_DIR'} . "/*/*"); srand(time); print $files[int(rand($#files))]'`

    info -ns "`who_am_i` `basename $FILE`"

    xv -maxpect -root -rmode 5 -quit -norm -nc 64 $FILE
}

#shpp include ../lib/utils.sh.shpp
#shpp include ../lib/gep.sh.shpp
@


1.2
log
@went back to using 'perl', not '$PERL_CMD'
@
text
@d1 6
a6 2
#!/usr/bin/ksh
#  $Header: /home/ahuxley/dev/small/RCS/rndpic.shpp,v 1.1 1999/06/19 16:45:47 ahuxley Exp ahuxley $
d8 1
a8 4
PROGNAME=`basename $0`
VERSION="MARKER_PATCHLEVEL"
VERBOSE_LEVEL=3
I_AM_A_DAEMON=false
a10 1

d23 2
a24 2
#shpp include utils.sh.shpp
#shpp include gep.sh.shpp
@


1.1
log
@Initial revision
@
text
@d2 1
a2 1
#  $Header$
d8 1
a8 1
LOG_FILE=/home/ahuxley/var/log/rndpic.log
d18 1
a18 1
    info -ns "selected `basename $FILE` for user `whoami`"
@