Re: [Start] Operation Not Supported (fwd)

[Charles Kirby <kirbych@shell.monmouth.com>]

******    message to minivend-users from Charles Kirby <kirbych@shell.monmouth.com>     ******

---------- Forwarded message ----------
Date: Thu, 8 Apr 1999 22:46:38 -0400 (EDT)
From: Charles Kirby <kirbych@shell.monmouth.com>
To: Sasha Pachev <sasha@direct1.com>
Subject: Re: [Start] Operation Not Supported

You're right, that's a good idea.  I found the program below, and *that*
works fine.
I found Minivend to be able to start with a different BSDI-3 machine, but
it really prefers BSDI-4, which was easy to set up.  However, I'm going to
want to run it at first on BSDI-3.  

 Thanks; any other ideas?  I've looked thru stacks of old messages, and
can't find any better ideas.

ck

MiniVend V3.12
 
Could not Could not lock file: Operation not supported
     Vend::Util::flock_lock('GLOB(0x271c0c)', 1, 1) called at
/usr/var/home/joebloe/mvend/lib/Vend/Util.pm line 961
     Vend::Util::lockfile('GLOB(0x271c0c)', 1, 1) called at
/usr/var/home/joebloe/mvend/lib/Vend/Util.pm line 1348
     eval {...} called at /usr/var/home/kirbych/mvend/lib/Vend/Util.pm
line 1346
     Vend::Util::logGlobal('MiniVend V3.12') called at
/usr/var/home/joebloe/mvend/bin/minivend line 3039
     main::main_loop() called at  /usr/var/home/joebloe/mvend/bin/minivend
line 3147  eval {...} called at /usr/var/home/joebloe/mvend/bin/minivend
line 3147
error file 'Use of uninitialized value at 
/usr/var/home/joebloe/mvend/lib/Vend/Util.pm line 1357.':  Operation not
supported
to report this error:
- - - [08/April/1999:22:37:08 -0400] - - MiniVend V3.12zippy.monmouth.com$


flock prog:
#!/usr/local/bin/perl5
 
$LOCK_SH=1;
$LOCK_EX=2;
$LOCK_NB=4;
$LOCK_UN=8;
 
sub lock{
        flock(fh, $LOCK_EX);
        seek(fh,0,2);
        }
sub unlock{
       flock(fh,$LOCK_UN);
        }
print "Started $0: ...\n";
open(fh,'>tmp.delete.me');
 
fork();
$counter=1000;
while($counter--){
    lock();
    print fh "$0: My pid is $$ \n";
    print "My pid is $$ \n";
    unlock();
    #sleep(1);
}

On Thu, 8 Apr 1999, Sasha Pachev wrote:

> Charles Kirby wrote:
> > 
> > I tried a program using "flock", and it ran just fine.
> > Thanks anyway,
> > ck
> > 
> 
> Can you use flock() from in Perl?
> -- 
> Sasha Pachev
> http://www.sashanet.com/ (home)
> http://www.direct1.com/ (work)
> 



-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list