[30623] in Perl-Users-Digest
Perl-Users Digest, Issue: 1868 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 22 14:09:50 2008
Date: Mon, 22 Sep 2008 11:09:11 -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 Mon, 22 Sep 2008 Volume: 11 Number: 1868
Today's topics:
How to unable the use of tainted mode in a CGI script ? <azol@non-non-non>
Re: How to unable the use of tainted mode in a CGI scri <joost@zeekat.nl>
Re: How to unable the use of tainted mode in a CGI scri <john@castleamber.com>
Re: How to unable the use of tainted mode in a CGI scri <smallpond@juno.com>
Re: IPC:Shareable <clauskick@hotmail.com>
Re: IPC:Shareable <tzz@lifelogs.com>
Re: IPC:Shareable <clauskick@hotmail.com>
Parsing an Array of Hashes <neokrish@gmail.com>
Re: Parsing an Array of Hashes <peter@makholm.net>
Re: Parsing an Array of Hashes xhoster@gmail.com
Re: Parsing an Array of Hashes <spamtrap@dot-app.org>
question about "package" and variable scope... <gypark@gmail.com>
Re: question about "package" and variable scope... <joost@zeekat.nl>
Re: question about "package" and variable scope... <spamtrap@dot-app.org>
Re: question about "package" and variable scope... <gypark@gmail.com>
Re: question about "package" and variable scope... <joost@zeekat.nl>
redtube video - Free tubobbinhale@googlemail.com
redtube videos - Free tubobbinhale@googlemail.com
sextv1 player - Free tubobbinhale@googlemail.com
spankwire com - Free tubobbinhale@googlemail.com
www redtube co - Free tubobbinhale@googlemail.com
zootube365 com - Free tubobbinhale@googlemail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 22 Sep 2008 19:17:48 +0200
From: Azol <azol@non-non-non>
Subject: How to unable the use of tainted mode in a CGI script ?
Message-Id: <MPG.2341f1a9e6c5af8b9897eb@news.free.fr>
Hello.
I have to use a long perl script which use the "tainted mode" (-T
option), but the hoster we use doesn't allow this option unless on
dedicated server (and, of course, we can't pay a dedicated server).
What I have to do to remove the tainted mode in the script ?
I'm using PERL sometimes, but don't know very well what implies this
"tainted mode" option. However, I suppose removing the "-T" on bash line
isn't enough :(
Could you tell me, please.
------------------------------
Date: Mon, 22 Sep 2008 19:20:22 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: How to unable the use of tainted mode in a CGI script ?
Message-Id: <87vdwogkrt.fsf@zeekat.nl>
Azol <azol@non-non-non> writes:
> Hello.
>
> I have to use a long perl script which use the "tainted mode" (-T
> option), but the hoster we use doesn't allow this option unless on
> dedicated server (and, of course, we can't pay a dedicated server).
Very strange. You might consider looking for another hosting
company. I've never heard of anything like that.
> What I have to do to remove the tainted mode in the script ?
Just remove the -T option. That's really all it takes (taint mode can
only be enabled at the very start of the program).
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: 22 Sep 2008 17:40:50 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: How to unable the use of tainted mode in a CGI script ?
Message-Id: <Xns9B2180FE8D4AAcastleamber@130.133.1.4>
Azol <azol@non-non-non> wrote:
> I'm using PERL sometimes,
Perl is not an acronym; perl is the name of the executable that runs your
Perl program.
> but don't know very well what implies this
> "tainted mode" option.
perldoc -q taint
which points to "Laundering and Detecting Tainted Data" in perlsec
(i.e. perldoc perlsec )
"
This flag is *strongly* suggested for server programs and any program
run on behalf of someone else, such as a CGI script. Once taint mode is
on, it's on for the remainder of your script.
"
--
John http://johnbokma.com/ - Hacking & Hiking in Mexico
Perl help in exchange for a gift:
http://johnbokma.com/perl/help-in-exchange-for-a-gift.html
------------------------------
Date: Mon, 22 Sep 2008 10:42:24 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: How to unable the use of tainted mode in a CGI script ?
Message-Id: <5be849d4-f7fd-4df4-8732-97d620f3729a@s50g2000hsb.googlegroups.com>
On Sep 22, 1:17 pm, Azol <azol@non-non-non> wrote:
> Hello.
>
> I have to use a long perl script which use the "tainted mode" (-T
> option), but the hoster we use doesn't allow this option unless on
> dedicated server (and, of course, we can't pay a dedicated server).
>
> What I have to do to remove the tainted mode in the script ?
>
> I'm using PERL sometimes, but don't know very well what implies this
> "tainted mode" option. However, I suppose removing the "-T" on bash line
> isn't enough :(
>
> Could you tell me, please.
On a shared server it is quite reasonable for the CGI to run tainted.
Read perlsec for information on untainting received parameters and
what is not allowed. If you post the failing code, we could suggest
proper ways to do what you want.
--S
------------------------------
Date: Mon, 22 Sep 2008 05:30:53 -0700 (PDT)
From: Snorik <clauskick@hotmail.com>
Subject: Re: IPC:Shareable
Message-Id: <cbbceec5-de91-44d4-832b-6212b1a4332f@k13g2000hse.googlegroups.com>
On Sep 18, 5:19=A0pm, Ted Zlatanov <t...@lifelogs.com> wrote:
> On Thu, 18 Sep 2008 06:55:15 -0700 (PDT) Snorik <clausk...@hotmail.com> w=
rote:
>
> S> =A0 =A0 =A0 =A0 =A0 use IPC::Shareable;
>
> Try IPC::ShareLite or even Tie::ShareLite (easiest, hash interface).
> They work better for me.
>
> S> Now, If I call this function, it seems to work fine, only the hash
> S> values contain only the scalars of the array, at least that is what
> S> Data Dumper tells me:
>
> S> $VAR1 =3D {
> S> =A0 =A0 =A0 =A0 =A0 'dir1' =3D> 3858,
> S> =A0 =A0 =A0 =A0 =A0 'dir2' =3D> 2394,
> S> =A0 =A0 =A0 =A0 =A0 'dir3' =3D> 2075
> S> =A0 =A0 =A0 =A0 };
>
> You're assigning @array to the hash value; the value can only be a
> scalar so you get the size of the array instead of its contents.
>
> See the Tie::ShareLite docs, especially section 'REFERENCES,' for a
> better solution.
Hello,
ok, this works - however, it is very slow if I use a normal hash (the
hash has about 10000 entries).
I have yet to get it to work with hash references.
Thanks for your help!
------------------------------
Date: Mon, 22 Sep 2008 09:11:41 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: IPC:Shareable
Message-Id: <86k5d4i82q.fsf@lifelogs.com>
On Mon, 22 Sep 2008 05:30:53 -0700 (PDT) Snorik <clauskick@hotmail.com> wrote:
>> See the Tie::ShareLite docs, especially section 'REFERENCES,' for a
>> better solution.
S> ok, this works - however, it is very slow if I use a normal hash (the
S> hash has about 10000 entries).
S> I have yet to get it to work with hash references.
I've only used it with hashes of up to 1000 entries, but I'm surprised
it's very slow. Can you show your code so we can see if the problem is
in the module or in your code?
Ted
------------------------------
Date: Mon, 22 Sep 2008 07:57:41 -0700 (PDT)
From: Snorik <clauskick@hotmail.com>
Subject: Re: IPC:Shareable
Message-Id: <2d8e17d2-c02d-464c-a8ba-84816822d853@r66g2000hsg.googlegroups.com>
On Sep 22, 4:11=A0pm, Ted Zlatanov <t...@lifelogs.com> wrote:
> On Mon, 22 Sep 2008 05:30:53 -0700 (PDT) Snorik <clausk...@hotmail.com> w=
rote:
>
> >> See the Tie::ShareLite docs, especially section 'REFERENCES,' for a
> >> better solution.
>
> S> ok, this works - however, it is very slow if I use a normal hash (the
> S> hash has about 10000 entries).
> S> I have yet to get it to work with hash references.
>
> I've only used it with hashes of up to 1000 entries, but I'm surprised
> it's very slow. =A0Can you show your code so we can see if the problem is
> in the module or in your code?
Hello,
okay, it appears even a Solaris system needs a reboot some time - now
it is pretty fast: 19 seconds for 16k entries (and that includes
Data::Dumper printing out the hash and forking about 30 child
processes).
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D
I do the following now:
if ($pid)
{
push(@children, $pid);
}
elsif ($pid =3D=3D 0)
{
use File::Find::Rule;
my @fbas =3D File::Find::Rule->file->in("/default/main/www/$rg/$gg/
WORKAREA/workarea/$gg_fba");
$ipc->lock(LOCK_EX);
$shared{$gg} =3D \@fbas;
$ipc->unlock();
exit (0);
}
else
{
print STDERR "\nERROR: fork failed: $!\n";
}
}
foreach (@children)
{
waitpid($_, 0);
}
return %shared;
And in the calling script:
my %fba_ref =3D Package::get_fbas_for_rg("dir1");
print Dumper \%fba_ref;
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
I am wondering: Do I even need the locks for the hash reference, does
this lock the entire hash, or solely the key in question? Does this
still go faster?
------------------------------
Date: Mon, 22 Sep 2008 09:25:32 -0700 (PDT)
From: Artemis Fowl <neokrish@gmail.com>
Subject: Parsing an Array of Hashes
Message-Id: <56b4b386-8eb1-4a95-9d57-85fd2d487196@p10g2000prf.googlegroups.com>
Hello Experts,
I am dealing with an array of hashes in my program. I need to pick
every hash in the array, check a few keys and depending on it's value,
I need to either retain this hash or delete this hash from the array.
Please allow me to explain with a piece of sample code.
#!/usr/bin/perl -w
use strict;
my %MonthHash = ( "Jan", 0, "Feb", 1, "Mar", 2, "Apr", 3, "May", 4,
"Jun", 5, "Jul", 6, "Aug", 7, "Sep", 8, "Oct", 9, "Nov", 10, "Dec",
11, "Delete", "True");
my %WeekHash = ("Mon", 0, "Tue", 1, "Wed", 2, "Thu", 4, "Fri", 5,
"Sat", 6, "Sun", 7, "Delete", "False");
my %AgeHash = ("John", 21, "Susan", 23, "Gary", 18, "Christy", 20,
"Delete", "True");
my @arrayOfAll;
push(@arrayOfAll, %MonthHash);
push(@arrayOfAll, %WeekHash);
push(@arrayOfAll, %AgeHash);
I need to parse arrayOfAll, picking up each Hash turn by turn, and in
each of the Hashes, I want to check the value of the key "Delete". If
it is "True", then I want to delete the entire hash from the array.
Is there any way I could achieve this?
From what I see when I debug the script is that in arrayOfAll, the
details of different hashes are lost and all the key value pairs are
stored as just elements of the array.
Am I doing something wrong?
Any help will be greatly appreciated.
P.S : For the example, I have considered different Hashes. In the real
program, all the hashes have the same structure. Just thought this
information might help.
Thanks in advance,
Artemis.
------------------------------
Date: Mon, 22 Sep 2008 18:38:00 +0200
From: Peter Makholm <peter@makholm.net>
Subject: Re: Parsing an Array of Hashes
Message-Id: <873ajs3zmf.fsf@hacking.dk>
Artemis Fowl <neokrish@gmail.com> writes:
> my @arrayOfAll;
> push(@arrayOfAll, %MonthHash);
> push(@arrayOfAll, %WeekHash);
> push(@arrayOfAll, %AgeHash);
You have to store references to the hashes in you array. That is:
my @arrayOfAll;
push @arrayOfAll, \%MonthHash;
push @arrayOfAll, \%WeekHash;
push @arrayOfAll, \%AgeHash;
//Makholm
------------------------------
Date: 22 Sep 2008 16:38:24 GMT
From: xhoster@gmail.com
Subject: Re: Parsing an Array of Hashes
Message-Id: <20080922123825.803$my@newsreader.com>
Artemis Fowl <neokrish@gmail.com> wrote:
> Hello Experts,
>
> I am dealing with an array of hashes in my program. I need to pick
> every hash in the array, check a few keys and depending on it's value,
> I need to either retain this hash or delete this hash from the array.
> Please allow me to explain with a piece of sample code.
>
> #!/usr/bin/perl -w
> use strict;
>
> my %MonthHash = ( "Jan", 0, "Feb", 1, "Mar", 2, "Apr", 3, "May", 4,
> "Jun", 5, "Jul", 6, "Aug", 7, "Sep", 8, "Oct", 9, "Nov", 10, "Dec",
> 11, "Delete", "True");
> my %WeekHash = ("Mon", 0, "Tue", 1, "Wed", 2, "Thu", 4, "Fri", 5,
> "Sat", 6, "Sun", 7, "Delete", "False");
> my %AgeHash = ("John", 21, "Susan", 23, "Gary", 18, "Christy", 20,
> "Delete", "True");
>
> my @arrayOfAll;
> push(@arrayOfAll, %MonthHash);
> push(@arrayOfAll, %WeekHash);
> push(@arrayOfAll, %AgeHash);
You don't have an array of hashes. You just have an array, with
alternating key value pairs. You need to push references to the hashes,
not the contents of the hashes:
push(@arrayOfAll, \%MonthHash); # etc
>
> I need to parse arrayOfAll, picking up each Hash turn by turn, and in
> each of the Hashes, I want to check the value of the key "Delete". If
> it is "True", then I want to delete the entire hash from the array.
> Is there any way I could achieve this?
@arrayofAll = grep {not exists $_->{Delete}} @arrayofAll;
>
> From what I see when I debug the script is that in arrayOfAll, the
> details of different hashes are lost and all the key value pairs are
> stored as just elements of the array.
> Am I doing something wrong?
Yes, see above about references.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Mon, 22 Sep 2008 12:53:49 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Parsing an Array of Hashes
Message-Id: <m1fxnsm89u.fsf@dot-app.org>
Artemis Fowl <neokrish@gmail.com> writes:
> #!/usr/bin/perl -w
> use strict;
>
> my %MonthHash = ( "Jan", 0, "Feb", 1, "Mar", 2, "Apr", 3, "May", 4,
> "Jun", 5, "Jul", 6, "Aug", 7, "Sep", 8, "Oct", 9, "Nov", 10, "Dec",
> 11, "Delete", "True");
> my %WeekHash = ("Mon", 0, "Tue", 1, "Wed", 2, "Thu", 4, "Fri", 5,
> "Sat", 6, "Sun", 7, "Delete", "False");
> my %AgeHash = ("John", 21, "Susan", 23, "Gary", 18, "Christy", 20,
> "Delete", "True");
>
> my @arrayOfAll;
> push(@arrayOfAll, %MonthHash);
> push(@arrayOfAll, %WeekHash);
> push(@arrayOfAll, %AgeHash);
>
> I need to parse arrayOfAll, picking up each Hash turn by turn, and in
> each of the Hashes, I want to check the value of the key "Delete". If
> it is "True", then I want to delete the entire hash from the array.
> Is there any way I could achieve this?
>
> From what I see when I debug the script is that in arrayOfAll, the
> details of different hashes are lost and all the key value pairs are
> stored as just elements of the array.
That's because of how you're passing the hashes to push(). Pass
references instead, and you'll be good to go:
push(@arrayOfAll, \%MonthHash, \%WeekHash, \%AgeHash);
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 22 Sep 2008 06:54:16 -0700 (PDT)
From: Raymundo <gypark@gmail.com>
Subject: question about "package" and variable scope...
Message-Id: <aa6ab8a7-e004-4fe3-81c4-cf38ed9427ce@25g2000prz.googlegroups.com>
Hi all,
I wrote a file that contains two packages:
----------------------------
#!/usr/bin/perl
use strict;
use warnings;
# "main" package, implicitly
sub foo {
print "sub foo in main\n";
}
our $foo = "scalar foo in main";
foo(); # no problem
print "$foo\n"; # no problem
# "Test" package begins here
package Test;
foo(); # This is an error, because this calls
"&Test::foo()" that doesn't exist
----------------------------
The last "foo();" results in an error, as you know, because "&foo"
exists in "main", not in "Test". It should be "main::foo();".
Ok, then... here is my question...
----------------------------
# (omit the same code as above)
# "Test" package begins here
package Test;
print "$foo\n"; # I think this is an error, too.
----------------------------
Execution result:
sub foo in main
scalar foo in main
scalar foo in main -- $main::foo is printed...
I thought that the last line would result in an error (just like the
above case).
And I thought it would, if "use strict" is ignored in the scope of
"Test", print null string (the value of $Test::foo).
But the last line printed the value of "$main::foo" variable...
I can't understand this.. Any help would be apprecieated.
------------------------------
Date: Mon, 22 Sep 2008 16:06:43 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: question about "package" and variable scope...
Message-Id: <878wtki8b0.fsf@zeekat.nl>
Raymundo <gypark@gmail.com> writes:
> our $foo = "scalar foo in main";
> package Test;
>
> print "$foo\n"; # I think this is an error, too.
It isn't an error, it's just confusing. There are two things going on:
* Scoping.
our() has lexical scope, so as far as scope is concerned, it doesn't
care about packages at all. It works basically the same as:
my $foo = "lexical foo"; # lexicals are NOT bound to any package
package Test;
print "$foo\n";
* Association between the variable name and the package variable.
As I understand it, our() works as if it creates a new lexical
variable that is aliased to a package variable of the same name in the
current package. That is: the current package *at the our()
statement*, NOT the current package at whatever time you use the
variable.
See also perldoc -f our:
''An "our" declaration declares a global variable that will be visible
across its entire lexical scope, even across package boundaries. The
package in which the variable is entered is determined at the point of
the declaration, not at the point of use.''
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Mon, 22 Sep 2008 10:24:08 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: question about "package" and variable scope...
Message-Id: <m1od2g8div.fsf@dot-app.org>
Raymundo <gypark@gmail.com> writes:
> I can't understand this.. Any help would be apprecieated.
That's just "our" doing its job as designed. Your code is basically
the same as the example given in "perldoc -f our":
An "our" declaration declares a global variable that will be
visible across its entire lexical scope, even across package
boundaries. The package in which the variable is entered is
determined at the point of the declaration, not at the point of
use. This means the following behavior holds:
package Foo;
our $bar; # declares $Foo::bar for rest of lexical scope
$bar = 20;
package Bar;
print $bar; # prints 20, as it refers to $Foo::bar
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 22 Sep 2008 07:26:21 -0700 (PDT)
From: Raymundo <gypark@gmail.com>
Subject: Re: question about "package" and variable scope...
Message-Id: <1bf55cf3-c65f-457c-8fa6-e4bfd444628b@w1g2000prk.googlegroups.com>
Oh my God... I misunderstood "our" completely...;;;
Thank you very much.
So, both "our" and "my" have lexical scope... Then, if I want to
declare a variable that is visible in "only this package"... is there
any way to do so? (other than using braces that enclose the entire
package)
On 9=BF=F922=C0=CF, =BF=C0=C8=C411=BD=C306=BA=D0, Joost Diepenmaat <jo...@z=
eekat.nl> wrote:
> Raymundo <gyp...@gmail.com> writes:
> > our $foo =3D "scalar foo in main";
> > package Test;
>
> > print "$foo\n"; # I think this is an error, too.
>
> It isn't an error, it's just confusing. There are two things going on:
>
> * Scoping.
>
> our() has lexical scope, so as far as scope is concerned, it doesn't
> care about packages at all. It works basically the same as:
>
> my $foo =3D "lexical foo"; # lexicals are NOT bound to any package
> package Test;
> print "$foo\n";
>
> * Association between the variable name and the package variable.
>
> As I understand it, our() works as if it creates a new lexical
> variable that is aliased to a package variable of the same name in the
> current package. That is: the current package *at the our()
> statement*, NOT the current package at whatever time you use the
> variable.
>
> See also perldoc -f our:
>
> ''An "our" declaration declares a global variable that will be visible
> across its entire lexical scope, even across package boundaries. The
> package in which the variable is entered is determined at the point of
> the declaration, not at the point of use.''
>
> --
> Joost Diepenmaat | blog:http://joost.zeekat.nl/| work:http://zeekat.nl/
------------------------------
Date: Mon, 22 Sep 2008 17:15:48 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: question about "package" and variable scope...
Message-Id: <874p48i53v.fsf@zeekat.nl>
Raymundo <gypark@gmail.com> writes:
> Oh my God... I misunderstood "our" completely...;;;
>
> Thank you very much.
>
> So, both "our" and "my" have lexical scope... Then, if I want to
> declare a variable that is visible in "only this package"... is there
> any way to do so? (other than using braces that enclose the entire
> package)
You can use vars (which is also useful in some other situations):
#!/usr/bin/perl
use strict;
use warnings;
use vars qw($foo);
$foo = "scalar foo in main";
package Test;
print "$foo\n"; # error: Global symbol "$foo" requires explicit package name
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Mon, 22 Sep 2008 04:01:40 -0700 (PDT)
From: tubobbinhale@googlemail.com
Subject: redtube video - Free
Message-Id: <21e6c628-e443-4589-a42f-95d21bad0ae2@i76g2000hsf.googlegroups.com>
redtube video
.
.
.
*******CLICK HERE********
http://vids365.cn/redtube-video
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
redtube video
------------------------------
Date: Mon, 22 Sep 2008 04:01:32 -0700 (PDT)
From: tubobbinhale@googlemail.com
Subject: redtube videos - Free
Message-Id: <cb38c957-0931-490f-8f97-4a3ac0b40795@r66g2000hsg.googlegroups.com>
redtube videos
.
.
.
*******CLICK HERE********
http://vids365.cn/redtube-videos
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
redtube videos
------------------------------
Date: Mon, 22 Sep 2008 04:02:31 -0700 (PDT)
From: tubobbinhale@googlemail.com
Subject: sextv1 player - Free
Message-Id: <114d0f94-0cac-4172-b7bb-6805dd972757@25g2000hsx.googlegroups.com>
sextv1 player
.
.
.
*******CLICK HERE********
http://vids365.cn/sextv1-player
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
sextv1 player
------------------------------
Date: Mon, 22 Sep 2008 04:01:57 -0700 (PDT)
From: tubobbinhale@googlemail.com
Subject: spankwire com - Free
Message-Id: <c9cd3d66-2091-4479-8156-3609d63151f2@z66g2000hsc.googlegroups.com>
spankwire com
.
.
.
*******CLICK HERE********
http://vids365.cn/spankwire-com
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
spankwire com
------------------------------
Date: Mon, 22 Sep 2008 04:01:16 -0700 (PDT)
From: tubobbinhale@googlemail.com
Subject: www redtube co - Free
Message-Id: <4f967750-4a46-44be-b21a-1d42ebdd8c04@e39g2000hsf.googlegroups.com>
www redtube co
.
.
.
*******CLICK HERE********
http://vids365.cn/www-redtube-co
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
www redtube co
------------------------------
Date: Mon, 22 Sep 2008 04:01:24 -0700 (PDT)
From: tubobbinhale@googlemail.com
Subject: zootube365 com - Free
Message-Id: <9c904d66-4a23-4ad3-a464-dbe7f2f616c0@m3g2000hsc.googlegroups.com>
zootube365 com
.
.
.
*******CLICK HERE********
http://vids365.cn/zootube365-com
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
zootube365 com
------------------------------
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 1868
***************************************
