[28751] in Perl-Users-Digest
Perl-Users Digest, Issue: 10115 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 4 03:06:14 2007
Date: Thu, 4 Jan 2007 00:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 4 Jan 2007 Volume: 10 Number: 10115
Today's topics:
Deleting element tags <rafalk@comcast.net>
How can I access variables in my perl script from a sub <imfeaw5672@pacbell.net>
Re: How can I access variables in my perl script from a <kenslaterpa@hotmail.com>
Re: How can I access variables in my perl script from a <jgibson@mail.arc.nasa.gov>
Re: How can I access variables in my perl script from a <noreply@gunnar.cc>
new CPAN modules on Thu Jan 4 2007 (Randal Schwartz)
Silly li'l perl script, plx improve. <nobody@mixmaster.it>
Re: Silly li'l perl script, plx improve. <kkeller-usenet@wombat.san-francisco.ca.us>
Re: Silly li'l perl script, plx improve. <klaus03@gmail.com>
Re: Unsecured scripts and site hacking? <dguttadauro@4ecp.com>
Re: Unsecured scripts and site hacking? (Randal L. Schwartz)
Re: Unsecured scripts and site hacking? <invalid@,hs,fjsldkjfhlkj.com>
Re: Unsecured scripts and site hacking? <yankeeinexile@gmail.com>
Re: Unsecured scripts and site hacking? <invalid@,hs,fjsldkjfhlkj.com>
Re: Unsecured scripts and site hacking? <tadmc@augustmail.com>
Re: Unsecured scripts and site hacking? <emschwar@pobox.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 03 Jan 2007 21:22:48 -0500
From: Rafal Konopka <rafalk@comcast.net>
Subject: Deleting element tags
Message-Id: <M-WdnUWe6bdq-QHYnZ2dnUVZ_qKknZ2d@comcast.com>
Hi,
I need to delete element tags from many HTML files. The elements in
question are 'b' and 'strong' but only if they have a child elelment 'a'
I'm using the TreeBuilder module and HTML::Element methods. The code
correctly identifies those elements that I need. For debugging
purposes, I create a hash associating the file name with all the
elements that match my condition. Now the big question is, how do I
remove the tags? I looked in several modules, but I couldn't find a
method like (see below) $bx->starttag->delete()/$bx->endtag->delete()
And a secondary question is how can I output newlines after some element
tags? if I want to prettify the HTML output?
Here's my solution so far:
#!perl -w
use HTML::TreeBuilder;
chomp(my @filelist = `DIR *.htm /s /b`); #it's run on Windows XP
my %main_hash = ();
foreach my $f (@filelist) {
my $tree = HTML::TreeBuilder->new();
$tree->parse_file($f);
my @bs = $tree->find_by_tag_name('strong','b');
foreach my $bx (@bs) {
if ( $bx->find_by_tag_name('a') ) {
push(@{$main_hash{$f}},$bx->as_HTML);
}
}
print $tree->as_HTML(''," "), "\n";
$tree->delete;
}
foreach my $f (keys %main_hash) {
print "File $f\n";
print join("",@{$main_hash{$f}}), "\n";
}
------------------------------
Date: Wed, 3 Jan 2007 15:50:11 -0800
From: "sm" <imfeaw5672@pacbell.net>
Subject: How can I access variables in my perl script from a sub in a module
Message-Id: <oiXmh.14749$Gw4.950@newssvr23.news.prodigy.net>
Hi Folks,
How can I access some of the variables in my perl script from a perl module.
example
#!/usr/bin/perl
use this_pakage;
my $VARA = 72;
my $VARB = 44;
this::pakage::get_vara_value();
#end
===================
this_package.pm
...
...........
sub get_vara_value {
my $AAA = $main::$VARA; ## how do I access $VARA in my script
print $AAA \n";
}
Regards,
-sm
------------------------------
Date: 3 Jan 2007 16:18:09 -0800
From: "kens" <kenslaterpa@hotmail.com>
Subject: Re: How can I access variables in my perl script from a sub in a module
Message-Id: <1167869887.127109.117470@51g2000cwl.googlegroups.com>
sm wrote:
> Hi Folks,
>
> How can I access some of the variables in my perl script from a perl module.
> example
>
> #!/usr/bin/perl
>
> use this_pakage;
>
> my $VARA = 72;
> my $VARB = 44;
>
> this::pakage::get_vara_value();
> #end
>
> ===================
> this_package.pm
> ...
> ...........
> sub get_vara_value {
> my $AAA = $main::$VARA; ## how do I access $VARA in my script
> print $AAA \n";
> }
>
> Regards,
>
> -sm
Based on the information given, I would think passing the variable as
an argument
would work in this case.
get_vara_value($VARA);
sub get_vara_value
{
my $AAA = shift;
if ( defined( $AAA ) ) {
print "$AAA\n";
}
}
Of course if you need to modify the variable, it a reference would need
to be passed
to the get_vara_value subroutine.
HTH, Ken
------------------------------
Date: Wed, 03 Jan 2007 16:30:37 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: How can I access variables in my perl script from a sub in a module
Message-Id: <030120071630374619%jgibson@mail.arc.nasa.gov>
In article <oiXmh.14749$Gw4.950@newssvr23.news.prodigy.net>, sm
<imfeaw5672@pacbell.net> wrote:
> Hi Folks,
>
> How can I access some of the variables in my perl script from a perl module.
> example
You cannot access lexical variables defined in one file from another
file. Use non-lexical, global, package variables:
>
> #!/usr/bin/perl
use strict;
>
> use this_pakage;
>
> my $VARA = 72;
our $VARA = 72;
> my $VARB = 44;
>
> this::pakage::get_vara_value();
> #end
>
> ===================
> this_package.pm
> ...
> ...........
> sub get_vara_value {
> my $AAA = $main::$VARA; ## how do I access $VARA in my script
> print $AAA \n";
> }
See <http://perl.plover.com/FAQs/Namespaces.html>
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 04 Jan 2007 01:20:53 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: How can I access variables in my perl script from a sub in a module
Message-Id: <502vmuF1e388cU1@mid.individual.net>
sm wrote:
> How can I access some of the variables in my perl script from a perl module.
By declaring it as a package global.
our $VARA;
But to me, doing so sounds like a bad idea. You'd better pass the value
to the sub.
my $VARA = 72;
this_package::get_vara_value( $VARA );
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 4 Jan 2007 05:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Jan 4 2007
Message-Id: <JBBx6B.pIE@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
CGI-Application-Dispatch-2.10_01
http://search.cpan.org/~wonko/CGI-Application-Dispatch-2.10_01/
Dispatch requests to CGI::Application based objects
----
Chart-Clicker-1.1.4
http://search.cpan.org/~gphat/Chart-Clicker-1.1.4/
Powerful, extensible charting.
----
Compass-Bearing-0.03
http://search.cpan.org/~mrdvt/Compass-Bearing-0.03/
Convert angle to text bearing (aka heading)
----
Crypt-Cracklib-1.0
http://search.cpan.org/~daniel/Crypt-Cracklib-1.0/
Perl interface to Alec Muffett's Cracklib.
----
Crypt-OpenSSL-X509-0.4
http://search.cpan.org/~daniel/Crypt-OpenSSL-X509-0.4/
Perl extension to OpenSSL's X509 API.
----
Crypt-X509-CRL-0.1
http://search.cpan.org/~gigageek/Crypt-X509-CRL-0.1/
Parses an X.509 certificate revocation list
----
DBIx-DWIW-0.46
http://search.cpan.org/~jzawodny/DBIx-DWIW-0.46/
Robust and simple DBI wrapper to Do What I Want (DWIW)
----
DBIx-DWIW-0.47
http://search.cpan.org/~jzawodny/DBIx-DWIW-0.47/
Robust and simple DBI wrapper to Do What I Want (DWIW)
----
Data-TreeDumper-0.33
http://search.cpan.org/~nkh/Data-TreeDumper-0.33/
Improved replacement for Data::Dumper. Powerful filtering capability.
----
Egg-Release-0.24
http://search.cpan.org/~lushe/Egg-Release-0.24/
WEB application framework release.
----
File-Fetch-0.09_01
http://search.cpan.org/~kane/File-Fetch-0.09_01/
A generic file fetching mechanism
----
GD-Graph-Polar-0.02
http://search.cpan.org/~mrdvt/GD-Graph-Polar-0.02/
Make polar graph using GD package
----
GPS-PRN-0.03
http://search.cpan.org/~mrdvt/GPS-PRN-0.03/
Package for PRN - Object ID conversions.
----
GPS-SpaceTrack-0.03
http://search.cpan.org/~mrdvt/GPS-SpaceTrack-0.03/
Package for calculating the position of GPS satellites
----
Geo-Ellipsoids-0.11
http://search.cpan.org/~mrdvt/Geo-Ellipsoids-0.11/
Package for standard Geo:: ellipsoid a, b, f and 1/f values.
----
Geo-Spline-0.14
http://search.cpan.org/~mrdvt/Geo-Spline-0.14/
Calculate geographic locations between GPS fixes.
----
Geo-Template-0.02
http://search.cpan.org/~mrdvt/Geo-Template-0.02/
Not a real package but a template for your Geo:: functions.
----
HTML-SimpleLinkExtor-1.14
http://search.cpan.org/~bdfoy/HTML-SimpleLinkExtor-1.14/
Extract links from HTML
----
Ham-Scraper-0.9
http://search.cpan.org/~kwittmer/Ham-Scraper-0.9/
----
Language-Indonesia-0.03
http://search.cpan.org/~dns/Language-Indonesia-0.03/
Write Perl program in Bahasa Indonesia.
----
MDV-Repsys-1.00
http://search.cpan.org/~nanardon/MDV-Repsys-1.00/
----
Mac-Apps-Launch-1.93
http://search.cpan.org/~cnandor/Mac-Apps-Launch-1.93/
Mac module to launch /quit applications
----
Mac-Glue-1.30
http://search.cpan.org/~cnandor/Mac-Glue-1.30/
Control Mac apps with Apple event terminology
----
Module-Load-Conditional-0.14
http://search.cpan.org/~kane/Module-Load-Conditional-0.14/
Looking up module information / loading at runtime
----
Net-Address-Ethernet-1.093
http://search.cpan.org/~mthurn/Net-Address-Ethernet-1.093/
find hardware ethernet address
----
Net-Frame-1.03
http://search.cpan.org/~gomor/Net-Frame-1.03/
the base framework for frame crafting
----
Net-Frame-Layer-LLC-1.00
http://search.cpan.org/~gomor/Net-Frame-Layer-LLC-1.00/
Logical-Link Control layer object
----
Net-Frame-Layer-STP-1.00
http://search.cpan.org/~gomor/Net-Frame-Layer-STP-1.00/
Spanning Tree Protocol layer object
----
Net-GPSD-0.34
http://search.cpan.org/~mrdvt/Net-GPSD-0.34/
Provides an object client interface to the gpsd server daemon.
----
Net-GPSD-Server-Fake-0.13
http://search.cpan.org/~mrdvt/Net-GPSD-Server-Fake-0.13/
Provides a Fake GPSD daemon server test harness.
----
Number-Nary-0.102
http://search.cpan.org/~rjbs/Number-Nary-0.102/
encode and decode numbers as n-ary strings
----
POE-0.9917
http://search.cpan.org/~rcaputo/POE-0.9917/
portable multitasking and networking framework for Perl
----
Pod-Perldoc-ToToc-1.06
http://search.cpan.org/~bdfoy/Pod-Perldoc-ToToc-1.06/
Translate Pod to a Table of Contents
----
Qpsmtpd-Plugin-Quarantine-0.35
http://search.cpan.org/~muir/Qpsmtpd-Plugin-Quarantine-0.35/
filter outbound email to prevent blacklisting
----
Spreadsheet-ParseExcel-0.27
http://search.cpan.org/~szabgab/Spreadsheet-ParseExcel-0.27/
Get information from Excel file
----
SyslgScnDamn-Blacklist-0.41
http://search.cpan.org/~muir/SyslgScnDamn-Blacklist-0.41/
----
SyslogScan-Daemon-SpamDetector-0.41
http://search.cpan.org/~muir/SyslogScan-Daemon-SpamDetector-0.41/
Notice spammers in the log files
----
Test-Program-0.10
http://search.cpan.org/~petdance/Test-Program-0.10/
Testing tools for Perl programs
----
WWW-Ebay-0.079
http://search.cpan.org/~mthurn/WWW-Ebay-0.079/
----
WWW-TwentyQuestions-0.01
http://search.cpan.org/~kirsle/WWW-TwentyQuestions-0.01/
Perl interface to the classic 20 Questions game as provided by 20Q.net
----
XML-XSH2-2.1.0
http://search.cpan.org/~pajas/XML-XSH2-2.1.0/
A powerfull scripting language/shell for XPath-based editing of XML
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 4 Jan 2007 05:50:24 +0100 (CET)
From: George Orwell <nobody@mixmaster.it>
Subject: Silly li'l perl script, plx improve.
Message-Id: <ff4f5dfe349798105b785075898a2327@mixmaster.it>
#!/usr/bin/perl
# Public Domain
use strict;
use warnings;
open(IN, "$ARGV[0]") or die("No input file. Use perldoc $0 for more
info.\n");
my @in = <IN>;
if($ARGV[1]){
open(OUT, ">>", "$ARGV[1]");
select OUT;
}
# The regex below does all the work... (I'm sure you could write this
program in a one-liner...)
foreach(@in){
if($_=~m/(http:\/\/\S+\.[\w\d.\/_%]+)/){
print "$1\n";
}
}
close(IN);
------------------------------
Date: Wed, 3 Jan 2007 21:24:07 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Silly li'l perl script, plx improve.
Message-Id: <nkfu64xja5.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-01-04, George Orwell <nobody@mixmaster.it> wrote:
> }
> # The regex below does all the work... (I'm sure you could write this
> program in a one-liner...)
> foreach(@in){
> if($_=~m/(http:\/\/\S+\.[\w\d.\/_%]+)/){
> print "$1\n";
> }
perl -n -e 'print "$1\n" if (m/(your_pattern_here)/)' infile > outfile
I'll let somebody else nitpick the regex. I will say that it's hard to
suggest improvements when you don't state what you expect to send to the
program or what you expect to be output. Have you read the Posting
Guidelines that are frequently posted here?
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: 3 Jan 2007 23:59:46 -0800
From: "Klaus" <klaus03@gmail.com>
Subject: Re: Silly li'l perl script, plx improve.
Message-Id: <1167897586.515319.165800@31g2000cwt.googlegroups.com>
George Orwell wrote:
> #!/usr/bin/perl
> # Public Domain
> use strict;
> use warnings;
> open(IN, "$ARGV[0]") or die("No input file. Use perldoc $0 for more
> info.\n");
> my @in = <IN>;
> if($ARGV[1]){
> open(OUT, ">>", "$ARGV[1]");
> select OUT;
> }
> # The regex below does all the work... (I'm sure you could write this
> program in a one-liner...)
> foreach(@in){
> if($_=~m/(http:\/\/\S+\.[\w\d.\/_%]+)/){
I have some doubts about the second "." in the regexp (the one after
\d.), but I'll ignore my doubts...
> print "$1\n";
> }
> }
> close(IN);
#!/usr/bin/perl
# Public Domain
use strict;
use warnings;
defined $ARGV[0] or die "Error - No parameters";
my $OUT;
if (defined $ARGV[1]){
open $OUT, '>>', $ARGV[1] or die "Error - Open >>$ARGV[1]: $!";
select $OUT;
}
open my $IN, '<', $ARGV[0] or die "Error - Open <$ARGV[0]: $!";
while (<$IN>) {
# The regex below does all the work...
# (I'm sure you could write this program in a one-liner...)
if(m{(http://\S+\.[\w\d./_%]+)}){ print $1, "\n" }
}
------------------------------
Date: 3 Jan 2007 15:16:46 -0800
From: "Dean G." <dguttadauro@4ecp.com>
Subject: Re: Unsecured scripts and site hacking?
Message-Id: <1167866204.083683.118000@6g2000cwy.googlegroups.com>
Alison wrote:
> John Bokma <john@castleamber.com> wrote in message
> news:Xns98ADA1220FC79castleamber@130.133.1.4...
> > Charlton Wilbur <cwilbur@chromatico.net> wrote:
> >
>
> > --
> > John Experienced Perl programmer: http://castleamber.com/
> >
> > Perl help, tutorials, and examples: http://johnbokma.com/perl/
>
> Hi John,
>
> The host has come back to me when I requested the logs for 1-hour leading up
> to when it went down.
>
> They replied that the entire server is totally blank with it being likely
> that the malicious would have simply issued a...
>
> "just did "rm -rf /" means delete everything."
>
> I've calmed down a bit but I'm still suspicious that I'm being spun. Also
> they gained access through port 80 I'm told (http).
If they tell you they have no logs at all, but that they know it
occured via port 80, then they are liars. Simply put, they either have
the logs and can see the port 80 activity that caused the problem
(access on port 80 alone means nothing) in which case they are lying
about not having the logs, or they are lying about the port 80
"attack".
Dean G.
------------------------------
Date: 03 Jan 2007 15:13:42 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Unsecured scripts and site hacking?
Message-Id: <86bqlfd7q1.fsf@blue.stonehenge.com>
>>>>> "Alison" == Alison <invalid@NOSPAM.com> writes:
Alison> open (LOG, "$todaycountpath");
Alison> @file = <LOG>;
Alison> close(LOG);
Alison> $todaycount = $file[0];
Alison> $todaycount++;
Alison> open (LOG, ">$todaycountpath");
Alison> flock(LOG, 2);
Alison> print LOG "$todaycount\n";
Alison> flock(LOG, 8);
Alison> close(LOG);
How many mistakes can I see in that chunk of code?
{sigh}
- open without error status check
- broken for multiple updates (in spite of presence of flock)
-- reads the data without obtaining a read lock
-- zeroes the file without obtaining a write lock (!)
-- uses flock 8, which is pretty pointless, and sometimes harmful
- doesn't use File::CounterFile, which would have done all this correctly
I *didn't* see any other relative exploits, but *this* caught my eye
on the first email:
>>>>> "Alison" == Alison <invalid@NOSPAM.com> writes:
Alison> I was logged in via ftp at the very moment it went down as I was
Alison> transferring my Jan 1st update.
*FTP*? *FTP*? What is this, 1995?
How do you know a bad guy didn't sniff your password in cleartext? All
they had to do is own a machine near yours and run a password sniffer.
Any hosting service that provides FTP as their upload means should be closed
down. You can use that to determine if they have the clues or not.
Also, don't use "NOSPAM.com" as your domain name, unless you happen
to be the person listed here:
% whois nospam.com
[...]
Domain name: NOSPAM.COM
Administrative Contact:
administration, domain contact@anything.com
P.O. Box 309 ,Ugland House
George Town, Grand Cayman
KY
212-937-2077 Fax: 212-937-2077
Technical Contact:
administration, domain contact@anything.com
P.O. Box 309 ,Ugland House
George Town, Grand Cayman
KY
212-937-2077 Fax: 212-937-2077
[...]
If that's not YOU, then YOU need to stop being a bad netizen.
print "Just another Perl hacker,"; # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Wed, 3 Jan 2007 23:42:54 -0000
From: "Alison" <invalid@,hs,fjsldkjfhlkj.com>
Subject: Re: Unsecured scripts and site hacking?
Message-Id: <PemdnYDkjJOgogHYnZ2dnUVZ8sCvnZ2d@bt.com>
Randal L. Schwartz <merlyn@stonehenge.com> wrote in message
news:86bqlfd7q1.fsf@blue.stonehenge.com...
>
> *FTP*? *FTP*? What is this, 1995?
>
> How do you know a bad guy didn't sniff your password in cleartext? All
> they had to do is own a machine near yours and run a password sniffer.
>
> Any hosting service that provides FTP as their upload means should be
closed
> down. You can use that to determine if they have the clues or not.
>
How else would you suggest I upload 50MB weekly updates of adult pornography
to my site?
------------------------------
Date: 03 Jan 2007 18:22:49 -0600
From: Lawrence Statton XE2/N1GAK <yankeeinexile@gmail.com>
Subject: Re: Unsecured scripts and site hacking?
Message-Id: <873b6rej3a.fsf@gmail.com>
"Alison" <invalid@,hs,fjsldkjfhlkj.com> writes:
>
> How else would you suggest I upload 50MB weekly updates of adult pornography
> to my site?
>
Umm, the same way one of my clients handles their several hundred
megabytes a DAY ... rsync. Don't like rsync, use scp. Like the FTP
user interface, use sftp.
You are clearly clue retardant. *plonk*
--
Lawrence Statton - lawrenabae@abaluon.abaom s/aba/c/g
Computer software consists of only two components: ones and
zeros, in roughly equal proportions. All that is required is to
sort them into the correct order.
------------------------------
Date: Thu, 4 Jan 2007 00:53:49 -0000
From: "Alison" <invalid@,hs,fjsldkjfhlkj.com>
Subject: Re: Unsecured scripts and site hacking?
Message-Id: <IeGdnTAyNPZH0gHYnZ2dnUVZ8sqjnZ2d@bt.com>
Lawrence Statton XE2/N1GAK <yankeeinexile@gmail.com> wrote in message
news:873b6rej3a.fsf@gmail.com...
> "Alison" <invalid@,hs,fjsldkjfhlkj.com> writes:
> >
> > How else would you suggest I upload 50MB weekly updates of adult
pornography
> > to my site?
> >
>
> Umm, the same way one of my clients handles their several hundred
> megabytes a DAY ... rsync. Don't like rsync, use scp. Like the FTP
> user interface, use sftp.
>
> You are clearly clue retardant. *plonk*
>
Fuck off you prick. No wonder you're single.
------------------------------
Date: Wed, 3 Jan 2007 19:50:35 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Unsecured scripts and site hacking?
Message-Id: <slrneponbb.o53.tadmc@tadmc30.august.net>
Alison <invalid@> wrote:
>
> Lawrence Statton XE2/N1GAK <yankeeinexile@gmail.com> wrote in message
> news:873b6rej3a.fsf@gmail.com...
>> "Alison" <invalid@,hs,fjsldkjfhlkj.com> writes:
>> >
>> > How else would you suggest I upload 50MB weekly updates of adult
> pornography
>> > to my site?
>> >
>>
>> Umm, the same way one of my clients handles their several hundred
>> megabytes a DAY ... rsync. Don't like rsync, use scp. Like the FTP
>> user interface, use sftp.
>>
>> You are clearly clue retardant. *plonk*
>>
>
> Fuck off you prick.
He told you how to avoid the problem you came here asking for help with,
so what is with the potty mouth?
And you _are_ clearly lacking in clue (we've seen your code).
Don't get mad about it, just resolve to acquire clue.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 03 Jan 2007 16:47:50 -0700
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: Unsecured scripts and site hacking?
Message-Id: <877iw3ekpl.fsf@aragorn.emschwar>
"Alison" <invalid@,hs,fjsldkjfhlkj.com> writes:
> Randal L. Schwartz <merlyn@stonehenge.com> wrote in message
> > Any hosting service that provides FTP as their upload means should be
> closed
> > down. You can use that to determine if they have the clues or not.
> >
>
> How else would you suggest I upload 50MB weekly updates of adult pornography
> to my site?
SFTP, scp, HTTPS, just to name three off the top of my head.
-=Eric
------------------------------
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 V10 Issue 10115
****************************************
