[29452] in Perl-Users-Digest
Perl-Users Digest, Issue: 696 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jul 28 21:09:43 2007
Date: Sat, 28 Jul 2007 18:09:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 28 Jul 2007 Volume: 11 Number: 696
Today's topics:
Re: @arts <zaxfuuq@invalid.net>
Re: ERR: 13: Missing right $] (Alan Curry)
Re: getting arguments <kenslaterpa@hotmail.com>
Re: getting arguments <kenslaterpa@hotmail.com>
Re: getting arguments (Jens Thoms Toerring)
Re: getting arguments <spamtrap@dot-app.org>
Re: getting arguments <frytaz@gmail.com>
Re: getting arguments <uri@stemsystems.com>
Re: getting arguments <noreply@gunnar.cc>
Re: getting arguments <noreply@gunnar.cc>
Re: Looking to do work with DNS through Perl <djcameron60616@yahoo.com>
main CV? <ferry.bolhar@chello.at>
Re: Objects/Structures in Perl <1usa@llenroc.ude.invalid>
Re: Objects/Structures in Perl <olson_ord@yahoo.it>
Re: Problem installing DBI <tlviewer@yahoo.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 28 Jul 2007 18:08:19 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: Re: @arts
Message-Id: <nPOdnbYLBJHDIzbbnZ2dnUVZ_j-dnZ2d@comcast.com>
"Michele Dondi" <bik.mido@tiscalinet.it> wrote in message
news:pd8ja3hrraji8k1uhjegf6i2v5jvdv7udt@4ax.com...
> On Thu, 26 Jul 2007 18:32:50 -0700, "Wade Ward" <zaxfuuq@invalid.net>
> wrote:
>>> {
>>> my $i;
>>> sub i () : lvalue { $i }
>>> }
>>How does this not have a name?
>
> What, precisely, doesn't have a name?
I want to call the above a subroutine. It doesn't have a label. Apparently
it switches i for $i. I spent a couple hours looking for another instance
of this in the literature without success. Is this a subroutine?
--
WW
------------------------------
Date: Sat, 28 Jul 2007 21:43:25 +0000 (UTC)
From: pacman@TheWorld.com (Alan Curry)
Subject: Re: ERR: 13: Missing right $]
Message-Id: <f8gd9t$vuu$1@pcls4.std.com>
In article <13alvbp1g9t2a81@corp.supernews.com>, pp <pp@mm.org> wrote:
>Alan Curry wrote:
>> In article <5mfja35hsbkv6646k9qce9vnks11nuroj8@4ax.com>,
>> Michele Dondi <bik.mido@tiscalinet.it> wrote:
>>> On Fri, 27 Jul 2007 19:18:09 +1000, pp <pp@mm.org> wrote:
>>>
>>>> Subject: ERR: 13: Missing right $]
>>> How strange! Actually that doesn't look like a Perl error at all, if
>>> it's intended to be verbatim.
>>
>> It appears to be the format of an error message from Embperl.
>>
>yeah, you are right, I have built in embperl in aparche.
>Do you know how to solve this problem?
1. Don't wait until the 9th message in the thread to tell people that you are
using embperl.
2. Post a complete test case, which in the case of embperl means the whole
template file containing the perl code, not just the perl part.
3. Try to post in a place where people actually know embperl. Most people in
comp.lang.perl.misc probably don't.
--
Alan Curry
pacman@world.std.com
------------------------------
Date: Sat, 28 Jul 2007 13:49:56 -0700
From: kens <kenslaterpa@hotmail.com>
Subject: Re: getting arguments
Message-Id: <1185655796.820499.297890@b79g2000hse.googlegroups.com>
On Jul 28, 4:01 pm, "fry...@gmail.com" <fry...@gmail.com> wrote:
> Hi there
> I want to run my per script with arguments, for instance:
> ./script.pl -one value one text 1 -two value two text 2 -three value
> three text 3
> and i want to get those arguments in
> $one = value one text 1
> $two = value two text 2
> $three = value three text 3
>
> i tried with regular expression m/-one (.+?) -two (.+?) -three (.+?)/
> and it works but when i mix-up arguments like:
> ./script.pl -two value two text 2 -three value three text 3 -one value
> one text 1
> then i need to use different regex.
>
> Someone know other solution ?
>
> Thanks in advance
Take a look at the Getopt::Long module.
perldoc Getopt::Long
Note that if there are spaces in the option strings, they will have to
be quoted on the command line.
For example, ./script.pl -two "value two text 2" -three "value three
text"
HTH, Ken
------------------------------
Date: Sat, 28 Jul 2007 13:53:30 -0700
From: kens <kenslaterpa@hotmail.com>
Subject: Re: getting arguments
Message-Id: <1185656010.517709.46690@19g2000hsx.googlegroups.com>
On Jul 28, 4:49 pm, kens <kenslate...@hotmail.com> wrote:
> On Jul 28, 4:01 pm, "fry...@gmail.com" <fry...@gmail.com> wrote:
>
>
>
> > Hi there
> > I want to run my per script with arguments, for instance:
> > ./script.pl -one value one text 1 -two value two text 2 -three value
> > three text 3
> > and i want to get those arguments in
> > $one = value one text 1
> > $two = value two text 2
> > $three = value three text 3
>
> > i tried with regular expression m/-one (.+?) -two (.+?) -three (.+?)/
> > and it works but when i mix-up arguments like:
> > ./script.pl -two value two text 2 -three value three text 3 -one value
> > one text 1
> > then i need to use different regex.
>
> > Someone know other solution ?
>
> > Thanks in advance
>
> Take a look at the Getopt::Long module.
>
> perldoc Getopt::Long
>
> Note that if there are spaces in the option strings, they will have to
> be quoted on the command line.
>
> For example, ./script.pl -two "value two text 2" -three "value three
> text"
>
> HTH, Ken
Of course that example should have been :
./script.pl --two "value two text 2" --three "value three text"
Have to use double dashs before the option if it is not a single
character.
Ken
------------------------------
Date: 28 Jul 2007 20:59:17 GMT
From: jt@toerring.de (Jens Thoms Toerring)
Subject: Re: getting arguments
Message-Id: <5h1p15F3hu78jU1@mid.uni-berlin.de>
frytaz@gmail.com <frytaz@gmail.com> wrote:
> I want to run my per script with arguments, for instance:
> ./script.pl -one value one text 1 -two value two text 2 -three value
> three text 3
The usual convention with atrguments is to have them enclosed in
(double) quotes when they contain spaces, so they arrive as a
whole in your program
> and i want to get those arguments in
> $one = value one text 1
> $two = value two text 2
> $three = value three text 3
> i tried with regular expression m/-one (.+?) -two (.+?) -three (.+?)/
> and it works but when i mix-up arguments like:
> ./script.pl -two value two text 2 -three value three text 3 -one value
> one text 1
> then i need to use different regex.
Perhaps this does the trick:
#!/usr/bin/perl
use strict;
use warnings;
my $opts = '^-(one|two|three)$';
$ARGV[ 0 ] =~ /$opts/ or die "Invalid arguments\n";
my $state;
my %args;
for ( @ARGV ) {
if ( /$opts/ ) {
$state = $1;
$args{ $state } = [ ];
next;
}
push @{ $args{ $state } }, $_;
}
my ( $one, $two, $three ) = map { join ' ', @{ $args{ $_ } } }
qw/ one two three /;
Regards, Jens
--
\ Jens Thoms Toerring ___ jt@toerring.de
\__________________________ http://toerring.de
------------------------------
Date: Sat, 28 Jul 2007 17:07:22 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: getting arguments
Message-Id: <m2d4yc2q5x.fsf@dot-app.org>
"frytaz@gmail.com" <frytaz@gmail.com> writes:
> I want to run my per script with arguments
Sorry, this is "abuse" - "arguments" is down the hall on your left. :-)
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 28 Jul 2007 15:06:24 -0700
From: "frytaz@gmail.com" <frytaz@gmail.com>
Subject: Re: getting arguments
Message-Id: <1185660384.498719.265490@o61g2000hsh.googlegroups.com>
On Jul 28, 10:59 pm, j...@toerring.de (Jens Thoms Toerring) wrote:
> fry...@gmail.com <fry...@gmail.com> wrote:
> > I want to run my per script with arguments, for instance:
> > ./script.pl -one value one text 1 -two value two text 2 -three value
> > three text 3
>
> The usual convention with atrguments is to have them enclosed in
> (double) quotes when they contain spaces, so they arrive as a
> whole in your program
>
> > and i want to get those arguments in
> > $one = value one text 1
> > $two = value two text 2
> > $three = value three text 3
> > i tried with regular expression m/-one (.+?) -two (.+?) -three (.+?)/
> > and it works but when i mix-up arguments like:
> > ./script.pl -two value two text 2 -three value three text 3 -one value
> > one text 1
> > then i need to use different regex.
>
> Perhaps this does the trick:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my $opts = '^-(one|two|three)$';
>
> $ARGV[ 0 ] =~ /$opts/ or die "Invalid arguments\n";
>
> my $state;
> my %args;
> for ( @ARGV ) {
> if ( /$opts/ ) {
> $state = $1;
> $args{ $state } = [ ];
> next;
> }
> push @{ $args{ $state } }, $_;
>
> }
>
> my ( $one, $two, $three ) = map { join ' ', @{ $args{ $_ } } }
> qw/ one two three /;
>
> Regards, Jens
> --
> \ Jens Thoms Toerring ___ j...@toerring.de
> \__________________________ http://toerring.de
This script works, but when I'm trying to use it with some other array
sub myagr {
my ($data, $server, $witem) = @_;
my ($cmd, @rest) = split(/ /, $data);
$opts = '^-(one|two|three|four|five)$';
$rest[0] =~ /$opts/ or $badarg=1;
if ($badarg eq 1) {
print "Bad arguments";
} else {
$state;
%args;
for ( @rest ) {
if ( /$opts/ ) {
$state = $1;
$args{ $state } = [ ];
next;
}
push @{ $args{ $state } }, $_;
}
my ( $one, $two, $three, $four, $five ) = map { join ' ',
@{ $args{ $_ } } } qw/ one two three four five /;
# ^ in that line $_ doesn't contain any data
print "one $one two $two three $three four $four five $five";
#prints one two three four five
}
}
why $_ losing data?
------------------------------
Date: Sat, 28 Jul 2007 22:56:18 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: getting arguments
Message-Id: <x7abtgrvca.fsf@mail.sysarch.com>
>>>>> "fc" == frytaz@gmail com <frytaz@gmail.com> writes:
fc> why $_ losing data?
because you are not using one of the core modules to get command line
arguments. use them and don't write a broken one yourself.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sun, 29 Jul 2007 01:44:54 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: getting arguments
Message-Id: <5h22u3F3hn7poU1@mid.individual.net>
frytaz@gmail.com wrote:
>
> This script works, but when I'm trying to use it with some other array
use strict;
use warnings;
missing.
> sub myagr {
> my ($data, $server, $witem) = @_;
> my ($cmd, @rest) = split(/ /, $data);
>
> $opts = '^-(one|two|three|four|five)$';
>
> $rest[0] =~ /$opts/ or $badarg=1;
>
> if ($badarg eq 1) {
> print "Bad arguments";
> } else {
> $state;
> %args;
> for ( @rest ) {
> if ( /$opts/ ) {
> $state = $1;
> $args{ $state } = [ ];
> next;
> }
> push @{ $args{ $state } }, $_;
> }
> my ( $one, $two, $three, $four, $five ) = map { join ' ',
> @{ $args{ $_ } } } qw/ one two three four five /;
> # ^ in that line $_ doesn't contain any data
>
> print "one $one two $two three $three four $four five $five";
> #prints one two three four five
> }
> }
>
> why $_ losing data?
I don't understand what you mean. Assuming that this line is added to
your script:
myagr ( "$0 @ARGV" );
this is the result I get:
C:\home>perl test.pl "-one first_arg -two second_arg -three third_arg
-four fourth_arg -five fifth_arg"
one first_arg two second_arg three third_arg four fourth_arg five fifth_arg
C:\home>
Another thing is that it is a very odd way of passing arguments to a
script, and has little to do with what Jens showed you...
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Sun, 29 Jul 2007 02:20:51 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: getting arguments
Message-Id: <5h251hF3i645uU1@mid.individual.net>
Jens Thoms Toerring wrote:
>
> my $state;
> my %args;
> for ( @ARGV ) {
> if ( /$opts/ ) {
> $state = $1;
> $args{ $state } = [ ];
> next;
> }
> push @{ $args{ $state } }, $_;
> }
>
> my ( $one, $two, $three ) = map { join ' ', @{ $args{ $_ } } }
> qw/ one two three /;
Why the deep data structure? Why not just:
my ($state, %args);
for ( @ARGV ) {
if ( /$opts/ ) {
$state = $1;
next;
}
$args{ $state } = $_;
}
my ( $one, $two, $three ) = @args{ qw/ one two three / };
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Sat, 28 Jul 2007 16:55:24 -0700
From: James <djcameron60616@yahoo.com>
Subject: Re: Looking to do work with DNS through Perl
Message-Id: <1185666924.688496.104940@m37g2000prh.googlegroups.com>
On Jul 27, 2:57 pm, "Lambik" <lam...@kieffer.nl> wrote:
> "James" <djcameron60...@yahoo.com> wrote in message
>
> news:1185495207.709821.112230@19g2000hsx.googlegroups.com...
>
>
>
>
>
> > Hello,
>
> > I'm not terribly new to Perl, I have some basics down. What I don't
> > have down is finding a way to do what I want for a particular script.
>
> > What I am looking to do is to query DNS servers on both Win32 and
> > UNIX, to get a list of all servers in the network ranges we have.
> > For example,
> > lets say I have a 10. network and a 130. network, with several subnets
> > and VPN's. I want a script to go out and:
> > (This is where this post comes in handy)
> > A. Query all DNS servers in the domains, in all the networks and
> > either grab zone files or host files,
> > B. Authenticate into each server and run several subroutines to query
> > information on the current server,
> > C .. A whole bunch of other stuff.
> > The problems are:
> > A I don't know the particular nameservers at this time (unfortunately
> > the company doen't let you do ping sweeps or run sam-spade type tools
> > on the networks)
> > B. I don't have access to all servers at this time.
>
> > Is it possible to get DNS server names from domain controllers, or
> > just a nslookup on the main domains?
> > If I don't have access to the DNS servers, is it possible to extract
> > the information through ADS?
> > Is it also possible to get the DNS information (in full) - all servers
> > in DNS, if I don't have access to the nameserver?
>
> > I'm pretty new to windows, and if I had access to the other platforms
> > I'd have no problem getting the information. I essentially have to
> > write the tools myself.
>
> I don't understand what exactly you want to do. If you are not allowed to
> ping the network, then i guess you are in trouble. There is no way to do it
> without pinging the network.
>
> use Net::DNS;
>
> foreach my $nr (253..254) {
> my $res = Net::DNS::Resolver->new(
> nameservers => [qq(192.168.1.$nr)],
> recurse => 0,
> udp_timeout => 3
> );
> if ($res->search('localhost')) {
> print "Found a localhost entry on 192.168.1.$nr\n";
> };}
>
> __END__
> is just another way of pinging. What i don't see is what this has to do with
> Windows. If you want the DNS server of the current computer you could do
> something like:
>
> use Win32::OLE('in');
> use constant wbemFlagReturnImmediately => 0x10;
> use constant wbemFlagForwardOnly => 0x20;
>
> $computer = ".";
> $objWMIService = Win32::OLE->GetObject
> ("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection
> failed.\n";
> $colItems = $objWMIService->ExecQuery
> ("SELECT * FROM Win32_NetworkAdapterConfiguration",
> "WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);
>
> foreach my $objItem (in $colItems)
> {
> print "DNS Server Search Order: " . join(",", (in
> $objItem->{DNSServerSearchOrder})) . "\n";}
>
> __END__
>
> But the biggest question is: why do you want to do it when you obviously
> aren't permitted to do so?- Hide quoted text -
>
> - Show quoted text -
Lambik,
Thank you for replying. The answer to the biggest question is that it
is part of my job, whether the powers that be want to acknowledge it
or not. I could traverse through thousands of servers by hand to get
the necessary information for my job, but I'd rather do it through a
script.
You see, there are some documents I have to work off that don't have
all necessary information. And trying to get the access to some of
the servers that I should rightfully have for the job is like trying
to water the entire desert with an eight ounce glass of water that has
a leak in the bottom of the glass.
So, since I do not have access to all the servers and am being told to
get all the information that is missing, I was hoping I could use
common networking commands or script functions that are fairly non-
intrusive to get all the information I need. One of my questions was
rather idiotic, nslookup will tell you server names, but the question
is if that information being returned is also accurate.
Which is another part of the dilemma. Not all of the information is
correct. So I have 40 hours per week to manually log into thousands
of servers to extract hardware, software, and networking information,
then update *my* correct documentation (that is providing I'm aware of
all changes to the environment until I'm done).
Thank you very much for the code snippets. I will definitely try them
out .. I could post my script, but it is *very* long.
Thanks again ..
Da Fuego
------------------------------
Date: Sun, 29 Jul 2007 00:04:35 +0200
From: "Ferry Bolhar" <ferry.bolhar@chello.at>
Subject: main CV?
Message-Id: <f1078$46abbd73$54718838$4051@news.chello.at>
Hi,
in the Perl guts, a function like
sub {....}
is represented by a CV. The CvROOT/CvSTART fields
in the CV point the compiled OP tree where the CvPADLIST/
CvPADNAME fields point the scratch pad array (the "scope"
of the function).
In the case of named functions, the GvCV field of the GV (the
"typeglob") will point to the CV of the function. So, for a
function "hello", I can get a reference to its CV by writing
$hello_cv = *hello{CODE};
However, how can I locate the CV representing the "main"
function (the code outside any function)? There is a package
(stash) named "main::" but there is no function named like this.
Is there a way to find the main CV from Perl?
Kind greetings,
Ferry
------------------------------
Date: Sat, 28 Jul 2007 21:19:30 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Objects/Structures in Perl
Message-Id: <Xns997BB03B5FC4asu1cornelledu@127.0.0.1>
"O. Olson" <olson_ord@yahoo.it> wrote in news:1185641646.800620.217700
@b79g2000hse.googlegroups.com:
> Thanks Sinan.
You are most welcome.
> I am not very familiar with Perl. I do not use it too often and when
> I come back to it after some time I invariably forget a lot of stuff
> that I had known before.
The ActiveState distribution does contain a fairly effective and very
pretty HTML version of the standard Perl documentation.
It is a good idea to take a look at the table of contents and the FAQ
every time you need to refresh your Perl information.
I usually find the command line easier:
perldoc perldoc
perldoc perltoc
perldoc perlfaq
perldoc -f function_name
perldoc -q faq_keyword
For example:
C:\> perldoc -q object
Found in C:\opt\Perl\lib\pod\perlfaq3.pod
Where can I learn about object-oriented Perl programming?
A good place to start is perltoot, and you can use perlobj, perlboot,
perltoot, perltooc, and perlbot for reference.
A good book on OO on Perl is the "Object-Oriented Perl" by Damian Conway
from Manning Publications, or "Learning Perl References, Objects, &
Modules" by Randal Schwartz and Tom Phoenix from O'Reilly Media.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: Sat, 28 Jul 2007 15:03:11 -0700
From: "O. Olson" <olson_ord@yahoo.it>
Subject: Re: Objects/Structures in Perl
Message-Id: <1185660191.933549.6190@k79g2000hse.googlegroups.com>
Sinan,
Thanks for the tips. My problem is that in day-to-day stuff I do not
use Perl. So this means that once I leave it for sometime, I forget
all of the small details (e.g. The first argument passed to a sub-
routine is a reference to the object that called the sub-routine.).
When I return, I have no idea what I have forgotten and I actually
know.
You seem to be a student like myself. How do you handle these things
i.e. we guys have to do C++, Java, Perl etc. in addition to other
software programs like Matlab and others. How do you keep track of
everything i.e. once I leave something for a month I almost forget it.
Regards,
O.O.
------------------------------
Date: 28 Jul 2007 22:02:14 GMT
From: Mark Pryor <tlviewer@yahoo.com>
Subject: Re: Problem installing DBI
Message-Id: <46abbce6$0$29702$4c368faf@roadrunner.com>
On Fri, 27 Jul 2007 21:02:46 +0000, Mark Pryor wrote:
> On Fri, 27 Jul 2007 17:19:48 +0000, John Oliver wrote:
>
>>>> Yes, I'm aware of all that.
>>>>
>>>> I'm trying to install RequestTracker. It's a frickin' nightmare. Since
>>>> RT is in the Fedora Extras, I installed a host with FC7 and installed RT
>>>> from yum. I can't get it to work. On the RT mailing list, they keep
>>>> saying "We don't know why the RPM doesn't work, you have to install from
>>>> source". So that's what I'm trying to do... but RT's dependency checker
>>>> wants DBI installed via CPAN. There isn't much point with my arguing
>>>> with why they want to do certain things certain ways... I'm just trying
>>>> to do everything their way so hopefully at some point I can wind up with
>>>> a working RT installation.
>>>
>>> C5 is based on FC6 sources. Might this be a better bet?
>>> http://fedora.kanarip.com/fedora/extras/6/i386/rt3-3.6.3-1.fc6.noarch.rpm
>>
>> Yes, yes, yes...
>>
>> I have a FC7 installation with RT installed from Extras. It does not
>> work. I am trying to install from source since the people on the RT
>> list insist that that's the only way it will work. If you know how to
>> make the RPM install of RT work, I'd be more than happy to do it that
>> way. Otherwise, could I just find out why DBI won't install from CPAN?
>> Please?
>>
>
> Good news. The above version, rt3-3.6xxxx.fc6.noarch.rpm will install with
> the C5 Core version of perl-DBI. You can see by doing
>
> #rpm -ivh --test rt3-3.6.3-1.fc6.noarch.rpm
>
> __You should not need to get DBI from CPAN__
>
> I was missing the dependency XML::Simple. When possible grab missing
> modules from the CentOS repo. I did
> #yum install perl-XML-Simple
>
> after that rpm caught that and I had one less depen..
>
> ------------ rpm test of rt3 -------------
> [root@centos tlviewer]# rpm -ivh --test rt3-3.6.3-1.fc6.noarch.rpm
> warning: rt3-3.6.3-1.fc6.noarch.rpm: Header V3 DSA signature: NOKEY, key ID 1ac70ce6
> error: Failed dependencies:
> perl(Apache::Session) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Cache::Simple::TimedExpiry) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Calendar::Simple) is needed by rt3-3.6.3-1.fc6.noarch
> perl(DBIx::SearchBuilder) is needed by rt3-3.6.3-1.fc6.noarch
> perl(DBIx::SearchBuilder::Record::Cachable) is needed by rt3-3.6.3-1.fc6.noarch
> perl(DBIx::SearchBuilder::Union) is needed by rt3-3.6.3-1.fc6.noarch
> perl(DBIx::SearchBuilder::Unique) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Date::Format) is needed by rt3-3.6.3-1.fc6.noarch
> perl(GD::Graph::bars) is needed by rt3-3.6.3-1.fc6.noarch
> perl(GD::Graph::pie) is needed by rt3-3.6.3-1.fc6.noarch
> perl(GD::Text) is needed by rt3-3.6.3-1.fc6.noarch
> perl(HTML::FormatText) is needed by rt3-3.6.3-1.fc6.noarch
> perl(HTML::Mason) is needed by rt3-3.6.3-1.fc6.noarch
> perl(HTML::Scrubber) is needed by rt3-3.6.3-1.fc6.noarch
> perl(HTML::TreeBuilder) is needed by rt3-3.6.3-1.fc6.noarch
> perl(HTTP::Server::Simple::Mason) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Locale::Maketext::Fuzzy) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Locale::Maketext::Lexicon) >= 0.25 is needed by rt3-3.6.3-1.fc6.noarch
> perl(Log::Dispatch) >= 1.6 is needed by rt3-3.6.3-1.fc6.noarch
> perl(MIME::Entity) is needed by rt3-3.6.3-1.fc6.noarch
> perl(MIME::Head) is needed by rt3-3.6.3-1.fc6.noarch
> perl(MIME::Parser) is needed by rt3-3.6.3-1.fc6.noarch
> perl(MIME::Words) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Mail::Address) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Mail::GnuPG) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Module::Versions::Report) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Regexp::Common) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Term::ReadKey) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Text::Template) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Text::Wrapper) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Time::ParseDate) is needed by rt3-3.6.3-1.fc6.noarch
> perl(Tree::Simple) is needed by rt3-3.6.3-1.fc6.noarch
> perl(UNIVERSAL::require) is needed by rt3-3.6.3-1.fc6.noarch
> ---------------- end snip ----------------
>
> Its a mess but one might succeed in a reasonable amount of time.
John, (or anyone else interested to run rt3 on C5)
My prepare-test of rt3 is now working:
# rpm -ivh --test rt3-3.6.3-1.el5.noarch.rpm
the above returns no missing dependencies.
I had to rebuild several perl packages from FC6 SRPM's. They are here
http://www.tlviewer.org/rt3
If you have a working install of C5 I would like to here from anyone if
they get this working as expected -- I've never run RequestTracker!
My packages are green and untested. You have been warned!
--
Mark
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V11 Issue 696
**************************************
