head	1.1;
access;
symbols;
locks
	ahuxley:1.1; strict;
comment	@# @;


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


desc
@RANDOM PICTURE SELECTOR
@


1.1
log
@Initial revision
@
text
@#!/usr/bin/ksh
PROGNAME=`basename $0`

[ "X$BG_ROOT_DIR" = X ] && { echo "$PROGNAME: ERROR: BG_ROOT_DIR not defined"; exit 1; }
[ -d $BG_ROOT_DIR ] || { echo "$PROGNAME: ERROR: $BG_ROOT_DIR: no such directory"; exit 1; }

FILE=`perl -e '@@files=glob($ENV{'BG_ROOT_DIR'} . "/*/*"); srand(time); print $files[int(rand($#files))]'`
#xv -maxpect -root -rmode 5 -quit -norm $FILE
xv -maxpect -root -rmode 5 -quit -norm -nc 64 $FILE
@