[13419] in Perl-Users-Digest
Perl-Users Digest, Issue: 829 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 17 09:17:24 1999
Date: Fri, 17 Sep 1999 06:10:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <937573812-v9-i829@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 17 Sep 1999 Volume: 9 Number: 829
Today's topics:
Re: How to know modules of a installed version of perl <tchrist@mox.perl.com>
Need help in creating Submission Engine. <forceconstant@yahoo.comNOSPAM>
Re: Need help in creating Submission Engine. <gellyfish@gellyfish.com>
Newbie : IO <gatoloco@virgilio.it>
Re: Newbie : IO <gellyfish@gellyfish.com>
Re: PERL->mySQL (Matthew Bloch)
Perl/Tk Client Chat Application (KJPhilbr13)
Redirection of POST CGI in Perl <worthington@ksarul.freeserve.co.uk>
Re: Redirection of POST CGI in Perl <gellyfish@gellyfish.com>
Return values of stat( file ) pincky@my-deja.com
Re: Return values of stat( file ) <gellyfish@gellyfish.com>
Re: Return values of stat( file ) <jeffp@crusoe.net>
tying a hash <admin@gatewaysolutions.net>
Re: tying a hash <admin@gatewaysolutions.net>
win32: Querying groups from DC <jbrauer@de.ibm.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Sep 1999 06:09:04 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How to know modules of a installed version of perl
Message-Id: <37e22f60@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Ivan Balanya Jimenez <ivanb@lsi.upc.es> writes:
:My name is Ivan Balanya and I would like to know if there is any form of
:listing the modules that have been installed with Perl. I have been told
:that there is a command that do this, but I don't know which is.
# This is a shell archive. Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file". Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
# pods
# basepods
# podpath
# podgrep
# sitepods
# stdpods
#
echo x - pods
sed 's/^X//' >pods << 'END-of-pods'
X#!/usr/bin/env perl
X# pods - print out all pod paths
X#
X# this is a perl program not a shell script
X# so that we can use the correct perl
X
Xsystem $^X, "-S", "stdpods";
Xsystem $^X, "-S", "pminst", "-l";
X
X__END__
X
X=head1 NAME
X
Xpods - print out all pod paths
X
X=head1 DESCRIPTION
X
XThis program is a front end to print out the paths of all the standard
Xpodpages and the modules.
X
X=head1 SEE ALSO
X
Xfaqpods(1), modpods(1), sitepods(1), podpath(1), pminst(1), and stdpod(1).
X
X=head1 AUTHOR and COPYRIGHT
X
XCopyright (c) 1999 Tom Christiansen
X
XThis is free software. You may modify it and distribute it
Xunder the Perl's Artistic Licence. Modified versions must be
Xclearly indicated.
END-of-pods
echo x - basepods
sed 's/^X//' >basepods << 'END-of-basepods'
X#!/usr/bin/env perl
X# basepods - print out the standard perl*.pod manpages pod paths
X
Xuse Config;
X$lib = "$Config{'installprivlib'}/pod";
Xopendir(LIB, $lib) || die "$0: can't opendir $lib: $!\n";
Xwhile ($_ = readdir(LIB)) {
X print "$lib/$_\n" if /\.pod$/;
X}
X
X__END__
X
X=head1 NAME
X
Xbasepods - print out pod paths for the standard perl manpages
X
X=head1 DESCRIPTION
X
XThis program uses your configuration's C<installprivlib> directory
Xto look up the full paths to those pod pages. Any files in that
Xdirectory whose names end in C<.pod> will be printed to the standard
Xoutput, one per line. This is normally used in backticks to produce
Xa list of filenames for other commands.
X
X=head1 EXAMPLES
X
X $ podgrep typeglob `basepods`
X
X $ basepods | grep delt
X /usr/local/devperl/lib/5.00554/pod/perl5004delta.pod
X /usr/local/devperl/lib/5.00554/pod/perl5005delta.pod
X /usr/local/devperl/lib/5.00554/pod/perldelta.pod
X
XYou can also run this using alternate perl binaries, like so:
X
X $ oldperl -S basepods | grep delt
X /usr/lib/perl5/pod/perldelta.pod
X
X $ podgrep -i thread `filsperl basepods | grep delt`
X ....
X
X=head1 SEE ALSO
X
Xfaqpods(1), modpods(1), pods(1), sitepod(1), podpath(1), and stdpod(1).
X
X
X=head1 AUTHOR and COPYRIGHT
X
XCopyright (c) 1999 Tom Christiansen
X
XThis is free software. You may modify it and distribute it
Xunder the Perl's Artistic Licence. Modified versions must be
Xclearly indicated.
END-of-basepods
echo x - podpath
sed 's/^X//' >podpath << 'END-of-podpath'
X#!/usr/bin/env perl
X# podpath - print the path to the pod
X
Xfor (@ARGV) {
X if ( /^perl/ ) {
X system("$^X -S stdpods | grep $_");
X } else {
X system("$^X -S pmpath $_");
X }
X}
X
X__END__
X
X=head1 NAME
X
Xpodpath - print the path to the pod
X
X=head1 DESCRIPTION
X
XThis is just a front-end that calls either I<stdpods>
Xor I<pmpath> depending on what it looks like. It works
Xon both regular the standard podpages and the module ones.
X
X=head1 EXAMPLES
X
X $ podpath Cwd
X /usr/local/devperl/lib/5.00554/Cwd.pm
X
XIt works with alternate installations, too:
X
X $ devperl -S podpath perlfunc
X /usr/local/devperl/lib/5.00554/pod/perlfunc.pod
X
X $ oldperl -S podpath IO::Handle
X /usr/lib/perl5/i386-linux/5.00404/IO/Handle.pm
X
X $ filsperl -S podpath Thread
X /usr/local/filsperl/lib/5.00554/i686-linux-thread/Thread.pm
X
X=head1 SEE ALSO
X
Xstdpods(1),
Xpmpath(1),
Xperlmodlib(1).
X
X=head1 AUTHOR and COPYRIGHT
X
XCopyright (c) 1999 Tom Christiansen
X
XThis is free software. You may modify it and distribute it
Xunder the Perl's Artistic Licence. Modified versions must be
Xclearly indicated.
END-of-podpath
echo x - podgrep
sed 's/^X//' >podgrep << 'END-of-podgrep'
X#!/usr/bin/env perl
X# podgrep -- grep in pod sections only
X# tchrist@perl.com
X
Xuse Getopt::Std qw(getopts);
X
Xgetopts("fhpi")
X || die "usage: $0 [-i] [-f] [-h] [-p] pattern [podfiles ...]";
X
X$/ = '';
X$only_header = $opt_h;
X$orig_pattern = $pattern = shift;
X$pattern = '^=.*' . $pattern if $only_header;
X$pattern .= '(?i)' if $opt_i;
X
Xif ($opt_p) {
X unless ($pager = $ENV{PAGER}) {
X require Config;
X $pager = $Config::Config{"pager"} || "more";
X }
X}
X
Xif ($opt_f) {
X if ($opt_p) {
X open(STDOUT, "| pod2text | $pager '+/$orig_pattern'");
X } else {
X open(STDOUT, "| pod2text");
X }
X
X}
Xelsif ($opt_p) {
X open(STDOUT, "| $pager '+/$orig_pattern'");
X}
X
X
X($file, $chunk) = ('-', 0);
X
Xwhile (<>) {
X if ($inpod && /^=cut/) {
X $inmatch = $inpod = 0;
X next;
X }
X
X if (! $inpod && /^=(?!cut)\w+/) {
X $inpod = 1;
X }
X
X if ($inmatch && /^=\w+/) {
X $inmatch = 0;
X }
X
X if ($inpod && !$inmatch && /$pattern/o) {
X print "=head1 $ARGV chunk $.\n\n"
X unless $file eq $ARGV && $chunk+1 == $.;
X ($file, $chunk) = ($ARGV, $.);
X print;
X $inmatch = 1 if $only_header;
X next;
X }
X
X print if $inmatch;
X
X
X} continue {
X
X if (eof) {
X $inmatch = $inpod = 0;
X ($file, $chunk) = ('-', 0);
X close ARGV;
X }
X
X}
X
Xclose STDOUT;
X
X__END__
X
X=head1 NAME
X
Xpodgrep - grep in pod sections only
X
X=head1 SYNOPSIS
X
Xpodgrep [-i] [-p] [-f] [-h] pattern [ files ... ]
X
X=head1 DESCRIPTION
X
XThis program searches each paragraph in a pod document and prints each
Xparagraph that matches the supplied pattern. This pod may be mixed with
Xprogram code, such as in a module.
X
XOptions are:
X
X=over 4
X
X=item -i
X
Xmeans case insensitive match
X
X=item -p
X
Xmeans page output though the user's pager. The pager will be primed
Xwith an argument to search for the string. This highlights the result.
X
X=item -f
X
Xmeans format output though the I<pod2text> program.
X
X=item -h
X
Xmeans check for matches in pod C<=head> and C<=item> headers alone,
Xand to keep printing podagraphs until the next header is found.
X
X=back
X
X
X=head1 EXAMPLES
X
X $ podgrep mail `pmpath CGI`
X (prints out podagraphs from the CGI.pm manpage that mention mail)
X
X $ podgrep -i destructor `sitepods`
X (prints out podagraphs that mention destructors in the
X site-installed pods)
X
X $ podgrep -i 'type.?glob' `stdpods`
X
X (prints out podagraphs that mention typeglob in the
X standard pods)
X
X $ podgrep -hpfi "lock" `faqpods`
X
X (prints out all podagraphs with "lock" in the headers
X case-insensitively, then then formats these with pod2text, then
X shows them in the pager with matches high-lighted)
X
X $ podgrep -fh seek `podpath perlfunc`
X (prints out and formats podagraphs from the standard perlfunc manpage
X whose headers or items contain "seek".)
X
X=head1 SEE ALSO
X
Xfaqpods(1),
Xpfcat(1),
Xpmpath(1),
Xpod2text(1),
Xpodpath(1),
Xsitepods(1),
Xstdpods(1),
Xand
Xtcgrep(1).
X
X=head1 NOTE
X
XFor a pager, the author likes these environment settings (in the login
Xstartup, of course):
X
X $ENV{PAGER} = "less";
X $ENV{LESS} = "MQeicsnf";
X
X=head1 AUTHOR and COPYRIGHT
X
XCopyright (c) 1999 Tom Christiansen
X
XThis is free software. You may modify it and distribute it
Xunder the Perl's Artistic Licence. Modified versions must be
Xclearly indicated.
END-of-podgrep
echo x - sitepods
sed 's/^X//' >sitepods << 'END-of-sitepods'
X#!/usr/bin/env perl
X# sitepods - print out the paths to the modules
X# that this site added
X#
X# this is a perl program not a shell script
X# so that we can use the correct perl
X
Xopen(PROG, "$^X -S modpods |") || die "can't fork: $!";
X
Xwhile (<PROG>) {
X print if /site_perl/;
X}
X
X__END__
X
X=head1 NAME
X
Xsitepods - print out the paths to the modules that this site added
X
X=head1 DESCRIPTION
X
XThis program shows the paths to module pods that are in
Xthe I<site_perl> directories.
X
X=head1 EXAMPLES
X
X $ sitepods
X /usr/local/devperl/lib/site_perl/5.00554/i686-linux/XML/Parser/Expat.pm
X /usr/local/devperl/lib/site_perl/5.00554/i686-linux/XML/Parser.pm
X
XYou can also run this using alternate perl binaries, like so:
X
X $ oldperl -S sitepods
X ....
X
X=head1 SEE ALSO
X
Xfaqpods(1), modpods(1), pods(1), podpath(1), and stdpod(1).
X
X
X=head1 AUTHOR and COPYRIGHT
X
XCopyright (c) 1999 Tom Christiansen
X
XThis is free software. You may modify it and distribute it
Xunder the Perl's Artistic Licence. Modified versions must be
Xclearly indicated.
END-of-sitepods
echo x - stdpods
sed 's/^X//' >stdpods << 'END-of-stdpods'
X#!/usr/bin/env perl
X# stdpods - print out the paths to the modules
X# that this site added
X#
X# this is a perl program not a shell script
X# so that we can use the correct perl
X
Xsystem("$^X -S basepods");
Xopen(PROG, "$^X -S modpods |") || die "can't fork: $!";
Xwhile (<PROG>) {
X print unless /site_perl/;
X}
Xclose PROG;
X
X
X__END__
X
X=head1 NAME
X
Xstdpods - print out the paths to the modules that came with Perl
X
X=head1 DESCRIPTION
X
XThis program shows the paths to module pods that are I<not> in
Xthe I<site_perl> directories. This is the documentation that
Xcame with the standard system.
X
X=head1 EXAMPLES
X
X $ podgrep closure `stdpods`
X
X=head1 SEE ALSO
X
Xpodgrep(1), faqpods(1), modpods(1), pods(1), podpath(1), and sitepod(1).
X
X=head1 AUTHOR and COPYRIGHT
X
XCopyright (c) 1999 Tom Christiansen
X
XThis is free software. You may modify it and distribute it
Xunder the Perl's Artistic Licence. Modified versions must be
Xclearly indicated.
END-of-stdpods
exit
--
If you consistently take an antagonistic approach, however, people are
going to start thinking you're from New York. :-)
--Larry Wall to Dan Bernstein in <10187@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: Fri, 17 Sep 1999 07:56:48 -0400
From: "Captain Panic" <forceconstant@yahoo.comNOSPAM>
Subject: Need help in creating Submission Engine.
Message-Id: <7rta4b$83u$1@news.fsu.edu>
Hello,
The company I work for wants me to see about creating a web based submission
tool that would allow people to submit their links to various web sites, and
then display the results. But I must confess I have no idea how to even
begin. If someone could just give me an idea how one would go about making
one of these.
Thanks in advance.
Bri
------------------------------
Date: 17 Sep 1999 13:55:47 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Need help in creating Submission Engine.
Message-Id: <37e23a53_1@newsread3.dircon.co.uk>
Captain Panic <forceconstant@yahoo.comNOSPAM> wrote:
> Hello,
> The company I work for wants me to see about creating a web based submission
> tool that would allow people to submit their links to various web sites, and
> then display the results. But I must confess I have no idea how to even
> begin. If someone could just give me an idea how one would go about making
> one of these.
I would start by going and looking at all of the forms that the various
sites use for their URL submissions and work out what the parameters were
then I would use the module LWP::UserAgent to post the form data.
Of course I would have asked this question in
comp.infosystems.www.authoring.cgi in the first place ...
/J\
--
"It's times like this I wish I had a penis" - Duckman
------------------------------
Date: Fri, 17 Sep 1999 12:31:27 +0200
From: "Sebastian" <gatoloco@virgilio.it>
Subject: Newbie : IO
Message-Id: <7rt58g$pv4$1@serv1.iunet.it>
How can I remove a file from my server with perl (I'm not able to find any
information).
Thanks.
------------------------------
Date: 17 Sep 1999 13:34:58 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Newbie : IO
Message-Id: <37e23572_1@newsread3.dircon.co.uk>
Sebastian <gatoloco@virgilio.it> wrote:
> How can I remove a file from my server with perl (I'm not able to find any
> information).
You could have found the information in the perlfunc manpage - I seem to
recall this very subject starting a medium intensity flamewar before -
the function is called 'unlink'.
/J\
--
"The teenage masturbators of today are the television executives of
tomorrow" - Melissa Cabriolet, Drop the Dead Donkey
------------------------------
Date: Fri, 17 Sep 1999 10:57:37 GMT
From: mattbee@eh.org (Matthew Bloch)
Subject: Re: PERL->mySQL
Message-Id: <slrn7u43ub.5vm.mattbee@soup-kitchen.demon.co.uk>
In article <7rsu8h$rn0$1@nnrp1.deja.com>, steffi@mvi.de wrote:
>HI!
>can anybody help me?
>I want to read out values from a mySQL-Database with a perl-script.
>but i don't know how!!!!
>have someone an example??
>
>this is wrong..but why?
[snip]
That code looks convincing, though it's hard to check without your exact
database setup. What exactly `goes wrong' about the code?
--
Matthew ( http://www.soup-kitchen.demon.co.uk/ )
------------------------------
Date: 17 Sep 1999 10:24:03 GMT
From: kjphilbr13@aol.com (KJPhilbr13)
Subject: Perl/Tk Client Chat Application
Message-Id: <19990917062403.01363.00000883@ng-ba1.aol.com>
I have written all the code for a UDP Client Chat Application that works well
in line (dos) mode. Now I have created the gui screen for the Chat Application
and I want to marry the two together. The problem arises when I want to use
the script that listens on a port for incoming messages. In theory, it will
write to a Text box on the gui screen. Would I spawn a process that would
somehow send or redirect the incoming messages to the gui application? How?
Any suggestions of what I should do here would help? If you have any code
snipets, that would be appreciated also?
Please email me direct. Thanks in advance for your help/suggestions.
Kevin (KJPhilbr13@aol.com)
PS I am writing this for Linux but would like it to be cross-plathform
compatible, if possible.
------------------------------
Date: Fri, 17 Sep 1999 12:27:48 +0100
From: Thomas Worthington <worthington@ksarul.freeserve.co.uk>
Subject: Redirection of POST CGI in Perl
Message-Id: <37E225B4.FED163C5@ksarul.freeserve.co.uk>
I need to be able to redirect POSTed queries from forms through a Perl
script which keeps track of the number of times each form has been
selected (the targets of the form actions are not on my server so I
can't keep track at the form processing end). For GET forms this is easy
as the form data is simply passed on through in the redirection url with
CGI.pm.
My question is: how do I handle the same thing for POSTed forms?
Thomas Worthington
------------------------------
Date: 17 Sep 1999 12:48:03 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Redirection of POST CGI in Perl
Message-Id: <37e22a73_1@newsread3.dircon.co.uk>
Thomas Worthington <worthington@ksarul.freeserve.co.uk> wrote:
> I need to be able to redirect POSTed queries from forms through a Perl
> script which keeps track of the number of times each form has been
> selected (the targets of the form actions are not on my server so I
> can't keep track at the form processing end). For GET forms this is easy
> as the form data is simply passed on through in the redirection url with
> CGI.pm.
>
You cant do it directly you will need to use LWP to create a proxy.
This is probably a question for the group comp.infosystems.www.authioring.cgi
rather than this one.
/J\
--
"As usual I'm the price you have to pay for the funny bits" - Denis Norden
------------------------------
Date: Fri, 17 Sep 1999 11:26:40 GMT
From: pincky@my-deja.com
Subject: Return values of stat( file )
Message-Id: <7rt8h8$29g$1@nnrp1.deja.com>
Hi
Writting a script to check if a file is writable
by anyone other than its owner. I'm currently
using
my $mode = (stat($filename))[2]
I can't see any connection between the value of
$mode and the file permissions...
From the description of stat
2 - File mode (file type and permissions)
Has anybody any idea of how to change from
stats return value to unix file perms ?
Joel
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 17 Sep 1999 13:32:53 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Return values of stat( file )
Message-Id: <37e234f5_1@newsread3.dircon.co.uk>
pincky@my-deja.com wrote:
> Hi
>
> Writting a script to check if a file is writable
> by anyone other than its owner. I'm currently
> using
> my $mode = (stat($filename))[2]
>
> I can't see any connection between the value of
> $mode and the file permissions...
>
> From the description of stat
> 2 - File mode (file type and permissions)
>
> Has anybody any idea of how to change from
> stats return value to unix file perms ?
>
Well that value *is* the permissions in octal - if you want to see the
permissions in the same way that ls -l presents them you can use the
module Stat::lsMode from CPAN.
/J\
--
"The chef's salty balls have dropped" - Christopher Price, BBC NEWS 24
------------------------------
Date: Fri, 17 Sep 1999 09:02:11 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Return values of stat( file )
Message-Id: <Pine.GSO.4.10.9909170850060.28678-100000@crusoe.crusoe.net>
On Sep 17, Jonathan Stowe blah blah blah:
> pincky@my-deja.com wrote:
> > my $mode = (stat($filename))[2]
> >
> > I can't see any connection between the value of
> > $mode and the file permissions...
> >
> > From the description of stat
> > 2 - File mode (file type and permissions)
> >
> > Has anybody any idea of how to change from
> > stats return value to unix file perms ?
> >
>
> Well that value *is* the permissions in octal - if you want to see the
> permissions in the same way that ls -l presents them you can use the
> module Stat::lsMode from CPAN.
That's not really what he asked for at all.
The value returned by (stat $file)[2] is a number representing NOT ONLY
the permissions of the file, but also what TYPE of file it is. If you
merely want a three-digit permission, you need to bitwise AND this with
0777.
$mode = (stat $file)[2] & 0777;
If you want to view this is an octal number, then do something like:
printf "%04o\n", $mode; # 0750, for example
Unix file permissions are actually "significant" to 4 places. 777 just
talks about user, group, and other accessing permissions. The next byte
has to do with file-locking, set-uid or set-gid, and the sticky bit. Read
more about it in
% man chmod
--
jeff pinyan japhy@pobox.com
perl stuff japhy+perl@pobox.com
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN
------------------------------
Date: Fri, 17 Sep 1999 05:25:56 -0500
From: "Scott Beck" <admin@gatewaysolutions.net>
Subject: tying a hash
Message-Id: <ru45kruclg710@corp.supernews.com>
I am having trouble getting the values of anonymous arrays
tied to a database file.
Here is the code.
----------Code----------
#!/usr/bin/perl -w
use DB_File;
tie (%h, "DB_File", "mydb.db",O_RDWR|O_CREAT , 0640, $DB_HASH)
or die "Cannot open file 'mydb': $!\n";
# Add a few key/value pairs to the file
$h{'NewUser'} = ["domain.com","password","Some Notes"] ;
# print the contents of the file
foreach $k (keys %h){
print "$k -> @{ $h{$k} }\n";
}
untie %h ;
--------------------------
And here is the out put I get from this
---------- Perl ----------
NewUser ->
If anyone can point out what I am doing wrong thanks.
Thanks,
--
Scott Beck
------------------------------
Date: Fri, 17 Sep 1999 06:03:12 -0500
From: "Scott Beck" <admin@gatewaysolutions.net>
Subject: Re: tying a hash
Message-Id: <ru47qnejlg780@corp.supernews.com>
All apologies.
I posted this having not read down further in the Group.
This was addressed already on another thread.
--
Scott Beck
Scott Beck <admin@gatewaysolutions.net> wrote in message
news:ru45kruclg710@corp.supernews.com...
> I am having trouble getting the values of anonymous arrays
> tied to a database file.
> Here is the code.
> ----------Code----------
> #!/usr/bin/perl -w
>
> use DB_File;
>
> tie (%h, "DB_File", "mydb.db",O_RDWR|O_CREAT , 0640, $DB_HASH)
> or die "Cannot open file 'mydb': $!\n";
>
> # Add a few key/value pairs to the file
> $h{'NewUser'} = ["domain.com","password","Some Notes"] ;
>
> # print the contents of the file
> foreach $k (keys
{
> print "$k -> @{ $h{$k} }\n";
> }
> untie %h ;
> --------------------------
> And here is the out put I get from this
> ---------- Perl ----------
> NewUser ->
>
> If anyone can point out what I am doing wrong thanks.
>
> Thanks,
> --
> Scott Beck
>
------------------------------
Date: Fri, 17 Sep 1999 13:42:50 -0700
From: Joachim Brauer <jbrauer@de.ibm.com>
Subject: win32: Querying groups from DC
Message-Id: <37E2A7CA.4B33AB8A@de.ibm.com>
Hi!
We are working with perl v5.005 and trying to query groups from the NT
account system. We cannot seem to find a way to do it by win32::NetAdmin
means - it does not seem to provide a way for this.
Our Books mentin a win32::NetDomain package which we cannot find either.
Any ideas anyone? We have started calling "net group" and parsing the
output of this one...
Thanks in advance,
Joachim Brauer
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that you aren't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 829
*************************************
