#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: waitfilesize,v 1.1 1996/06/10 21:07:06 qjb Exp $
# $Source: /home/qjb/scripts/RCS/waitfilesize,v $
# $Author: qjb $
#

require 5.002;
use strict;

my $whoami = ($0 =~ m,([^/]*)$,) ? $1 : $0;
#my $dirname = ($0 =~ m,(.*)/[^/]+$,) ? $1 : ".";

die "Usage: $whoami filename size\n" unless (@ARGV == 2);
my ($filename, $size) = @ARGV;

while (1)
{
    my @stat = stat($filename);
    if (@stat)
    {
	last if ($stat[7] >= $size);
    }
    sleep 1;
}