Re: [gentoo-user] perl: ithreads USER flag?

2005-02-17 Thread Rumen Yotov
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
fire-eyes wrote:
| Is anyone using ~x86 perl with the ithreads USE flag?
|
| Using an SMP (not HT) system, and thinking that could help things out.
| Looking for reasons not to, first...
|
|
| --
| gentoo-user@gentoo.org mailing list
|
|
Hi,
Yes using ~x86 and libperl&perl with ithreads USE-flag.
No problems for 2-3 months. Make sure you use it for both.
HTH
Rumen
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.4.0-ecc0.1.6 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFCFN0Fw4vKYiLy/AsRAof6AJwPEh0UoDHYqak51uO1OwRUPcoPaACffpAV
mhz5cPhP2sZhni5CewiiPmE=
=gpVy
-END PGP SIGNATURE-
--
gentoo-user@gentoo.org mailing list


Re: [gentoo-user] perl seems broken: pulling in multiple perl versions

2005-02-16 Thread William Kenworthy
As said in the original email, I had run the scripts numerous times with
no effect.  I eventually figured out that perl-cleaner was giving an
error message about files it couldnt handle, so I moved them away, and
it all works now.  Made me take a closer look at its output.

Thanks,
BillK

On Wed, 2005-02-16 at 21:13 +0100, Leif B. Kristensen wrote:
> On Wednesday 16 February 2005 20:38, Boyd Stephen Smith Jr. wrote:
> > There's a script available (can't remember the name, ATM) that will
> > automatically remove and remerge all your perl modules. 
> 
> /usr/portage/dev-lang/perl/files/perl-cleaner all
-- 
William Kenworthy <[EMAIL PROTECTED]>
Home!


--
gentoo-user@gentoo.org mailing list



[gentoo-user] perl: ithreads USER flag?

2005-02-16 Thread fire-eyes
Is anyone using ~x86 perl with the ithreads USE flag?

Using an SMP (not HT) system, and thinking that could help things out.
Looking for reasons not to, first...


--
gentoo-user@gentoo.org mailing list



Re: [gentoo-user] perl seems broken: pulling in multiple perl versions

2005-02-16 Thread Leif B. Kristensen
On Wednesday 16 February 2005 20:38, Boyd Stephen Smith Jr. wrote:
> There's a script available (can't remember the name, ATM) that will
> automatically remove and remerge all your perl modules. 

/usr/portage/dev-lang/perl/files/perl-cleaner all
-- 
Leif Biberg Kristensen
http://solumslekt.org/

--
gentoo-user@gentoo.org mailing list



Re: [gentoo-user] perl seems broken: pulling in multiple perl versions

2005-02-16 Thread Boyd Stephen Smith Jr.
On Wednesday 16 February 2005 06:44 am, William Kenworthy 
<[EMAIL PROTECTED]> wrote:
> My perl seems broken.
>
> Should I manually purge the older 5.8.0 stuff and rerun the utilities,
> or is that "a bad idea"?  How best to fix?

Some (all?) perl modules end up bound to a certain perl version.

There's a script available (can't remember the name, ATM) that will 
automatically remove and remerge all your perl modules.  Unfortunately, 
last I heard it ended up adding them all your your world file. (This is 
not a problem, per se, but generally perl modules are pulled in as 
dependencies so they fon't really belong in world.)

You can always fix the packages individually by running:
emerge -C 
emerge -1 

(The -1 is for --oneshot which prevents the package from being added to the 
world file.)

HTH

-- 
Boyd Stephen Smith Jr.
[EMAIL PROTECTED]
ICQ: 514984 YM/AIM: DaTwinkDaddy

--
gentoo-user@gentoo.org mailing list



[gentoo-user] perl seems broken: pulling in multiple perl versions

2005-02-16 Thread William Kenworthy
My perl seems broken. This is an older machine that has had quite a
number of perl versions on it.  The problem is that when trying to build
dev-perl/Tk-JPEG-Lite, it is pulling in multiple perl versions (see the
compile line below).  It seems that MMutil.pm is detecting a perl
version >=5.00565 which I think is correct, but the error the emerge
generates is "Unrecognized switch: --center  (-h will show valid
options)" so I suspect it is pulling in one of the older perl versions.

I have run perl-rebuilder, revdep-rebuild and perl-cleaner multiple
times in the past so I dont think this should occur.  qpkg -i and equery
l show only the one perl version installed.

rattus Tk-JPEG-Lite-2.01403 # equery l dev-lang/perl
[ Searching for package 'perl' in 'dev-lang' among: ]
 * installed packages
[I--] [  ] dev-lang/perl-5.8.5-r4 (0)


Should I manually purge the older 5.8.0 stuff and rerun the utilities,
or is that "a bad idea"?  How best to fix?

BillK


Compile line:
/usr/bin/perl5.8.5 /usr/lib/perl5/5.8.5/ExtUtils/xsubpp
-typemap /usr/lib/perl5/5.8.5/ExtUtils/typemap
-typemap /usr/lib/perl5/site_perl/5.8.0/i686-linux/Tk/typemap  Lite.xs >
Lite.xsc && mv Lite.xsc Lite.c
gcc -c  -I/usr/lib/perl5/site_perl/5.8.0/i686-linux/Tk
-I/usr/local/include -I/usr/X11R6/include -fno-strict-aliasing -pipe
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -w -mcpu=athlon-xp
-march=athlon-xp -O2 -pipe -falign-functions=64   -DVERSION=\"2.01403\"
-DXS_VERSION=\"800.024\" -fPIC "-I/usr/lib/perl5/5.8.5/i686-linux/CORE"
-DHAVE_JPEGLIB_H -Wall -Wno-implicit-int -Wno-comment -Wno-unused
-D__USE_FIXED_PROTOTYPES__ Lite.c
gcc -c  -I/usr/lib/perl5/site_perl/5.8.0/i686-linux/Tk
-I/usr/local/include -I/usr/X11R6/include -fno-strict-aliasing -pipe
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -w -mcpu=athlon-xp
-march=athlon-xp -O2 -pipe -falign-functions=64   -DVERSION=\"2.01403\"
-DXS_VERSION=\"800.024\" -fPIC "-I/usr/lib/perl5/5.8.5/i686-linux/CORE"
-DHAVE_JPEGLIB_H -Wall -Wno-implicit-int -Wno-comment -Wno-unused
-D__USE_FIXED_PROTOTYPES__ imgJPEG.c
-- 
William Kenworthy <[EMAIL PROTECTED]>
Home!


--
gentoo-user@gentoo.org mailing list



Re: [gentoo-user] Perl IDE and good tutorials?

2005-02-10 Thread Mike Noble
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Joel Merrick wrote:
| Hi guys, can anyone recommend a good one that's in Portage.. or will the
| answer be gVim? :D
|
| I'm trying to learn Perl so any other good resources people have would
| be appreciated!
|
| Joel
|
|
|
O'Reilly: Learning Perl
O'Reilly books are great, they also have "Programming Perl" and "Perl
for System Administration".  I am sure they have more.  Start with
"Learning Perl" first.
Mike
- --
Mike Noble
Email: [EMAIL PROTECTED]
Key ID: 0xFFDFC13B
Key fingerprint: 8204 1297 B9AD 0CED 2FCE  1FB0 9491 5824 FFDF C13B
Keyserver: http://pgpkeys.mit.edu
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.2.6 (GNU/Linux)
iD8DBQFCC+8NlJFYJP/fwTsRAuLZAJ0Yvfu9tCXAEwpDYDCz9Fb+t2E0jwCdFZyr
p4JfxOsKX3rL1pXxtq2t9ZU=
=+CL8
-END PGP SIGNATURE-
--
gentoo-user@gentoo.org mailing list


Re: [gentoo-user] Perl IDE and good tutorials?

2005-02-10 Thread Matt Wilson
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Joel Merrick wrote:
| Hi guys, can anyone recommend a good one that's in Portage.. or will the
| answer be gVim? :D
No, vim! :) Seriously, all I ever used when learning (and all I ever use
now) is vim. Once you've learnt some of the basics you'll love it -
coupled with macros and perldoc and you're laughing. I generally use the
following handy macros (in my ~/.vimrc);
autocmd bufenter *.p[ml] :compiler perl
autocmd bufenter *.p[ml] map  :w:make
autocmd bufenter *.p[ml] map  :w:!perl -w -T %
So that when editing a .pm or .pl you can use f2 to run the script and
f3 to check it's syntax and believe me, that's a very simple example of
stuff you can do :D
| I'm trying to learn Perl so any other good resources people have would
| be appreciated!
Google is generally a good resource for vim usage, but `man perlfunc` or
perldoc are handy for PERL stuff.
- --
http://www.mattsscripts.co.uk/
~  - A great source for free CGI and stuff
'Have you lost your senses?'  'Yes, but I may have found some better
ones.'  (Interesting Times)
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.2.5 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org
iD8DBQFCC77xms1059AAPcwRAjVcAKC0mfHYl+sc2T43F0/jzF9dMxRZtQCgl1nE
o3LtwPHhoZTbH9AWafwNVbY=
=jf5a
-END PGP SIGNATURE-
--
gentoo-user@gentoo.org mailing list


Re: [gentoo-user] Perl IDE and good tutorials?

2005-02-10 Thread vg`Braindead_One
Kevin Philp wrote:
For tutorials there are loads. try "picking up perl"
http://www.ebb.org/PickingUpPerl/
and then get yourself a copy of the famous Camel Book. That was the route I 
took all done in Quanta as well.

Kevin.
On Thursday 10 February 2005 12:02, Dhruba Bandopadhyay wrote:
 

Just use vim man seriously and use `perldoc` for help.  That's all I
used when I was learning perl.  Oh and also the O'Reilly books -
"Learning Perl" and "Objects, References and Modules" both by the same
authors.
On Thu, 10 Feb 2005 10:12:30 +, Joel Merrick <[EMAIL PROTECTED]> 
   

wrote:
 

Hi guys, can anyone recommend a good one that's in Portage.. or will the
answer be gVim? :D
I'm trying to learn Perl so any other good resources people have would
be appreciated!
Joel
--
Joel Merrick
 

--
gentoo-user@gentoo.org mailing list
   


--
gentoo-user@gentoo.org mailing list
 

For general help try http://perlmonks.org
Best perl-page ever ;)
--
gentoo-user@gentoo.org mailing list


Re: [gentoo-user] Perl IDE and good tutorials?

2005-02-10 Thread Kevin Philp
For tutorials there are loads. try "picking up perl"

http://www.ebb.org/PickingUpPerl/

and then get yourself a copy of the famous Camel Book. That was the route I 
took all done in Quanta as well.

Kevin.

On Thursday 10 February 2005 12:02, Dhruba Bandopadhyay wrote:
>Just use vim man seriously and use `perldoc` for help.  That's all I
>used when I was learning perl.  Oh and also the O'Reilly books -
>"Learning Perl" and "Objects, References and Modules" both by the same
>authors.
>
>On Thu, 10 Feb 2005 10:12:30 +, Joel Merrick <[EMAIL PROTECTED]> 
wrote:
>> Hi guys, can anyone recommend a good one that's in Portage.. or will the
>> answer be gVim? :D
>>
>> I'm trying to learn Perl so any other good resources people have would
>> be appreciated!
>>
>> Joel
>>
>> --
>> Joel Merrick
>
>--
>gentoo-user@gentoo.org mailing list


--
gentoo-user@gentoo.org mailing list



Re: [gentoo-user] Perl IDE and good tutorials?

2005-02-10 Thread Dhruba Bandopadhyay
Just use vim man seriously and use `perldoc` for help.  That's all I
used when I was learning perl.  Oh and also the O'Reilly books -
"Learning Perl" and "Objects, References and Modules" both by the same
authors.


On Thu, 10 Feb 2005 10:12:30 +, Joel Merrick <[EMAIL PROTECTED]> wrote:
> Hi guys, can anyone recommend a good one that's in Portage.. or will the
> answer be gVim? :D
> 
> I'm trying to learn Perl so any other good resources people have would
> be appreciated!
> 
> Joel
> 
> --
> Joel Merrick
> 
> 
>

--
gentoo-user@gentoo.org mailing list



Re: [gentoo-user] Perl IDE and good tutorials?

2005-02-10 Thread Kevin Philp
After much looking around I ended up using Quanta. I use it for HTML as well 
so I guess I am used to it.

Kevin.


On Thursday 10 February 2005 10:12, Joel Merrick wrote:
>Hi guys, can anyone recommend a good one that's in Portage.. or will the
>answer be gVim? :D
>
>I'm trying to learn Perl so any other good resources people have would
>be appreciated!
>
>Joel


--
gentoo-user@gentoo.org mailing list



[gentoo-user] Perl IDE and good tutorials?

2005-02-10 Thread Joel Merrick
Hi guys, can anyone recommend a good one that's in Portage.. or will the
answer be gVim? :D

I'm trying to learn Perl so any other good resources people have would
be appreciated!

Joel



-- 
Joel Merrick




signature.asc
Description: This is a digitally signed message part


[gentoo-user] perl-5.8.2-r1 broken emerge?

2004-02-11 Thread Bob Amen
	I just did a "emerge sync", followed by "emerge portage" (getting 
portage 2.0.50-r1), followed by "emerge gentoolkit" and during the 
latter, got this error:

>>> Merging dev-lang/perl-5.8.2-r1 to /
--- /usr/
--- /usr/bin/
>>> /usr/bin/a2p
>>> /usr/bin/s2p
>>> /usr/bin/pstruct
>>> /usr/bin/c2ph
>>> /usr/bin/h2ph
>>> /usr/bin/h2xs
>>> /usr/bin/cpan
>>> /usr/bin/perl
>>> /usr/bin/psed
>>> /usr/bin/libnetcfg
>>> /usr/bin/pod2html
>>> /usr/bin/pod2text
>>> /usr/bin/pl2pm
Traceback (most recent call last):
  File "/usr/bin/emerge", line 2599, in ?
mydepgraph.merge(mydepgraph.altlist())
  File "/usr/bin/emerge", line 1555, in merge
retval=portage.doebuild(y,"merge",myroot,self.pkgsettings,edebug)
  File "/usr/lib/portage/pym/portage.py", line 2369, in doebuild
return 
merge(mysettings["CATEGORY"],mysettings["PF"],mysettings["D"],mysettings["BUILDDIR"]+"/build-info",myroot,mysettings,myebuild=mysettings["EBUILD"])
  File "/usr/lib/portage/pym/portage.py", line 2491, in merge
return mylink.merge(pkgloc,infloc,myroot,myebuild)
  File "/usr/lib/portage/pym/portage.py", line 5919, in merge
return 
self.treewalk(mergeroot,myroot,inforoot,myebuild,cleanup=cleanup)
  File "/usr/lib/portage/pym/portage.py", line 5549, in treewalk
if 
self.mergeme(srcroot,destroot,outfile,secondhand,"",cfgfiledict,mymtime):
  File "/usr/lib/portage/pym/portage.py", line 5826, in mergeme
if 
self.mergeme(srcroot,destroot,outfile,secondhand,offset+x+"/",cfgfiledict,thismtime):
  File "/usr/lib/portage/pym/portage.py", line 5826, in mergeme
if 
self.mergeme(srcroot,destroot,outfile,secondhand,offset+x+"/",cfgfiledict,thismtime):
  File "/usr/lib/portage/pym/portage.py", line 5830, in mergeme
mymd5=perform_md5(mysrc)
  File "/usr/lib/portage/pym/portage.py", line 2487, in perform_md5
return perform_checksum(x, calc_prelink)[0]
  File "/usr/lib/portage/pym/portage.py", line 376, in perform_checksum
data = f.read(blocksize)
IOError: [Errno 5] Input/output error

	I've tried the previously suggested ldconfig to no avail.

	Has anyone seen this or have suggestions for what I shold try next?

Thanks,
Bob
--
Bob Amen
O'Reilly Media, Inc.
http://www.ora.com/
  http://www.oreilly.com/
--
[EMAIL PROTECTED] mailing list


[gentoo-user] perl XML::Xerces

2003-12-16 Thread Lincoln A. Baxter
Has anyone successfully build and tested the perl XML::Xerces module on
Gentoo?

No ebuild exists...  I am willing to create one if someone can give me a
clue as to what works.

The current CPAN perl module is XML::Xerces-2.3.0-4 which will compile
against xercesc built with
/usr/portage/dev-libs/xerces-c/xerces-c-2.3.0-r6.ebuild but not 2.4.0.

Tests fail to load the perl Xerces.so with undefined symbol:
_ZN11xercesc_2_49XMLString9transcodeEPKt 

xercesc does not build with gcc-2.95.  I have tried building the module
with both gcc-2.95 and with gcc-3.2.3, and it compiles and links with
both compilers, but both builds failure to load with undefined symbol
errors.










-- 
Lincoln A. Baxter <[EMAIL PROTECTED]>


--
[EMAIL PROTECTED] mailing list



[gentoo-user] perl and qmail aliases

2003-12-08 Thread Andrew Gaffney
I'm running qmail on my Gentoo box. I wrote a Perl script that runs a query against a 
MySQL db to get a list of customer email addresses. This script then takes a full email 
for input and rewrites the 'To' header and sends it with qmail-inject for each email 
address from the db. I have an alias set up in qmail that pipes anything sent through it 
into this script that I wrote. This setup works just fine, except when an email address no 
longer exists. The MTA of the server where the email no longer exists sends the failure 
notice to alias@ instead of to @. Does anyone know why 
this is? My script is below.

#!/usr/bin/perl
use DBI();
my $counter = 0;
my @email;
my $dbh = DBI->connect("DBI:mysql:database=;host=", "", "", 
{'RaiseError' => 1});
my $query = "SELECT fname, lname, homeemail, officeemail FROM people WHERE current=1";
my $sth = $dbh->prepare($query);
$sth->execute();

@email = ;

while(my $ref = $sth->fetchrow_hashref()) {
  if($ref->{homeemail} ne "NULL" && $ref->{homeemail} ne "") {
open PIPE, "| /var/qmail/bin/qmail-inject $ref->{homeemail}";
foreach my $line (@email) {
  $line =~ s/^To: .+$/To: \"$ref->{fname} $ref->{lname}\" <$ref->{homeemail}>/;
  print PIPE "$line";
}
close PIPE;
  }
  if($ref->{officeemail} ne "NULL" && $ref->{officeemail} ne "") {
open PIPE, "| /var/qmail/bin/qmail-inject $ref->{officeemail}";
foreach my $line (@email) {
  $line =~ s/^To: .+$/To: \"$ref->{fname} $ref->{lname}\" <$ref->{officeemail}>/;
  print PIPE "$line";
}
close PIPE;
  }
}
$sth->finish();
$dbh->disconnect();
--
Andrew Gaffney
--
[EMAIL PROTECTED] mailing list


Re: [gentoo-user] Perl Guru's? Having isssues recompiling perl

2003-10-31 Thread Paul Varner
On Fri, 2003-10-31 at 09:19, SN wrote:
> Strange, that in your bad config.pm there is for example -DPERL5 missing,
> but this is set in the ebuild, I can only imagine, that something is wrong
> with your installation and you don't have all tools onboard which are needed
> by emerge to in order to create the right Config.pm.
> 
> Have you uninstalled single packages, thinking that they might not be needed
> by other packages?
> 
> I'd re-emerge all basic packages and then try to emerge perl again.

I saw the -DPERL5 missing and I have noted that it was strange.

I may get there.  I haven't uninstalled anything that I didn't
explicitly load myself.  Additionally, if there is something missing, it
isn't being caught by portage's dependency checking.

I have noted that compiling perl manually without any of the patches
applied by the ebuild process compiles correctly.  I'm in the process of
modifying the ebuild (I copied it to /usr/local/portage, bumped it to
-r13 and masked it) and back tracking through the patches and defines
that are enabled during the ebuild process.

The other thing that I discovered is that perl on my other Gentoo box
exhibits the same behavior if I run my test program against the bad
Config.pm  So it doesn't look to me like a machine specific problem.

Regards,
Paul

--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] Perl Guru's? Having isssues recompiling perl

2003-10-31 Thread SN
Strange, that in your bad config.pm there is for example -DPERL5 missing,
but this is set in the ebuild, I can only imagine, that something is wrong
with your installation and you don't have all tools onboard which are needed
by emerge to in order to create the right Config.pm.

Have you uninstalled single packages, thinking that they might not be needed
by other packages?

I'd re-emerge all basic packages and then try to emerge perl again.


- Original Message - 
From: "Paul Varner" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 29, 2003 3:40 AM
Subject: Re: [gentoo-user] Perl Guru's? Having isssues recompiling perl


> On Mon, 2003-10-27 at 10:35, SN wrote:
> > How about showing us the diff?
>
> Attached is a diff of the good and bad Config.pm files.  I have narrowed
> the issue down to the perl statement "keys %Config"  I have created the
> following test program which has the same issue with allocating memory
> and never prints anything.
>
> BEGIN {
> @INC = './lib';
> }
>
> use Config;
>
> foreach $key (keys %Config) {
> print "Key: $key\n";
> }
>
>
> Regards,
> Paul
>






> --
> [EMAIL PROTECTED] mailing list


--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] Perl Guru's? Having isssues recompiling perl

2003-10-28 Thread Paul Varner
On Mon, 2003-10-27 at 10:35, SN wrote: 
> How about showing us the diff?

Attached is a diff of the good and bad Config.pm files.  I have narrowed
the issue down to the perl statement "keys %Config"  I have created the
following test program which has the same issue with allocating memory
and never prints anything.

BEGIN {
@INC = './lib';
}

use Config;

foreach $key (keys %Config) {
print "Key: $key\n";
}


Regards,
Paul
--- Config.pm.bad   2003-10-28 20:18:01.0 -0600
+++ Config.pm.good  2003-10-28 20:18:09.0 -0600
@@ -34,9 +34,9 @@
 #
 ## Package name  : perl5
 ## Source directory  : .
-## Configuration time: Tue Oct 28 19:57:10 CST 2003
+## Configuration time: Sun Aug 31 09:12:50 Local time zone must be set--see zic 
manual page 2003
 ## Configured by : root
-## Target system : linux garath 2.4.20-gentoo-r7 #2 thu oct 16 22:07:55 cdt 2003 
i686 intel(r) pentium(r) 4 cpu 1.80ghz genuineintel gnulinux 
+## Target system : linux cdimage 2.4.21-gss #1 mon jul 21 00:38:59 local time 
zone must be set--see zic manu i686 intel(r) pentium(r) 4 cpu 1.80ghz genuineintel 
gnulinux 
 #
 ## Configure command line arguments.
 #PERL_PATCHLEVEL=
@@ -45,17 +45,17 @@
 archlibexp='/usr/lib/perl5/5.8.0/i686-linux'
 archname='i686-linux'
 cc='gcc'
-ccflags='-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
-cppflags='-fno-strict-aliasing'
+ccflags='-DPERL5 -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
+cppflags='-DPERL5 -fno-strict-aliasing'
 dlsrc='dl_dlopen.xs'
 dynamic_ext='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek 
Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV 
List/Util MIME/Base64 NDBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via 
SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize 
XS/APItest XS/Typemap attrs re threads threads/shared'
 extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek 
Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV 
List/Util MIME/Base64 NDBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via 
SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize 
XS/APItest XS/Typemap attrs re threads threads/shared Errno'
-installarchlib='/var/tmp/portage/perl-5.8.0-r12/image//usr/lib/perl5/5.8.0/i686-linux'
-installprivlib='/var/tmp/portage/perl-5.8.0-r12/image//usr/lib/perl5/5.8.0'
+installarchlib='/usr/lib/perl5/5.8.0/i686-linux'
+installprivlib='/usr/lib/perl5/5.8.0'
 libpth='/usr/local/lib /lib /usr/lib'
 libs='-lpthread -lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lcrypt -lutil'
 osname='linux'
-osvers='2.4.20-gentoo-r7'
+osvers='2.4.21-gss'
 prefix='/usr'
 privlibexp='/usr/lib/perl5/5.8.0'
 sharpbang='#!'
@@ -121,9 +121,8 @@
 ccsymbols='__GNUC_MINOR__=2 __GNUC_PATCHLEVEL__=3 __GXX_ABI_VERSION=102 
__NO_INLINE__=1 __STDC_HOSTED__=1 __gnu_linux__=1 __i386=1 __i386__=1 __linux=1 
__linux__=1 __tune_i686__=1 __tune_pentiumpro__=1 __unix=1 __unix__=1 cpu=i386 
machine=i386 system=posix'
 ccversion=''
 cf_by='root'
[EMAIL PROTECTED]
-homelinux.org'
-cf_time='Tue Oct 28 19:57:10 CST 2003'
+cf_email='[EMAIL PROTECTED]'
+cf_time='Sun Aug 31 09:12:50 Local time zone must be set--see zic manual page 2003'
 charsize='1'
 chgrp=''
 chmod='chmod'
@@ -148,10 +147,10 @@
 config_arg5='-Dvendorprefix=/usr'
 config_arg6='-Dsiteprefix=/usr'
 config_arg7='-Dlocincpth= '
-config_arg8='-Doptimize=-march=pentium4 -O2 -pipe'
+config_arg8='-Doptimize=-O3 -march=pentium4 -funroll-loops -pipe'
 config_arg9='-Duselargefiles'
 config_argc='18'
-config_args='-des -Darchname=i686-linux -Dcc=gcc -Dprefix=/usr -Dvendorprefix=/usr 
-Dsiteprefix=/usr -Dlocincpth=  -Doptimize=-march=pentium4 -O2 -pipe -Duselargefiles 
-Dd_dosuid -Dd_semctl_semun -Dscriptdir=/usr/bin -Dman3ext=3pm -Dcf_by=Gentoo -Ud_csh 
-Di_gdbm -Di_db -Di_ndbm'
+config_args='-des -Darchname=i686-linux -Dcc=gcc -Dprefix=/usr -Dvendorprefix=/usr 
-Dsiteprefix=/usr -Dlocincpth=  -Doptimize=-O3 -march=pentium4 -funroll-loops -pipe 
-Duselargefiles -Dd_dosuid -Dd_semctl_semun -Dscriptdir=/usr/bin -Dman3ext=3pm 
-Dcf_by=Gentoo -Ud_csh -Di_gdbm -Di_db -Di_ndbm'
 contains='grep'
 cp='cp'
 cpio=''
@@ -563,9 +562,9 @@
 date='date'
 db_hashtype='u_int32_t'
 db_prefixtype='size_t'
-db_version_major='4'
-db_version_minor='0'
-db_version_patch='14'
+db_version_major='3'
+db_version_minor='2'
+db_version_patch='9'
 defvoidused='15'
 direntrytype='struct dirent'
 dlext='so'
@@ -597,10 +596,10 @@
 freetype='void'
 from=':'
 full_ar='/usr/bin/ar'
-full_csh='/bin/csh'
+full_csh='csh'
 full_sed='/bin/sed'
 gccosandvers=''
-gccversion='3.2.3 20030422 (Gentoo Linux 1.4 3.2.3-r2, propolice)'
+gccversion='3.2.3 20030422 (Gentoo Linux 1.4 3.2.3-r1, propolice)'
 getgrent_r_proto='0'
 getgrgid_r_proto='0'
 getgrnam_r_proto='0'
@@ -732,22 +731,22 @@
 inc_version_list_init='0'
 incpath=''
 inews=''
-installbin='

Re: [gentoo-user] Perl Guru's? Having isssues recompiling perl

2003-10-28 Thread SN
How about showing us the diff?
- Original Message - 
From: "Paul Varner" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, October 26, 2003 11:49 PM
Subject: [gentoo-user] Perl Guru's? Having isssues recompiling perl


> [Also sent to the gentoo-dev mailing list]
>
> Are there any perl guru's on this list?
>
> I having problems recompiling perl on my Gentoo box and I'm trying to
> determine what the problem is and how to fix it.
>
> Basically, I decided to recompile the software on my box to use the -O2
> optimization flag instead of -O3.  However, whenever I do an 'emerge
> =dev-lang/perl-5.8.0-r12', the compiling process ends up crashing my
system.
>
> I have narrowed it down to the 'make test' portion of the process and the
> test that is crashing the box is lib/Config.  When perl runs that test it
> appears to go into an infinite loop allocating memory, eventually the box
> runs out of swap space and the kernel starts killing off processes and I
end
> up having to reboot the box.  As as test I temporarily created a 2 gig
swap
> file and the emerge still ran out of memory.  I tried changing my cflags
> back
> to the original setiing and I still get the same results.
>
> By running the test manually from the /var/tmp/portage/perl*/work
directory,
> I have determined that the test doesn't like the Config.pm file that was
> configured.  If I copy over my existing Config.pm and run the test
manually
> it works, but if I use the one created during the configure and compile
> process, I get the problem listed above.  A diff of the two Config.pm
files
> doesn't show anything that jumps out at me.
>
> I have google'd high and low and I can't find anything with somebody
having
> a similar issue
>
> I'm hesitant to create a bug in bugzilla at this time as I don't have any
> other information to determine problem.  So if there is anyone that has
any
> pointers on where to start debugging further, I would highly appreciate
it.
> I can supply copies of the Config.pm files on request.  This one is really
> bugging me as there should be no reason for perl to compile successfully
at
> install and then fail to compile properly on the same box.
>
> Regards,
> Paul
>
>
>
> --
> [EMAIL PROTECTED] mailing list
>
>


--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] Perl Guru's? Having isssues recompiling perl

2003-10-27 Thread Richard Kilgore
On Sun, Oct 26, 2003 at 04:49:15PM -0600, Paul Varner wrote:
> By running the test manually from the /var/tmp/portage/perl*/work directory,
> I have determined that the test doesn't like the Config.pm file that was
> configured.  If I copy over my existing Config.pm and run the test manually
> it works, but if I use the one created during the configure and compile
> process, I get the problem listed above.  A diff of the two Config.pm files
> doesn't show anything that jumps out at me.

Since you can compile it if you substitute in your Config.pm
file, are you aware of the process to step through the ebuild
steps one at a time to install a package?  You can use ebuild to
unpack the package (ebuild perl*.ebuild unpack), then configure
and compile it manually, create an empty file named .compiled
somewhere in /var/tmp/perl*/ (I think it would be
/var/tmp/perl*/work/, but I'm not 100% sure that's right), and
then run ebuild perl*.ebuild merge.  There is a FAQ on doing
this that would have all the details.

- richard

-- 
Richard Kilgore
[EMAIL PROTECTED]

--
[EMAIL PROTECTED] mailing list



[gentoo-user] Perl Guru's? Having isssues recompiling perl

2003-10-26 Thread Paul Varner
[Also sent to the gentoo-dev mailing list]

Are there any perl guru's on this list?

I having problems recompiling perl on my Gentoo box and I'm trying to
determine what the problem is and how to fix it.

Basically, I decided to recompile the software on my box to use the -O2
optimization flag instead of -O3.  However, whenever I do an 'emerge
=dev-lang/perl-5.8.0-r12', the compiling process ends up crashing my system.

I have narrowed it down to the 'make test' portion of the process and the
test that is crashing the box is lib/Config.  When perl runs that test it
appears to go into an infinite loop allocating memory, eventually the box
runs out of swap space and the kernel starts killing off processes and I end
up having to reboot the box.  As as test I temporarily created a 2 gig swap
file and the emerge still ran out of memory.  I tried changing my cflags
back
to the original setiing and I still get the same results.

By running the test manually from the /var/tmp/portage/perl*/work directory,
I have determined that the test doesn't like the Config.pm file that was
configured.  If I copy over my existing Config.pm and run the test manually
it works, but if I use the one created during the configure and compile
process, I get the problem listed above.  A diff of the two Config.pm files
doesn't show anything that jumps out at me.

I have google'd high and low and I can't find anything with somebody having
a similar issue

I'm hesitant to create a bug in bugzilla at this time as I don't have any
other information to determine problem.  So if there is anyone that has any
pointers on where to start debugging further, I would highly appreciate it.
I can supply copies of the Config.pm files on request.  This one is really
bugging me as there should be no reason for perl to compile successfully at
install and then fail to compile properly on the same box.

Regards,
Paul



--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] perl DBD-mysql

2003-10-11 Thread Collins Richey
On Sat, 11 Oct 2003 23:01:55 -0600 Collins Richey <[EMAIL PROTECTED]> wrote:

> FYI,
> 
> I have just discovered that the perl DBD-mysql package needs to be re-emerged
> if perl is upgraded and the level of libmysqlclient.so.nn (currently 12)
> changes. It appears that the libmysqlclient level is hard coded.  Perl
> DBD-mysql code will fail to load libmysqlclient until you re-emerge.
> 
> I opened bugzilla #30947.
> 

Woops, I see that this has been marked as a duplicate.  29274 is the real bug. 
It's really mysql that changes the level.  Unfortunately the prior bug made no
reference to DBD-mysql, so my search didn't turn up anything.

According to 29274 this is just hunky-dory and will not be fixed, so be aware.

-- 
Collins Richey - Denver Area
if you fill your heart with regrets of yesterday and the 
worries of tomorrow, you have no today to be thankful for.



--
[EMAIL PROTECTED] mailing list



[gentoo-user] perl DBD-mysql

2003-10-11 Thread Collins Richey
FYI,

I have just discovered that the perl DBD-mysql package needs to be re-emerged if
perl is upgraded and the level of libmysqlclient.so.nn (currently 12) changes. 
It appears that the libmysqlclient level is hard coded.  Perl DBD-mysql code
will fail to load libmysqlclient until you re-emerge.

I opened bugzilla #30947.

-- 
Collins Richey - Denver Area
if you fill your heart with regrets of yesterday and the 
worries of tomorrow, you have no today to be thankful for.



--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] PERL and 'mail notification'

2003-09-07 Thread Jason Stubbs
On Monday 08 September 2003 02:12, Doug Weimer wrote:
> On Sun, 2003-09-07 at 08:01, Jason Stubbs wrote:
> 
>
> > # Can I combine the following two lines in any way?
> > # $mail_body = @$mail->body(); does not work.
> > $mail_body_ref = $mail->body();
> > @mail_body = @$mail_body_ref;
>
> @{$mail->body()} works here. If you want, you can also use
> foreach(@{$mail->body(}) below.

Okay, that worked great!

> > @body_text = split("\n", join(" ", @body_text));
> >
> > @ntfy_mail = ("Date:   $msg_date",
> >   "From:   $msg_from",
> >   "Subject:$msg_subj",
> >   "\n");
> >
> > # Can I combine this into one line? Can I combine it with the above?
> > for ($i = 0; $i < 20; $i++) {
> > @ntfy_mail = (@ntfy_mail, "@body_text[$i]\n");
> > }
>
> Since you only want 20 lines you can use @body_text[0 .. 19] in the
> join. If you want to reduce everything to a few lines, you can use a
> second join to add the newlines:
>
> $text = join("\n", split("\n", join(" ", @body_text[0 .. 19])));

The problem with this is that the original @body_text sometimes has more than 
one newline per element. Thus, I was getting up to 40 lines output by doing 
something similar previously. However...

@body_text = split("\n", join("", @body_text));
@ntfy_mail = ("Date:   $msg_date",
  "From:   $msg_from",
  "Subject:$msg_subj",
  "\n", join("\n", @body_text[0..19]));

This does exactly what I want. And changing the " " to "" in the initial join 
fixed both bugs too! For the record, the bugs were:
1) A preceding the first body line.
2) Certain characters of Japanese text were being corrupted.

Thanks for everybody's help!

Best regards,
Jason

--
[EMAIL PROTECTED] mailing list

Re: [gentoo-user] PERL and 'mail notification'

2003-09-07 Thread Doug Weimer
On Sun, 2003-09-07 at 08:01, Jason Stubbs wrote:

> # Can I combine the following two lines in any way?
> # $mail_body = @$mail->body(); does not work.
> $mail_body_ref = $mail->body();
> @mail_body = @$mail_body_ref;

@{$mail->body()} works here. If you want, you can also use
foreach(@{$mail->body(}) below.


> @body_text = split("\n", join(" ", @body_text));
> 
> @ntfy_mail = ("Date:   $msg_date",
>   "From:   $msg_from",
>   "Subject:$msg_subj",
>   "\n");
> 
> # Can I combine this into one line? Can I combine it with the above?
> for ($i = 0; $i < 20; $i++) {
> @ntfy_mail = (@ntfy_mail, "@body_text[$i]\n");
> }
> 

Since you only want 20 lines you can use @body_text[0 .. 19] in the
join. If you want to reduce everything to a few lines, you can use a
second join to add the newlines:

$text = join("\n", split("\n", join(" ", @body_text[0 .. 19])));

or use map to keep the result as an array:

@body_text = map { $_ ."\n" } split(  );

Good luck,

Doug


signature.asc
Description: This is a digitally signed message part


Re: [gentoo-user] PERL and 'mail notification'

2003-09-07 Thread Jason Cooper
Jason Stubbs ([EMAIL PROTECTED]) scribbled:
> On Tuesday 02 September 2003 10:50, Marshal Newrock wrote:
> > On Mon, 1 Sep 2003, Jason wrote:
> > > above, what I want to do is:
> > >
> > > @sometext = ("text\n\with\nmore\nthan\none\nnewline\n",
> > > "some\nother\nline\n");
> > > @newtext = ("text\n", "with\n", "more\n", "than\n", "one\n", "newline\n",
> > > "some\n",
> > > "other\n", "line\n");
> > > #Do something magic to @sometext here to make it turn into @newtext
> >
> > Just two things:
> > 1) perldoc -f split
> > 2) man perlfunc
> >
> > Perl typically excels at text processing.  You can also look at the
> > 'join' command if you wish.  But certainly 'man perlfunc' along with
> > 'perldoc -f $function_name' will let you go far with your scripts.  :)
> 
> Sorry for the extremely late reply. Thanks for the info. I eventually used it 
> to write a working script, which I have included below.
> 
> I was using "man perl*" quite often. I haven't read all the way through 
> anything except perlintro yet though. I find when looking up language 
> reference, you have to know what you want to be able to find it. That is to 
> say, I don't tend to search for how a function works unless I expect the 
> function to exist. Needless to say, I didn't think the function to exist - 
> even though I knew that perl's forte is text-processing. This is my first 
> attempt at anything in perl, too!
> 
> Still a bit of functionality to add before I'll be happy - but I'll do that as 
> needed. There's also two bugs, one small and one big, but I'll work on those 
> independently until I get too frustrated. ;-)
> 
> I do have a couple of questions which I haven't been able to find the answer 
> to. I've embedded them within the code.

This may be OT for this thread, but there may be a simpler way to
accomplish the same results.  iirc, you said you were using procmail to
filter incoming mail and wanted to use a perl script to send
notification to another email address. 

I do the exact same thing, but without the perl script.  Take a look at
this slice of my .procmailrc:

# Begin ~/.procmailrc

[EMAIL PROTECTED]

#-
# BEGIN SAFETY NET

#
# All mail to Maildir first
#

:0c
Maildir/


# END SAFETY NET

#
# Mail from work
#

:0hc # h=header only, c=copy
* ^From.*(work|slavedriver|ballandchain) # usual filter
!$FWD_URGENT # send the header to cellphone

:0   # deposit msg to sep dir
* ^From.*(work|slavedriver|ballandchain)
WorkMail/

# End ~/.procmailrc

I am by no means even remotely good at procmail scripts, I just hacked
this once and stuck with it. All it does is copy the header info of the
relevant message to my cell phone's email address.  This way I know
right away if I need to check mail (or if innaccessible, call the
person).  btw - this only works well if people use short, clear subject
lines.  All you'll get is the sender's email address and subj.

HTH,

Cooper.

--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] PERL and 'mail notification'

2003-09-07 Thread Jason Stubbs
On Tuesday 02 September 2003 10:50, Marshal Newrock wrote:
> On Mon, 1 Sep 2003, Jason wrote:
> > above, what I want to do is:
> >
> > @sometext = ("text\n\with\nmore\nthan\none\nnewline\n",
> > "some\nother\nline\n");
> > @newtext = ("text\n", "with\n", "more\n", "than\n", "one\n", "newline\n",
> > "some\n",
> > "other\n", "line\n");
> > #Do something magic to @sometext here to make it turn into @newtext
>
> Just two things:
> 1) perldoc -f split
> 2) man perlfunc
>
> Perl typically excels at text processing.  You can also look at the
> 'join' command if you wish.  But certainly 'man perlfunc' along with
> 'perldoc -f $function_name' will let you go far with your scripts.  :)

Sorry for the extremely late reply. Thanks for the info. I eventually used it 
to write a working script, which I have included below.

I was using "man perl*" quite often. I haven't read all the way through 
anything except perlintro yet though. I find when looking up language 
reference, you have to know what you want to be able to find it. That is to 
say, I don't tend to search for how a function works unless I expect the 
function to exist. Needless to say, I didn't think the function to exist - 
even though I knew that perl's forte is text-processing. This is my first 
attempt at anything in perl, too!

Still a bit of functionality to add before I'll be happy - but I'll do that as 
needed. There's also two bugs, one small and one big, but I'll work on those 
independently until I get too frustrated. ;-)

I do have a couple of questions which I haven't been able to find the answer 
to. I've embedded them within the code.


#!/usr/bin/perl

use Mail::Internet;
use HTML::Parser;

$mail = Mail::Internet->new(*STDIN);
$mail_head = $mail->head();

$msg_date = $mail_head->get("Date");
$msg_from = $mail_head->get("From");
$msg_subj = $mail_head->get("Subject");

$mail->tidy_body();

# Can I combine the following two lines in any way?
# $mail_body = @$mail->body(); does not work.
$mail_body_ref = $mail->body();
@mail_body = @$mail_body_ref;

@body_text = "";
$body_pars = HTML::Parser->new(
text_h => [sub
{
$text = shift;
if ($text =~ /[0-9a-zA-Z]/) {
@body_text = (@body_text, $text);
}
}, 'dtext']);
foreach (@mail_body) {
$body_pars->parse("$_");
}
$body_pars->eof();

@body_text = split("\n", join(" ", @body_text));

@ntfy_mail = ("Date:   $msg_date",
  "From:   $msg_from",
  "Subject:$msg_subj",
  "\n");

# Can I combine this into one line? Can I combine it with the above?
for ($i = 0; $i < 20; $i++) {
@ntfy_mail = (@ntfy_mail, "@body_text[$i]\n");
}

open(XMAIL, "| mail -s 'Mail Notification' [EMAIL PROTECTED]");
print XMAIL @ntfy_mail;
close(XMAIL);


Thanks for all your help!

Jason

--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] Perl C::DynaLib Question

2003-09-04 Thread Mike Wojcikiewicz
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1

On Thursday 04 September 2003 14:44, Nicholas Pappas wrote:
>   Has anyone worked with the C::DynaLib module in PERL, on Gentoo?  If
> so, how did you install it?
>   I've tried emerage (but not in the portage tree), the cpan install
> program, and a manual install too.  On the last two I get a compile error.
>   Anyone able to get this compile correctly?

while i havent worked with this personally, i think i might be able to help 
you out if you  post the compile error

- -- 
- --mike
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.2.2 (GNU/Linux)

iD8DBQE/V43GzK7WDkEewTARAlPeAKCrIrbMMFmrWNDarMCBj8kAh0PhNgCgqOVT
vLfC0s7+Q1a9MUTlaQKLTOs=
=0AlK
-END PGP SIGNATURE-

--
[EMAIL PROTECTED] mailing list



[gentoo-user] Perl C::DynaLib Question

2003-09-04 Thread Nicholas Pappas
	Has anyone worked with the C::DynaLib module in PERL, on Gentoo?  If 
so, how did you install it?
	I've tried emerage (but not in the portage tree), the cpan install 
program, and a manual install too.  On the last two I get a compile error.
	Anyone able to get this compile correctly?

--
[EMAIL PROTECTED] mailing list


[gentoo-user] PERL CPAN Modules and Emerge

2003-09-04 Thread Nicholas Pappas
	Hi all.

	I am trying to install a few CPAN modules for PERL.  I found one, 
Time::HiRes, in the portage source tree, but I need to install another 
that I can't find in the tree -- C::DynaLib.
	Am I just overlooking this, or should I just install this outside of 
portage.

	Thanks!

--
[EMAIL PROTECTED] mailing list


RE: [gentoo-user] PERL and 'mail notification'

2003-09-02 Thread Marshal Newrock
On Mon, 1 Sep 2003, Jason wrote:

> >The problem here is you have to define a "line".  A line of email can have
> >up to 1000 (I think) characters.  Postfix will split the line at 990
> >characters by default.  And then there's all the extra information added
> >by using HTML.
>
> All the extra HTML information is removed by the script already - except for
> the stylesheet
> information in certain situations due to the bug. To be more specific about my
> question
> above, what I want to do is:
>
> @sometext = ("text\n\with\nmore\nthan\none\nnewline\n",
> "some\nother\nline\n");
> @newtext = ("text\n", "with\n", "more\n", "than\n", "one\n", "newline\n",
> "some\n",
> "other\n", "line\n");
> #Do something magic to @sometext here to make it turn into @newtext
>
>
> Probably have to write a routine to do searches of \n to make a new array and
> then
> replace the old one with it, right? I was thinking that it would be a little
> slow like that,
> however, and was wondering if there was some better way.

Just two things:
1) perldoc -f split
2) man perlfunc

Perl typically excels at text processing.  You can also look at the
'join' command if you wish.  But certainly 'man perlfunc' along with
'perldoc -f $function_name' will let you go far with your scripts.  :)

Another option would be to use the 's' operator (man perlop)  to change
all newlines to spaces.
eg: $sometext =~ s/\n/ /g
You'd probably want to add a newline to end if you do this.

-- 
Marshal Newrock, unemployed Linux user in Lansing, MI
Caution: Product will be hot after heating


--
[EMAIL PROTECTED] mailing list



RE: [gentoo-user] PERL and 'mail notification'

2003-09-02 Thread Jason
>= Original Message From Marshal Newrock <[EMAIL PROTECTED]> =
>On Mon, 1 Sep 2003, Jason Stubbs wrote:
>
>> The only other thing which I haven't had time to really check into yet - 
too
>> much time spent reading man pages! - is that it seems 1 element of 
@bodytext
>> has more than one line of text; that is to say, each of element of 
@bodytext
>> has >=1 newline. This results in @bodytext[1..5] returning about 30 lines 
of
>> text with the test email I was using. How can I use perl to get just 5 (or
>> 10) lines of text?
>
>The problem here is you have to define a "line".  A line of email can have
>up to 1000 (I think) characters.  Postfix will split the line at 990
>characters by default.  And then there's all the extra information added
>by using HTML.
 
All the extra HTML information is removed by the script already - except for 
the stylesheet 
information in certain situations due to the bug. To be more specific about my 
question 
above, what I want to do is:
 
@sometext = ("text\n\with\nmore\nthan\none\nnewline\n", 
"some\nother\nline\n"); 
@newtext = ("text\n", "with\n", "more\n", "than\n", "one\n", "newline\n", 
"some\n", 
"other\n", "line\n"); 
#Do something magic to @sometext here to make it turn into @newtext

 
Probably have to write a routine to do searches of \n to make a new array and 
then 
replace the old one with it, right? I was thinking that it would be a little 
slow like that, 
however, and was wondering if there was some better way.
 
Regards, 
Jason

 
-
 Shanje.NET
 The webmaster's 1st choice for Windows 2003 Hosting
   http://www.Shanje.NET/
-


--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] PERL and 'mail notification'

2003-09-01 Thread Marshal Newrock
On Mon, 1 Sep 2003, Jason Stubbs wrote:

> The only other thing which I haven't had time to really check into yet - too
> much time spent reading man pages! - is that it seems 1 element of @bodytext
> has more than one line of text; that is to say, each of element of @bodytext
> has >=1 newline. This results in @bodytext[1..5] returning about 30 lines of
> text with the test email I was using. How can I use perl to get just 5 (or
> 10) lines of text?

The problem here is you have to define a "line".  A line of email can have
up to 1000 (I think) characters.  Postfix will split the line at 990
characters by default.  And then there's all the extra information added
by using HTML.

-- 
Marshal Newrock, unemployed Linux user in Lansing, MI
Caution: Product will be hot after heating


--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] PERL and 'mail notification'

2003-09-01 Thread Jason Stubbs
Well,


Background: I'm writing a script to send a notification mail to an e-mail 
address based on an incoming mail. I'm using procmail to decide which 
messages should be notified about and to pipe them one by one into said 
script.


[edit]I wish I could perform edits like in the forums ;-)[/edit]


Here's what I've got so far. It mostly works but a couple of things left to 
do. Obviously, I still have to send the notification mail out. I'll try to do 
that in Perl but will probably end up using mailx so I don't have to bother 
with the mail headers. I also have to detect whether there are several MIME 
sections and deal with that - if there's a plain text one grab that else use 
the html. Those things I should be able to do by myself.


#!/usr/bin/perl

use Mail::Internet;
use HTML::Parser;

$mail = Mail::Internet->new(*STDIN);
$mail_head = $mail->head();

$msg_date = $mail_head->get("Date");
$msg_from = $mail_head->get("From");
$msg_subj = $mail_head->get("Subject");

$mail->tidy_body();
$mail_body_ref = $mail->body();
@mail_body = @$mail_body_ref;

@body_text = "";
$body_pars = HTML::Parser->new(
text_h => [sub
{
$text = shift;
if ($text =~ /[0-9a-zA-Z]/) {
@body_text = (@body_text, $text);
}
}, 'dtext']);
foreach (@mail_body) {
$body_pars->parse("$_\n");
}
$body_pars->eof();

$ntfy_head = Mail::Header->new();
$ntfy_head->add("From:", "[EMAIL PROTECTED]");
$ntfy_head->add("To:", "[EMAIL PROTECTED]");
$ntfy_head->add("Subject:", "Mail Notification");

$ntfy = Mail::Internet->new(Header => $ntfy_head);

@ntfy_mail = ("Date:   $msg_date",
  "From:   $msg_from",
  "Subject:$msg_subj",
  "\n", @body_text[1..5], "\n");

$ntfy->body(@ntfy_mail);

$ntfy->print();


What I am having problems with is getting around a known bug in HTML::Parser. 
It doesn't deal with embedded style sheets in HTML (or however they're 
correctly termed). Does anybody have any suggestions on how I can get around 
that? The mail I was using to test the script was a "Core Java Technologies 
Newsletter" but running any mail with embedded HTML that uses an embedded 
style sheet will show up what I mean.

The only other thing which I haven't had time to really check into yet - too 
much time spent reading man pages! - is that it seems 1 element of @bodytext 
has more than one line of text; that is to say, each of element of @bodytext 
has >=1 newline. This results in @bodytext[1..5] returning about 30 lines of 
text with the test email I was using. How can I use perl to get just 5 (or 
10) lines of text?


Regards,
Jason

--
[EMAIL PROTECTED] mailing list



[gentoo-user] perl-tk and ExtUtils-MakeMaker can't coexist?

2003-08-29 Thread Klavs Klavsen
Hi guys,

I posted this at gentoo-dev too - but I don't know where it actually goes.
a dev made this restriction - so this makes it belong on dev I think.

But on the other hand - I'm a user who wants to use it - not an official dev (only got 
a few ebuilds in the tree :)

I'm getting this when I try to emerge perl-tk:

# emerge perl-tk
Calculating dependencies ...done!

!!! Error: the http://www.vsen.dk
PGP: 7E063C62/2873 188C 968E 600D D8F8  B8DA 3D3A 0B79 7E06 3C62
See my new CMS Hosting Service at http://www.VirkPaaNettet.dk

Working with Unix is like wrestling a worthy opponent. 
Working with windows is like attacking a small whining child 
who is carrying a .38.  


signature.asc
Description: This is a digitally signed message part


Re: [gentoo-user] Perl hates my linux

2003-08-11 Thread Renat Golubchyk
Hi!

On Wednesday 06 August 2003 03:54, Stephen Turner wrote:
> well i gave the only thing i new how the first time around and no one
> answerd so, i gave the output of emerge -up world. and asked what kind of
> info you gus needed, anyways im tinkering with it and if it gives me too
> much trouble ill just reinstall or something.

Reinstall what? Gentoo or perl? As was already said in other replies you 
should check the last week's newsletter. Also there were two or three threads 
on this in the mailing list and many threads in the forums.

From what I saw in your first mail dev-perl/File-Spec blocks the update, 
right? The solution is to unmerge File-Spec and then update perl.


Hope that helps.

Cheers,
Renat


PS. Sorry for being a little bit harsh, but I had a feeling that you didn't 
check your mails thoroughly ;-)


--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] Perl hates my linux

2003-08-07 Thread William Kenworthy
I think the reason you have had no replies is that you have given no
information, so its anyones guess what is actually happening.

Billk


On Tue, 2003-08-05 at 13:32, Stephen Turner wrote:
> hey the new perl update or version is causing a conflict with another
> package in my system or something. i sent an email erlyer with no reply im
> having to manualy update other packages to stay decently secure :-p
> atleast i hope lol
> 
> =
> *//  No cows were injured in the making of this message *//
> 
> __
> Do you Yahoo!?
> Yahoo! SiteBuilder - Free, easy-to-use web site design software
> http://sitebuilder.yahoo.com
> 
> --
> [EMAIL PROTECTED] mailing list
-- 
William Kenworthy <[EMAIL PROTECTED]>


--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] Perl hates my linux

2003-08-05 Thread Stephen Turner
well i gave the only thing i new how the first time around and no one
answerd so, i gave the output of emerge -up world. and asked what kind of
info you gus needed, anyways im tinkering with it and if it gives me too
much trouble ill just reinstall or something.

=
*//  No cows were injured in the making of this message *//

__
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com

--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] Perl hates my linux

2003-08-04 Thread gabriel
On August 5, 2003 01:32 am, Stephen Turner wrote:
> hey the new perl update or version is causing a conflict with another
> package in my system or something. i sent an email erlyer with no reply im
> having to manualy update other packages to stay decently secure :-p
> atleast i hope lol



without having more information, my best guess for you would be to read this 
from the gwn:

  http://www.gentoo.org/news/en/gwn/20030728-newsletter.xml#doc_chap1_sect2

-- 
thanks be to god that gave me stubborness when i know i am right.
- john adams


--
[EMAIL PROTECTED] mailing list



[gentoo-user] Perl hates my linux

2003-08-04 Thread Stephen Turner
hey the new perl update or version is causing a conflict with another
package in my system or something. i sent an email erlyer with no reply im
having to manualy update other packages to stay decently secure :-p
atleast i hope lol

=
*//  No cows were injured in the making of this message *//

__
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com

--
[EMAIL PROTECTED] mailing list



[gentoo-user] Perl ...

2003-08-04 Thread raptor
I just recently "emerge sync-ed" and now tried to emerge Curses  no luck :"(...
As I read here :
http://www.gentoo.org/news/en/gwn/20030728-newsletter.xml#doc_chap1_sect2

there some changes undergoing... i didnt understood very well all... 
Could someone write a step by step procedure how to upgrade . or it will be better 
if I do "perl -MCPAN -e "install Curses"

tia
raptor

--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] perl emerge problems

2003-07-30 Thread collins
Leonid Podolny wrote:

So where is the mailing list archive?   I didn't see any link to it on
the Mailing Lists webpage.
Jim Dohery

   

From the quick search at the archives :)) I can see the similar thread at
23/06/2003.

http://news.gmane.org/thread.php?group=gmane.linux.gentoo.user
http://marc.theaimsgroup.com/?l=gentoo-user&r=1&w=2
http://www.mail-archive.com/[EMAIL PROTECTED]/
 

It would be a really good idea (tm) to post this all too frequently 
asked question somewhere prominent on the gentoo website.

--
Collins
--
[EMAIL PROTECTED] mailing list


Re: [gentoo-user] perl emerge problems

2003-07-30 Thread Jim Doherty
Leonid Podolny wrote:

So where is the mailing list archive?   I didn't see any link to it on
the Mailing Lists webpage.
Jim Dohery

   

From the quick search at the archives :)) I can see the similar thread at
23/06/2003.

http://news.gmane.org/thread.php?group=gmane.linux.gentoo.user
http://marc.theaimsgroup.com/?l=gentoo-user&r=1&w=2
http://www.mail-archive.com/[EMAIL PROTECTED]/
 

Thanks!It strikes me that if the information was easily found on the 
website alot of the stupid duplicate questions would disappear from the 
list.

Jim Doherty

--
[EMAIL PROTECTED] mailing list


 



--
[EMAIL PROTECTED] mailing list


Re: [gentoo-user] perl emerge problems

2003-07-30 Thread Leonid Podolny
> So where is the mailing list archive?   I didn't see any link to it on
> the Mailing Lists webpage.
>
> Jim Dohery
>
>From the quick search at the archives :)) I can see the similar thread at
23/06/2003.

http://news.gmane.org/thread.php?group=gmane.linux.gentoo.user
http://marc.theaimsgroup.com/?l=gentoo-user&r=1&w=2
http://www.mail-archive.com/[EMAIL PROTECTED]/


--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] perl emerge problems

2003-07-30 Thread Jim Doherty
Leonid Podolny wrote:

It would be terribly nice, if people tried to do the regular rtfm, mailing 
list archives and forum search routine, before sending the problem to the 
list. It's about fourth or fifth time this issue is brought up at the list 
during only last week.
 L.
 

So where is the mailing list archive?   I didn't see any link to it on 
the Mailing Lists webpage.

Jim Dohery

--
[EMAIL PROTECTED] mailing list


 



--
[EMAIL PROTECTED] mailing list


Re: [gentoo-user] perl emerge problems

2003-07-30 Thread Leonid Podolny
It would be terribly nice, if people tried to do the regular rtfm, mailing 
list archives and forum search routine, before sending the problem to the 
list. It's about fourth or fifth time this issue is brought up at the list 
during only last week.
  L.

On Wed, 30 Jul 2003, Alberto Bert wrote:

> Hi,
> 
> I've update perl but emerge don't want do it.
> 
> bash-2.05b# emerge -pv perl
> 
> These are the packages that I would merge, in order:
> 
> Calculating dependencies ...done!
> [blocks B]  dev-lang/perl-5.8.0-r12)
> [blocks B]  dev-lang/perl-5.8.0-r12)
> [ebuildU ] dev-lang/perl-5.8.0-r12 [5.8.0-r10] +berkdb -doc +gdbm
> -threads
> 
> bash-2.05b# emerge perl
> Calculating dependencies ...done!
> 
> !!! Error: the  package and both can't be installed on the same system together.
> 
> What does it mean and what should I do?
> 
> Thanks a lot,
> 
> alb
> 
> --
> [EMAIL PROTECTED] mailing list
> 

--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] perl emerge problems

2003-07-29 Thread el lodger
On Wed, 30 Jul 2003 04:29:52 +0200
Alberto Bert <[EMAIL PROTECTED]> wrote:

> Hi,
> 
> I've update perl but emerge don't want do it.
> 
> bash-2.05b# emerge -pv perl
> 
> These are the packages that I would merge, in order:
> 
> Calculating dependencies ...done!
> [blocks B]  dev-lang/perl-5.8.0-r12)
> [blocks B]  dev-lang/perl-5.8.0-r12)
> [ebuildU ] dev-lang/perl-5.8.0-r12 [5.8.0-r10] +berkdb -doc +gdbm
> -threads
> 
> bash-2.05b# emerge perl
> Calculating dependencies ...done!
> 
> !!! Error: the  this package and both can't be installed on the same system together.
Unmerge those two packages that are blocked. Then emerge perl.
Read this from the Gentoo Weekly Newsletter

Radical changes to Perl module handling
---
  
A new version of perl that radically changes the way that modules are 
handled is now available in ~arch, and is slated to appear in the 1.4 
release. Perl has a list of directories in which it looks for modules 
called @INC, and the standard ordering of @INC is rather inconvenient
for 
distribution maintainers. It is impossible to override the functionality

of modules that are included in the core distribution without
overwriting 
the files. That is what Gentoo has done to date, but it has some 
unfortunate side-effects. 
 
While one would expect that merging and unmerging a new version of 
ExtUtils-MakeMaker would return one's system to the state it was in 
before, it does not. Instead, ExtUtils::MakeMaker is completely wiped
off 
the system, and the system becomes unable to install any more modules.
In 
perl 5.8.0-r12 and beyond, @INC is augmented and reordered, so that 
versions of files in the core are actually near the bottom of the chain,

and can be overridden easily in two well-defined ways: by the vendor 
directories and the site directories. Files in the site directories in 
turn can override those in the vendor directories. 
 
After 5.8.0-r12 has been widely installed, we will change the
perl-module 
eclass so that all ebuilds in dev-perl that use it will install their 
files into the vendor directory. Up to now, they use the site directory.

The site directory is the perl equivalent of /usr/local in the current 
opinion of the Gentoo perl team, and we are going to give users complete

control over what goes in there, so you will never have to worry about 
Gentoo ebuilds writing into your site directories any more, and you
always 
have the last say about which version of a module is going to be used. 
Want to try a version from CPAN that's a little experimental? Go ahead, 
and then just delete it from the site directory, and you will have the 
version from the ebuild right there, without any need to reemerge it. No

longer will depclean or unmerging perl modules disable critical perl 
functionality. 
 
However, since current versions of some perl module ebuilds that are 
already installed on people's systems lay claim to critical files in the

perl core, you need to get those off of your systems before emerging 
perl-5.8.0-r12. emerge will remind you of this by using blocking
depends, 
so if you have the problematic versions of the packages installed,
emerge 
-u world or emerge -u perl will abort with an error. Note that the
version 
mentioned in the block is the safe version, because the block says it 
conflicts with anything prior to the safe version. Below is the list at 
this time of safe versions of the affected modules. Anything prior must
be 
unmerged before emerging perl. Note that you do not necessarily need to 
remerge the safe version of these modules after installing perl
5.8.0-12, 
because the 5.8 core contains versions of these modules that are 
sufficiently recent for most uses. 
 
 * ExtUtils-MakeMaker-6.05-r6 
 * File-Spec-0.84-r1 
 * Test-Simple-0.47-r1 
> --
> [EMAIL PROTECTED] mailing list
> 


-- 
Powered by GENTOO LINUX 

--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] perl emerge problems

2003-07-29 Thread R'twick Niceorgaw
On Tuesday 29 July 2003 10:29 pm, Alberto Bert wrote:
> Hi,
>
> I've update perl but emerge don't want do it.
>
> bash-2.05b# emerge -pv perl
>
> These are the packages that I would merge, in order:
>
> Calculating dependencies ...done!
> [blocks B]  dev-lang/perl-5.8.0-r12)
> [blocks B]  dev-lang/perl-5.8.0-r12)
> [ebuildU ] dev-lang/perl-5.8.0-r12 [5.8.0-r10] +berkdb -doc +gdbm
> -threads
>
> bash-2.05b# emerge perl
> Calculating dependencies ...done!
>
> !!! Error: the  package and both can't be installed on the same system together.
>
> What does it mean and what should I do?
>
> Thanks a lot,
>
> alb

I also had the same problem. 
unmerging Test-Simple and File-Spec and then emerging perl fixed it

HTH
R'twick


--
[EMAIL PROTECTED] mailing list



Re: [gentoo-user] perl emerge problems

2003-07-29 Thread Jarrett Graham




emerge -C Test-Simple File-Spec; emerge -pv perl; emerge Test-Simple File-Spec



On Tue, 2003-07-29 at 22:29, Alberto Bert wrote:

Hi,

I've update perl but emerge don't want do it.

bash-2.05b# emerge -pv perl

These are the packages that I would merge, in order:

Calculating dependencies ...done!
[blocks B] 




-- 
http://adcaster.filetap.com
http://astalavista.filetap.com
http://marketingkit.filetap.com

"Beware of he who would deny you access to information, for in his heart, he dreams himself your master."

In 1968 it took the computing power of 2 C-64's to fly a rocket to the
moon. Now, in 1998 it takes the Power of a Pentium 200 to run Microsoft
Windows 95. Something must have gone wrong.

Faith can move mountains. I prefer dynamite.

"I believe in adaptation (Human Adaptation), not evolution!"

"When will you switch to Windows?" he asked.  "When they pry Linux from
my cold, dead hands!" I replied.

The credibility of the Christian religion is based upon documents which were extensively altered!

"Remember, a statue has never been set up in honor of a critic." Jean Sibelius








signature.asc
Description: This is a digitally signed message part


[gentoo-user] perl emerge problems

2003-07-29 Thread Alberto Bert
Hi,

I've update perl but emerge don't want do it.

bash-2.05b# emerge -pv perl

These are the packages that I would merge, in order:

Calculating dependencies ...done!
[blocks B] 

Re: [gentoo-user] Perl question

2003-07-13 Thread Andrew Gaffney
Andrew Gaffney wrote:
I'm writing a Perl program to uninstall a whole package tree, such as 
KDE or Gnome. Here's my code so far:

#! /usr/bin/perl

my @pkgs, $line;

open QUERY, "emerge --nospinner -ep gnome |";
foreach $line () {
  $line =~ s/\[.+\] (.+)  /$1/;
  chomp $line;
  print "${line}\n";
#  $line =~ /(.+)\/(.+)-(\d.+)/;
  push @pkgs, $line;
}
close QUERY;
foreach $line (@pkgs) {
  print "This is a package: $line\n";
}
When I try to access @pkgs after this, there is no data in it. It prints 
'This is a package: ' once and exits with no error. I know its getting 
the data correctly, because it prints a list of all the packages on the 
screen. What am I doing wrong?
Nevermind. This code is simplified from what I was doing. I forgot to 
get rid of blank lines. I was then feeding the blank lines to qpkg as an 
argument causing it to just sit there and do nothing.

--
Andrew Gaffney
--
[EMAIL PROTECTED] mailing list


Re: [gentoo-user] Perl question

2003-07-13 Thread Pat Kerwan


On Sun, Jul 13, 2003 at 03:16:20AM -0500, Andrew Gaffney wrote:
> I'm writing a Perl program to uninstall a whole package tree, such as 
> KDE or Gnome. Here's my code so far:
> 
> 
> #! /usr/bin/perl
> 
> 
> my @pkgs, $line;
> 
> 
> open QUERY, "emerge --nospinner -ep gnome |";
> foreach $line () {
>   $line =~ s/\[.+\] (.+)  /$1/;
>   chomp $line;
>   print "${line}\n";
> #  $line =~ /(.+)\/(.+)-(\d.+)/;
>   push @pkgs, $line;
> }
> close QUERY;
> 
> foreach $line (@pkgs) {
>   print "This is a package: $line\n";
> }
> 
> When I try to access @pkgs after this, there is no data in it. It prints 
> 'This is a package: ' once and exits with no error. I know its getting 
> the data correctly, because it prints a list of all the packages on the 
> screen. What am I doing wrong?
> 

Try changing the QUERY loop as follows:

-   foreach $line () {
+   while( $line =  ) {

- PK

> -- 
> Andrew Gaffney
> 
> 
> --
> [EMAIL PROTECTED] mailing list


--
[EMAIL PROTECTED] mailing list



[gentoo-user] Perl question

2003-07-13 Thread Andrew Gaffney
I'm writing a Perl program to uninstall a whole package tree, such as 
KDE or Gnome. Here's my code so far:

#! /usr/bin/perl

my @pkgs, $line;

open QUERY, "emerge --nospinner -ep gnome |";
foreach $line () {
  $line =~ s/\[.+\] (.+)  /$1/;
  chomp $line;
  print "${line}\n";
#  $line =~ /(.+)\/(.+)-(\d.+)/;
  push @pkgs, $line;
}
close QUERY;
foreach $line (@pkgs) {
  print "This is a package: $line\n";
}
When I try to access @pkgs after this, there is no data in it. It prints 
'This is a package: ' once and exits with no error. I know its getting 
the data correctly, because it prints a list of all the packages on the 
screen. What am I doing wrong?

--
Andrew Gaffney
--
[EMAIL PROTECTED] mailing list


Re: [gentoo-user] perl 5.6.1 --> 5.8.0 upgrade

2003-06-06 Thread raptor
oopps  see :

#make test
.
t/namespaces..ok
t/paramentok 1/12
501 Can't load '/usr/lib/perl5/site_perl/5.6.1/i686-linux/auto/HTML/Parser/Parser.so' 
for module HTML::Parser: 
/usr/lib/perl5/site_perl/5.6.1/i686-linux/auto/HTML/Parser/Parser.so: undefined 
symbol: perl_get_sv file:/root/.cpan/build/XML-Parser-2.31/t/foo.dtd
Handler couldn't resolve external entity at line 8, column 0, byte 173
error in processing external entity reference at line 8, column 0, byte 173:
  
]
>
^
Happy, happy
&joy;, &joy;
 at /root/.cpan/build/XML-Parser-2.31/blib/lib/XML/Parser.pm line 185
t/paramentdubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 2-12
Failed 11/12 tests, 8.33% okay



> hi 
> just upgraded to perl 5.8, and can't install XML::Parser ?!
> I see that there is still stuff staying from 5.6 ver... and installation process of 
> XML uses it , in fact it can't compile 'cause of some error with 5.6..
> 
> How can I wipe out ver.5.6 ?!?!
> do I have to do something else after the upgrade
> 
> thanx alot 
> raptor
> 
> --
> [EMAIL PROTECTED] mailing list
> 
> 

--
[EMAIL PROTECTED] mailing list



[gentoo-user] perl 5.6.1 --> 5.8.0 upgrade

2003-06-06 Thread raptor
hi 
just upgraded to perl 5.8, and can't install XML::Parser ?!
I see that there is still stuff staying from 5.6 ver... and installation process of 
XML uses it , in fact it can't compile 'cause of some error with 5.6..

How can I wipe out ver.5.6 ?!?!
do I have to do something else after the upgrade

thanx alot 
raptor

--
[EMAIL PROTECTED] mailing list



[gentoo-user] Perl 5.8 (fetchyahoo stop working)

2003-02-28 Thread Norberto Bensa
Hello,

I've upgraded from Gentoo 1.2 to 1.4 (perl 5.8, gcc 3.2.2, glibc 2.3.1) and 
now fetchyahoo doesn't forward emails anymore. Can someone please confirm 
this?

NOTE: fetchyahoo download emails to a file, but I need to forward to another 
email account.

Many thanks in advance,
Norberto



pgp0.pgp
Description: signature