[28729] in Perl-Users-Digest
Perl-Users Digest, Issue: 10093 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 24 03:05:55 2006
Date: Sun, 24 Dec 2006 00:05:06 -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 Sun, 24 Dec 2006 Volume: 10 Number: 10093
Today's topics:
Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX <cdalten@gmail.com>
Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX <tadmc@augustmail.com>
Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX <tadmc@augustmail.com>
Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX (Randal L. Schwartz)
Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX <cdalten@gmail.com>
Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX <cdalten@gmail.com>
Re: FAQ 4.43 How do I compute the difference of two arr robic0@yahoo.com
new CPAN modules on Sun Dec 24 2006 (Randal Schwartz)
Re: Replacing expression in a file from mechanize (on aioe)
Time Warner/RoadRunner knows HOW to F-YouUP if your Ade fred@adelphia.net
Re: Time Warner/RoadRunner knows HOW to F-YouUP if your <uri@stemsystems.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Dec 2006 15:14:15 -0800
From: "grocery_stocker" <cdalten@gmail.com>
Subject: Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <1166915655.029211.206410@42g2000cwt.googlegroups.com>
Ric wrote:
> KDOSS_PERL schrieb:
> > Greetings to PERL Programmers:
> >
> > I've been an Unix System Administrator writing crude shell scripts for
> > the past 15 years. I never got into writing sophisticated scripting
> > with multiple looks for my jobs. I would like to use Perl scripts and
> > was wondering if there are any recommendations for a guy with my kind
> > of back ground. Any input from your guys would be most appreciated.
>
> You probably want to use some beginners book, Perl in 21 days or
> Learning Perl O'Reilly
>
> Perl is fairly easy and usually you don't program sophisticated large
> scale applications with perl, so it should be fairly easy for you to get
> into it.
>
>
Yes, basic Perl s fairly easy. However, the funky Perl is about as
enjoyable as wearing pantyhose to work when it's like 90 degrees
outside. Seriously, let's try to break this down....
1)Objects in Perl. This can sort of blow monkey's butt if you've never
really done OOP or dealt with pointers in C.
2)regular expressions. I liken this to a bad hangover.
3)Pipes in Perl. This only really starts to make sense if you've
written pipes on Linux, BSD, or any other kind of half baked,
delinquent descent of the UNIX Operating system.
4)Back to Objects in Perl. Somewhere in the 10,000 pages of internal
Perl documents, there is a section on how Perl has no kind of privacy
thingy. It goes on to say that one way to enforce privacy in Objects is
to use closures. I'm sure closures make sense if you are computer
science major.
5)Fork() and pseudo tty's. Just the thought alone inspires fear and
awe.
And of course, I've dealt with this all for writing small/dirty scripts
on my OS. For anything else, there is either C, Java (ughhh...), or
FORTRAN (leet).
Chad
------------------------------
Date: Sat, 23 Dec 2006 19:34:10 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <slrneorm8i.e73.tadmc@tadmc30.august.net>
KDOSS_PERL <kdoss@comcast.net> wrote:
> Subject: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
The one that suggests that you do not SHOUT AT PEOPLE.
> I would like to use Perl scripts and
> was wondering if there are any recommendations for a guy with my kind
> of back ground.
Any of the tutorials mentioned in the Perl FAQ.
perldoc -q book
...
Tutorials
Beginning Perl
by James Lee
ISBN 1‐59059‐391‐X [2nd edition August 2004]
http://apress.com/book/bookDisplay.html?bID=344
Elements of Programming with Perl
by Andrew L. Johnson
ISBN 1‐884777‐80‐5 [1st edition October 1999]
http://www.manning.com/Johnson/
Learning Perl
by Randal L. Schwartz, Tom Phoenix, and brian d foy
ISBN 0‐596‐10105‐8 [4th edition July 2005]
http://www.oreilly.com/catalog/learnperl4/
Learning Perl Objects, References, and Modules
by Randal L. Schwartz, with Tom Phoenix (foreword by Damian Conway)
ISBN 0‐596‐00478‐8 [1st edition June 2003]
http://www.oreilly.com/catalog/lrnperlorm/
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 23 Dec 2006 19:38:03 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <slrneormfr.e73.tadmc@tadmc30.august.net>
Ric <antispam@randometry.com> wrote:
> KDOSS_PERL schrieb:
>> Greetings to PERL Programmers:
>>
>> I've been an Unix System Administrator writing crude shell scripts for
>> the past 15 years. I never got into writing sophisticated scripting
>> with multiple looks for my jobs. I would like to use Perl scripts and
>> was wondering if there are any recommendations for a guy with my kind
>> of back ground. Any input from your guys would be most appreciated.
>
> You probably want to use some beginners book, Perl in 21 days or
> Learning Perl O'Reilly
One of those books is horrid, one of them is good...
> Perl is fairly easy and usually you don't program sophisticated large
^^^
> scale applications with perl,
Of course he doesn't, because he doesn't even know _any_ Perl yet!
If your "you" was the general "you", then that's a lot of hooey.
I've written several Perl projects that were sophisticated large
scale applications (5-10k lines of code each).
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 23 Dec 2006 17:23:16 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <86mz5enl2z.fsf@blue.stonehenge.com>
>>>>> "grocery" == grocery stocker <cdalten@gmail.com> writes:
grocery> Yes, basic Perl s fairly easy. However, the funky Perl is about as
grocery> enjoyable as wearing pantyhose to work when it's like 90 degrees
grocery> outside. Seriously, let's try to break this down....
A guy named "Chad" knows about this. Hmm. :)
grocery> 1)Objects in Perl. This can sort of blow monkey's butt if you've
grocery> never really done OOP or dealt with pointers in C.
Yeah, Objects *require* references, and the average docs on references and
objects suggest that you know objects and pointers from other languages.
grocery> 2)regular expressions. I liken this to a bad hangover.
The important thing to keep in mind is that they're an entirely separate part
of the language, unlike anything else in Perl, but luckily like lots of other
tools.
grocery> 3)Pipes in Perl. This only really starts to make sense if you've
grocery> written pipes on Linux, BSD, or any other kind of half baked,
grocery> delinquent descent of the UNIX Operating system.
Perl has no native "pipes". Not sure what you're saying here.
grocery> 4)Back to Objects in Perl. Somewhere in the 10,000 pages of internal
grocery> Perl documents, there is a section on how Perl has no kind of privacy
grocery> thingy. It goes on to say that one way to enforce privacy in Objects
grocery> is to use closures. I'm sure closures make sense if you are computer
grocery> science major.
Or use one of the many "Inside Out Objects" modules on the CPAN, where most of
the magic is hidden for you.
grocery> 5)Fork() and pseudo tty's. Just the thought alone inspires fear and
grocery> awe.
Fork is standard Unix Fork. Pseudo TTYs ditto. Perl doesn't have anything
weird to contribute here.
print "Just another Perl hacker,"; # the original (# 0 ?)
--
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: 23 Dec 2006 21:43:51 -0800
From: "grocery_stocker" <cdalten@gmail.com>
Subject: Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <1166939031.253090.186480@n51g2000cwc.googlegroups.com>
Randal L. Schwartz wrote:
> >>>>> "grocery" == grocery stocker <cdalten@gmail.com> writes:
>
> grocery> Yes, basic Perl s fairly easy. However, the funky Perl is about as
> grocery> enjoyable as wearing pantyhose to work when it's like 90 degrees
> grocery> outside. Seriously, let's try to break this down....
>
> A guy named "Chad" knows about this. Hmm. :)
>
Calm down.
> grocery> 1)Objects in Perl. This can sort of blow monkey's butt if you've
> grocery> never really done OOP or dealt with pointers in C.
>
> Yeah, Objects *require* references, and the average docs on references and
> objects suggest that you know objects and pointers from other languages.
>
> grocery> 2)regular expressions. I liken this to a bad hangover.
>
> The important thing to keep in mind is that they're an entirely separate part
> of the language, unlike anything else in Perl, but luckily like lots of other
> tools.
>
> grocery> 3)Pipes in Perl. This only really starts to make sense if you've
> grocery> written pipes on Linux, BSD, or any other kind of half baked,
> grocery> delinquent descent of the UNIX Operating system.
>
> Perl has no native "pipes". Not sure what you're saying here.
>
I was thinking something like the following. Please note the script had
been slightly modified to protect th person from who I duped the core
code from.
#!/usr/bin/perl
use strict;
use warnings;
my @months = ("sep", "oct", "nov");
my $value = scalar (@months);
my $count = 0;
my $test = "oct";
my $bbs = "/usr/local/bin/bbs $test";
open my $out, '|-', $bbs
or die "cannot open pipe to bbsread: $!";
print $out "find gay | wc -l \n";
close $out
or die "cannot close pipe to bbsread: $!";
Let's pretend the bbs program runs on a Windows machine. Wouldn't
Windows mimic the Unix pipe() functions in the above script? If that is
the case, then wouldn't the behavior of the pipe() functions be similar
the behavior of the Unix pipe() functions?
> grocery> 4)Back to Objects in Perl. Somewhere in the 10,000 pages of internal
> grocery> Perl documents, there is a section on how Perl has no kind of privacy
> grocery> thingy. It goes on to say that one way to enforce privacy in Objects
> grocery> is to use closures. I'm sure closures make sense if you are computer
> grocery> science major.
>
> Or use one of the many "Inside Out Objects" modules on the CPAN, where most of
> the magic is hidden for you.
>
> grocery> 5)Fork() and pseudo tty's. Just the thought alone inspires fear and
> grocery> awe.
>
> Fork is standard Unix Fork. Pseudo TTYs ditto. Perl doesn't have anything
> weird to contribute here.
>
Chad
------------------------------
Date: 23 Dec 2006 21:50:01 -0800
From: "grocery_stocker" <cdalten@gmail.com>
Subject: Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <1166939401.799804.202370@n51g2000cwc.googlegroups.com>
> I was thinking something like the following. Please note the script had
> been slightly modified to protect th person from who I duped the core
> code from.
Going slightly off topic. I really need to learn to proof read before I
post.
------------------------------
Date: Sat, 23 Dec 2006 20:26:46 -0800
From: robic0@yahoo.com
Subject: Re: FAQ 4.43 How do I compute the difference of two arrays? How do I compute the intersection of two arrays?
Message-Id: <ubvro21ok9k0l7845mgu9mf81c7h03vhc9@4ax.com>
On Sat, 23 Dec 2006 06:03:03 -0800, PerlFAQ Server <brian@stonehenge.com> wrote:
>This is an excerpt from the latest version perlfaq4.pod, which
>comes with the standard Perl distribution. These postings aim to
>reduce the number of repeated questions as well as allow the community
>to review and update the answers. The latest version of the complete
>perlfaq is at http://faq.perl.org .
>
>--------------------------------------------------------------------
>
>4.43: How do I compute the difference of two arrays? How do I compute the intersection of two arrays?
>
> Use a hash. Here's code to do both and more. It assumes that each
> element is unique in a given array:
>
> @union = @intersection = @difference = ();
> %count = ();
> foreach $element (@array1, @array2) { $count{$element}++ }
> foreach $element (keys %count) {
> push @union, $element;
> push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;
> }
>
> Note that this is the *symmetric difference*, that is, all elements in
> either A or in B but not in both. Think of it as an xor operation.
>
>
>
>--------------------------------------------------------------------
>
>The perlfaq-workers, a group of volunteers, maintain the perlfaq. They
>are not necessarily experts in every domain where Perl might show up,
>so please include as much information as possible and relevant in any
>corrections. The perlfaq-workers also don't have access to every
>operating system or platform, so please include relevant details for
>corrections to examples that do not work on particular platforms.
>Working code is greatly appreciated.
>
>If you'd like to help maintain the perlfaq, see the details in
>perlfaq.pod.
I'd seen this FAQ many times and just stare at it in wonder.
Not because of the code (which I don't understand).
I wonder about the usefullness of a *difference* algo when it
comes to array comparisons.
I mean I thought and thought. If we substitute "array" for something like
"lines in a file", I could see some usefullness when it comes to software that
would do something like source control where (and here is the funny thing about that)
either the current version is always stored (only 1 current version) and the differences
are saved, or the original version is stored and the differences are saved.
I have, however had use for the "negative" ie: find the common elements from two arrays.
Its probably the same thing, just in reverse (from your code).
I've posted some code below that I use but would be very interested if you would have a way to
to it faster. The faster the better as it is time critical part of a program I use quite alot.
THANKS!
Robic0
#######################################################
# Get Common Elements (from two N-dimensioned Array's)
# IN - Refs to the NxN arrays to compare,
# sort flag and the compare field.
# OUT - Ndx's into Right_Array of matching elements
# ---------------------------------------------------
# Notes -
# 1. Elements are assumed textual and case insensitive
# 2. Ignores in-array duplicates
# 3. Sort will be done if sort flag > 0
#
sub GetCommonElementsNxM()
{
my ($A_Left,$A_Right,$Srtflg,$Fld) = @_;
$Srtflg = 0 unless defined $Srtflg;
$Fld = 0 unless defined $Fld;
# my @Dup = ();
my @Ndx = ();
if ($Srtflg > 0) {
@{$A_Left} = sort {uc($a->[$Fld]) cmp uc($b->[$Fld])} @{$A_Left};
@{$A_Right} = sort {uc($a->[$Fld]) cmp uc($b->[$Fld])} @{$A_Right};
} else {print "==> Common Elements : Not sorting arrays\n";}
my $rpos = 0;
my $rend = @{$A_Right};
my $cnt = 0;
my $llast = undef;
my $rlast = undef;
foreach my $left_element (@{$A_Left})
{
next if (uc($left_element->[$Fld]) eq uc($llast->[$Fld]));
$rpos += $cnt;
$cnt = 0;
foreach my $right_element (@{$A_Right}[$rpos..($rend-1)])
{
last if (uc($left_element->[$Fld]) lt uc($right_element->[$Fld]));
$cnt++;
next if (uc($right_element->[$Fld]) eq uc($rlast->[$Fld]));
if (uc($left_element->[$Fld]) eq uc($right_element->[$Fld]))
{
# push (@Dup, $right_element->[$Fld]); # the string
push (@Ndx, $rpos+$cnt-1); # the index into R_Array
last;
}
$rlast = $right_element;
}
$llast = $left_element;
last if ($rpos >= $rend);
}
# return (@Dup);
return (@Ndx);
}
#######################################################
# Get Common Elements from single Array's
# IN - Refs to the Nx1 arrays to compare, sort flag
# OUT - Ndx's into Right_Array of matching elements
# ---------------------------------------------------
# Notes -
# 1. Elements are assumed textual and case insensitive
# 2. Ignores in-array duplicates
# 3. Sort will be done if sort flag > 0
#######################################################
sub GetCommonElements()
{
my ($A_Left,$A_Right,$Srtflg) = @_;
$Srtflg = 0 unless defined $Srtflg;
# my @Dup = ();
my @Ndx = ();
if ($Srtflg > 0) {
@{$A_Left} = sort {uc($a) cmp uc($b)} @{$A_Left};
@{$A_Right} = sort {uc($a) cmp uc($b)} @{$A_Right};
} else {print "==> Common Elements : Not sorting arrays\n";}
my $rpos = 0;
my $rend = @{$A_Right};
my $cnt = 0;
my $llast = '';
my $rlast = '';
foreach my $left_element (@{$A_Left})
{
next if (uc($left_element) eq uc($llast));
$rpos += $cnt;
$cnt = 0;
foreach my $right_element (@{$A_Right}[$rpos..($rend-1)])
{
last if (uc($left_element) lt uc($right_element));
$cnt++;
next if (uc($right_element) eq uc($rlast));
if (uc($left_element) eq uc($right_element))
{
# push (@Dup, $right_element); # the string
push (@Ndx, $rpos+$cnt-1); # the index into R_Array
last;
}
$rlast = $right_element;
}
$llast = $left_element;
last if ($rpos >= $rend);
}
# return (@Dup);
return (@Ndx);
}
------------------------------
Date: Sun, 24 Dec 2006 05:42:14 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Dec 24 2006
Message-Id: <JArJuE.7E4@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.
Buffalo-G54-0.01
http://search.cpan.org/~mschilli/Buffalo-G54-0.01/
Limited scraping API for Buffalo WBR2-G54 routers
----
Catalyst-Helper-View-TTSimple-0.2
http://search.cpan.org/~victori/Catalyst-Helper-View-TTSimple-0.2/
Simplified TT layout for building web sites.
----
Feed-Source-Page2RSS-0.01
http://search.cpan.org/~edipreto/Feed-Source-Page2RSS-0.01/
Creation of a Atom/RSS feed with the Page2RSS service
----
Feed-Source-Yahoo-0.01
http://search.cpan.org/~edipreto/Feed-Source-Yahoo-0.01/
Create a RSS feed based on a Yahoo query
----
HTML-Tested-JavaScript-0.01
http://search.cpan.org/~bosu/HTML-Tested-JavaScript-0.01/
JavaScript enabled HTML::Tested widgets.
----
HTML-Tested-JavaScript-0.02
http://search.cpan.org/~bosu/HTML-Tested-JavaScript-0.02/
JavaScript enabled HTML::Tested widgets.
----
IO-AIO-2.3
http://search.cpan.org/~mlehmann/IO-AIO-2.3/
Asynchronous Input/Output
----
IP-QQWry-v0.0.6
http://search.cpan.org/~sunnavy/IP-QQWry-v0.0.6/
look up IP from QQWry database(file).
----
Image-MetaData-GQview-1.8
http://search.cpan.org/~kethgen/Image-MetaData-GQview-1.8/
Perl extension for GQview image metadata
----
Image-MetaData-GQview-1.9
http://search.cpan.org/~kethgen/Image-MetaData-GQview-1.9/
Perl extension for GQview image metadata
----
Mail-SPF-Test-1.000
http://search.cpan.org/~jmehnle/Mail-SPF-Test-1.000/
SPF test-suite class
----
Perl6-Perl-0.01
http://search.cpan.org/~dankogai/Perl6-Perl-0.01/
$obj->perl just like $obj.perl in Perl 6
----
Text-Match-FastAlternatives-0.01
http://search.cpan.org/~arc/Text-Match-FastAlternatives-0.01/
efficient search for many strings
----
Text-Match-FastAlternatives-0.02
http://search.cpan.org/~arc/Text-Match-FastAlternatives-0.02/
efficient search for many strings
----
Text-Match-FastAlternatives-0.03
http://search.cpan.org/~arc/Text-Match-FastAlternatives-0.03/
efficient search for many strings
----
WWW-Spyder-0.19
http://search.cpan.org/~ashley/WWW-Spyder-0.19/
a simple non-persistent web crawler.
----
Win32-API-0.46
http://search.cpan.org/~cosimo/Win32-API-0.46/
Perl Win32 API Import Facility
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: Sat, 23 Dec 2006 18:34:56 -0600
From: "Mumia W. (on aioe)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: Replacing expression in a file from mechanize
Message-Id: <emkmp5$fh0$1@aioe.org>
On 12/23/2006 11:01 AM, Nospam wrote:
> Basically I have a local html file, called file1.html it has a series of
> links (with a particular domain name) in addition
> to the html code, I am trying to follow each of these links (based on the
> regular expression /on\.fe/) each of these links, in their content have a
> link to another page, (I would like to capture this particular page based on
> a regular expression /www\.arax/), and substitute for each link (with
> regular expression /on\.fe/)in file1.html with their corresponding link
> (with regular expression/www\.arax/)
>
> So far this is what I have come up with, and am a little stuck
>
>
>
> #! perl\bin\perl
>
> use strict;
> use warnings;
> use WWW::Mechanize;
>
> my $mech = WWW::Mechanize->new();
>
> open(FILE, "< file1.html") || print "Unable to open the file file1 \n";
>
> while (<FILE>)
> {
> if($_ =~ /on\.fe/)
> {
> my $url = $_;
> print $mech->uri."\n";
> $mech->get($_);
> $mech->content();
> if($mech->content()=~ /www\.arax/)
> {
> my $url2 = $mech->content() =~ /www\.arax/;
> print $mech->uri."\n";
> s/$url/$url2/;
> print;
>
> }
>
> }
>
> }
>
>
> close(FILE);
>
>
>
Neither your prose nor your program give me a feel for what you're
trying to do. Can we see some sample data for both file1.html and one of
the "www\.arax" containing files?
--
paduille.4060.mumia.w@earthlink.net
http://home.earthlink.net/~mumia.w.18.spam/
------------------------------
Date: Sat, 23 Dec 2006 21:17:43 -0800
From: fred@adelphia.net
Subject: Time Warner/RoadRunner knows HOW to F-YouUP if your Adelphia
Message-Id: <d83so212qpisauir4lfm7mivisrd3n55go@4ax.com>
Thank you for contacting Time Warner Cable Chat.
We hope that your session with Technical Support was helpful.
Below you will find the chat transcript that you requested. We recommend you keep this for future reference. Our Customer Service is available 24 hours a day, 7 days a week! - if you need to contact
us again, please visit http://www.timewarnercable.com for any questions relating to your Time Warner Cable service, or for Road Runner specific assistance please visit http://help.rr.com.
Annie P: hello! Thank you for choosing Time Warner Cable - Road Runner Internet Technical Chat, my name is Annie. Before we begin, I would like to bring up your account. May I have the following
three pieces of information from you please ?
1. The account holder's area code and telephone number.(xxx-xxx-xxxx)
2. The account holder's full name.(first last)
3. If you are not the acount holder, please provide your name.
subscriber: I am a TW (Adelphia?) customer
subscriber: Any you have screwed up my news group access
Annie P: Before we begin, may we have the first and last name, and the phone number with the area code of the account holder please?
subscriber: news-server.socal.rr.com
subscriber: Doesen't work anymore, its crap
Annie P: Please work with me on a professional level and I'll be happy to help you. If not, I'll be forced to discontinue this session.
subscriber: I own it, I am subscriber
subscriber: My wife is
subscriber: I'm sure the acct is in her name, I am the owner of all
subscriber: I live at . I own the house
subscriber: I own everything
Annie P: Thank you.
subscriber: ur welcome
Annie P: The newsgroup are downloading slowly ?
subscriber: I want you to give me the
subscriber: the host name and weather or not it needs
subscriber: a user name and weather logon is required
subscriber: if i use news.adelphia.net
Annie P: At this time, newsgroup is not available for Comcast Adelphia transitioned customers. We are currently working on a new newsgroup contract for which we hope will be available to you
very soon.
subscriber: its 408 or 502 error
subscriber: what?
Annie P: You might still be able to logon to your hold Giganew from Adelphia.
Annie P: Unfortunately I do not have any information on the address of that server.
subscriber: what is this - news-server.socal.rr.com
subscriber: are you just being funny?
subscriber: http://help.rr.com/HMSFaqs/e_free_agent_setup.aspx?topic=Newsgroups
subscriber: I am really pissed now
Annie P: news-server.socal.rr.com is not available to you yet. We are currently working on this newsgroup to make it available to all.
Annie P: Again, if you have a technical question I'll be happy to help you. Otherwise, we'll need to discontinue this session now.
subscriber: it is available
subscriber: or was
subscriber: so was news.adelphia.net
subscriber: 2 weeks ago
subscriber: what can I do to help myself
subscriber: how can i get an answer from the company i pay money to every month for news
subscriber: what info is available to me?
Annie P: Again, 2 weeks ago you where with Adelphia.
Annie P: Today you are with Road Runner. At this time, newsgroup is not available for Comcast Adelphia transitioned customers. We are currently working on a new newsgroup contract for which we
hope will be available to you very soon.
subscriber:
subscriber: when?
subscriber: who can i contact?
subscriber: where is this information?
subscriber: when?
Annie P: Adelphia was closed and your account transitioned to Road Runner. Right now, you are chatting with Road Runner technical support.
subscriber: I will contact the State Attorney
subscriber: right now
Annie P: Du to the volume of that transition, we are in need of a new newsgroup.
Annie P: I'm sorry, other customers are waiting with technical questions. I'll need to discontinue this session now.
subscriber: do u mean to say no Adelphia customers have News?
Annie P: Analyst has closed chat and left the room
------------------------------
Date: Sun, 24 Dec 2006 00:26:39 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Time Warner/RoadRunner knows HOW to F-YouUP if your Adelphia
Message-Id: <x7d569vp80.fsf@mail.sysarch.com>
and your perl question is?
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 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 10093
****************************************
