Hi:
I have an application for which it'd be beneficial to have a process
writing to and a second process reading from a shared, persistant, tied,
hash simultaneously.
Is this possible with SDBM_File, or would I be better off with
VMS::IndexedFile ?
Perl 5.6.0, Alpha OpenVMS 7.3-1
Thanks,
-- Pa
$rightsinfo = $rightslist_1{''};
($r_uid, $r_gid) = unpack ("x8 S S", $rightsinfo);
$rightsid = pack ("SS", $r_uid, $r_gid);
}
return @idList;
}
Hope this is useful to someone else. Have fun !
-- Pat
Patrick Spinler wrot
o do
it.
Meanwhile, I still have to figure out how to find all rights assigned to
a specific user (holder). Sigh.
Thanks,
-- Pat
Patrick Spinler wrote:
Hello:
We have a frequently called procedure which need to determine whether an
account possesses certain sets of rights ids.
Our curren
Hello:
We have a frequently called procedure which need to determine whether an
account possesses certain sets of rights ids.
Our current DCL code gets this information by calling dumping mcr
authorize show /rights to a file and parsing the results. This,
however, is slow and icky to maintain
I just made a rather short and abortive attempt to start putting in info
from the mailing list thread under discussion. Please forgive the mess
I left on the sub-page.
I immediately ran into the issue of formatting special characters in a
wiki. I've had problems with this on both wikipedia an
prompt, DCL will first search it's
internal command table, then it's 'shorthand' commands for a matching
name. If it does not find any, it will then search the list of
directories contained in the special logical named DCL$PATH for an
executable or script with a matching file
Craig A. Berry wrote:
At 2:23 PM -0600 2/13/03, Patrick Spinler wrote:
Craig A. Berry wrote:
Do you have a simple case that
will exercise the bug?
$ mcr authorize add /id /attrib=subsystem testing_subsys_id
$ mcr grant/id testing_subsys_id testaccount
$ set host 0
login: testaccount
ke my head hurt; aside from which, perl internals code is icky.
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
);
and I'm out of time to look at it. Can anyone recommend the appropriate
change here ?
Thanks,
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
Brad Hughes wrote:
>
> Patrick Spinler wrote:
>
> > Hi:
> >
> > I'm doing some user auditing, and reading VMS formatted 64 bit datetime
> > values from sysuaf.dat (like last login time, for instance).
> >
> > Any clue how to convert these
it be fastest just to do something in C ?
Thanks,
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 50
$nodename is the
local host.
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
>
> __PERL_STATEMENT_END__
> $
>
> Thank you for any help you can provide.
>
> Ed James [EMAIL PROTECTED]
> TeleCommunications Systems, Inc. voice 410-295-1919
> 2024 West Street, Suite 300 800-810-0827 x1919
>
Nevermind - a closer reading of the relevant perl manuals helps. I was
assuming that the default SIG{__DIE__} handler would print error
messages. This is not apparently the case.
Thanks, and sorry.
-- Pat
Patrick Spinler wrote:
>
> vms 7.1-2, perl 5.6.1. Try this script:
>
&g
2 line 15
%SYSTEM-F-ABORT, abort
$
As expected, Perl screams bloody murder.
$ @temp:test_eval.pl 1
$
Notice that there is no error return from inside the eval ""
What gives ?
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
Dan Sugalski wrote:
>
> At 05:08 PM 8/15/2001 -0500, Patrick Spinler wrote:
>
> >Anyway, thanks for the answer. It _almost_ works. Try the following
> >script:
> >
> > use VMS::Stdio "getname";
> > open IN, " > print
Sorry about the last message, I hit the reply too soon.
Anyway, thanks for the answer. It _almost_ works. Try the following
script:
use VMS::Stdio "getname";
open IN, "
> At 12:21 PM 8/13/2001 -0500, Patrick Spinler wrote:
> >So, if I want to accomplish the same
Dan Sugalski wrote:
>
> At 12:21 PM 8/13/2001 -0500, Patrick Spinler wrote:
> >So, if I want to accomplish the same thing in perl, I need to discover
> >the actual file name associated with an open filehandle. Is this
> >possible ? Is there some obvious cluetrai
l file name associated with an open filehandle. Is this
possible ? Is there some obvious cluetrain in the documentation I
miraculously missed being flattened by ?
Thanks,
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidia
Nope. I'm afraid the error is still opaque to me.
-- Pat
Carl Friedberg wrote:
>
> Hi,
>
> Did this ever get resolved? I don't see anything recent on sidhe.org,
> and I'm curious what happened...
>
> Carl
>
> -Original Message-
> F
the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
pure__code,exe,nowrt,quad
bpt_subr::
.call_entry
bpt
ret
.end
$
This may still have a syntax error, but the idea should work.
"lane DUPHY4.Physics.Drexel.Edu" wrote:
>
> "Craig A. Berry" <[EMAIL PROTECTED]> writes:
> > At 4:58 PM -050
on entry into a module which hasn't been loaded yet, and thus get
useful debugging info on the VMS-Queue module to Dan S.
Thanks,
-- Pat
Patrick Spinler wrote:
>
> Folks,
>
> In trying to debug a recent problem, I made the mistake of rebuilding my
> vms perl install and mod
vms 7.1-2, dbd-ingres-0.30, and
dbi-1.18 on decc v 5.5002
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
Thu, Jun 28, 2001 at 12:09:00PM -0400, Michael G Schwern wrote:
> >> > On Thu, Jun 28, 2001 at 08:44:34AM -0500, Patrick Spinler wrote:
> >> > > Might this be of help ?
> >> > >
> >> > > http://www.testdrive.compaq.com/os/#vms
> >>
>
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
r to display code for a
dynamically loaded module.
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
deleting queue $::queue_name");
},
);
print "Possible tests include:\n";
print map("$_\n", sort keys %tests);
my $test;
if ($#ARGV >= 0)
{
$test = $ARGV[0];
}
else
{
print "\nEnter test name ? ";
$test = ;
chomp $test;
}
$test = lc $test;
if ($#ARGV == 1)
{
$::queue_name = $ARGV[1];
}
$::queue_name = lc $::queue_name;
if (exists $tests{$test}) {&run_queue_test ($tests{$test})}
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
Dan Sugalski wrote:
>
> At 04:48 PM 6/26/2001 -0500, Patrick Spinler wrote:
>
> >Looking over the code makes it appears unlikely that create_queue would
> >be useful for creating generic queues with more than one target, yes ?
> >(ie. can't have more than o
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
ue in
> general for perl programming): putting
>
>use strict;
>
> and running under -w can help spot a _lot_ of trouble (including trouble
> with unimported functions).
>
> Peter Prymmer
--
This message does not represent the policies or positions
log reload_log:ctsdba-accession_dtl_unload.log and
5 parameters
$entry = {
LOG_SPECIFICATION =>
'ctsndb41:[load_log_files]ctsdba-accession_dtl_unload.log
'
NO_LOG_DELETE => '1'
NO_LOG_SPOOL => '1'
PARAMETER_1 => 'ctsdba'
PARAME
"Craig A. Berry" wrote:
>
> At 11:21 AM 2/5/2001 -0600, Patrick Spinler wrote:
>
> >A _working_ CPAN !!!
>
> 1.59_51 is included with Perl 5.6.1-trial2. Does anyone know whether this
> has Chuck Lane's VMS patch or whether his patch will apply against it?
tlib were mentioned -- what else?
A _working_ CPAN !!!
CGI
DBI
Any or all DBD::*
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
oundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
t had a chance to try it yet.
-- Pat
"Craig A. Berry" wrote:
>
> At 2:38 PM -0600 1/8/01, Patrick Spinler wrote:
> > > So, it was working with 5.005_03 but breaks with 5.6.0? Have you
> >> tried bleadperl or 5.6.1-TRIAL1? The latter two have slightly
> >&g
hat you keep Perl itself in
> one place and its modules in another.
No, actually, I only _compile_ the modules somewhere else. I certainly
install modules in the standard place once they've passed a 'mmk test'.
-- Pat
--
This message does not represent the policies or
oing to need to take this to Compaq labs in New Hampshire
in a couple of weeks for some intensive Ingres testing, and I'm really
up shit creek if I can't get the damn thing to compile !
-- Pat
Patrick Spinler wrote:
>
> Thanks all for the replys.
>
> I see that I am using an
anyone maybe have a working example using VMS::Queue to
> enlighten me?
>
> Thanks a lot, Martin
>
> P.S. OpenVMS Alpha 7.2.1, Perl 5.6.0, VMS::Queue 0.56
--
This message does not represent the policies or positions
of
aintainer.
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
"Craig A. Berry" wrote:
>
> At 03:32 PM 12/13/2000 -0600, Patrick Spinler wrote:
>
> >how may I set abreakpoint on a routine contained in a perl module in
> >the debugger ? I'd like to trace into this routine and see what's going
> >wrong,
d see what's going
wrong, but I can't set a breakpoint on a module that I haven't even
loaded yet !
Thanks,
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler emai
0]VMS.C;2
%MMK-F-ERRUPD, error status %X10B91262 occurred when updating target
VMS.OBJ
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
Patrick Spinler wrote:
>
> Okay, I've reached my frustration limit.
I suppose some system information might be helpful:
VMS:
$ cc/version
DEC C V6.0-001 on OpenVMS Alpha V7.1-2
$ show sys /noproc
OpenVMS V7.1-2 on node LPSRVM ...
$ patch --version
patch 2.5.4
Linux:
Okay, I've reached my frustration limit.
I'm rebuilding perl (or attempting to). I've got the perl-5.6.0 dist
from cpan, and the various patches from www.criniod.com, and a copy of
gnu patch patched (:-) for vms.
HOWEVER, I am unable to get the criniod collected patches to apply to
the perl di
from other nodes in the cluster ...
"Craig A. Berry" wrote:
>
> At 12:56 PM 11/22/2000 -0600, Patrick Spinler wrote:
>
> >Here's a recent example which I have just finished.
>
> Very cool, Patrick. There is a remote possibility that a user name or node
> name in
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
$ !
positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
rry, but a VMS centric scripting language wouldn't be of nearly as
much use for me.
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
..
When doing a "use diagnostics;", the semicolon causes a "useless ne in
numeric context" warning, which produces an irritating amount of
needless output.
The prior startperl used:
$ exit++ + ++$status !=0 and $exit=$status=undef...
presumably to avoid this. Is ther
And one more thing, why doesn't the construct:
system ('blah') || warn "something";
work ?
-- Pat
"Craig A. Berry" wrote:
>
> At 2:03 PM -0600 11/1/00, Patrick Spinler wrote:
> >
> > exit $status >> 8;
> >
> >
t
"can't find module VMSish", or something similar ?
Thanks,
-- Pat
"Craig A. Berry" wrote:
>
> At 2:03 PM -0600 11/1/00, Patrick Spinler wrote:
> >
> > exit $status >> 8;
> >
> >I get this result:
> >
> > $ perl -w t
so=exe, useshrplib=undef, libperl=undef
Dynamic Linking:
dlsrc=dl_vms.c, dlext=exe, d_dlsymun=undef, ccdlflags=''
cccdlflags='', lddlflags='/Share'
Characteristics of this PERLSHR image:
Compile-time options: DEBUGGING
Built under
Patrick Spinler wrote:
Never mind. After some code groking and a bit of manual devotion, I
figured it out. I needed to specify "QUEUE" instead of "QUEUE_NAME" as
the key to the $entry hash.
Bookreader/browser if my friend.
Sigh,
-- Pat
>
> Hi:
>
> Will s
trynum = submit ($entry, $entryfile)
|| die ("Error $!:$^E submitting entry");
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
t that
> one. (Including me...)
And double Yay ! Lots of folks not at Northern Light will be happy
about this ! :-)
-- Pat
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler em
y it does if you do a 'perl -w script.pl'
--
This message does not represent the policies or positions
of the Mayo Foundation or its subsidiaries.
Patrick Spinler email: [EMAIL PROTECTED]
Mayo Foundation phone: 507/284-9485
igure.com option.
I also thought about modifying the dbi-ingres xs to "transparently"
convert floats, but rejected the idea as too much overhead, and a real
pain to debug, beside.
-- Pat
>
> >-Original Message-
> >From: Patrick Spinler [mailto:[EMAIL PROTECTED]]
59 matches
Mail list logo
