[29884] in Perl-Users-Digest
Perl-Users Digest, Issue: 1127 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 17 18:10:12 2007
Date: Mon, 17 Dec 2007 15:09: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 Mon, 17 Dec 2007 Volume: 11 Number: 1127
Today's topics:
Re: Archive::Zip on windows <ebmarquez@gmail.com>
Re: Binary to Hexadecimal conversion <jl_post@hotmail.com>
buy cheap shoes ( www.shoes-ec.com) yifeng27@gmail.com
CGI::Minimal and Cookies <john@castleamber.com>
concatenating multiple matches? <junk@yahoo.com>
Re: concatenating multiple matches? davidfilmer@gmail.com
Re: concatenating multiple matches? <junk@yahoo.com>
Re: concatenating multiple matches? davidfilmer@gmail.com
Re: concatenating multiple matches? davidfilmer@gmail.com
Re: concatenating multiple matches? <krahnj@telus.net>
Re: Errormsgs on GetOptions <mritty@gmail.com>
Re: FAQ 4.11 How do I get a random number between X and <tzz@lifelogs.com>
Re: FAQ 4.3 Why isn't my octal data interpreted correct <brian.d.foy@gmail.com>
Re: Have sub routine handle file OR array? <tzz@lifelogs.com>
Re: How to write a "caller-inspecting" module? <brian.d.foy@gmail.com>
Problem with GDGraph.com website? <beagles_1881@yahoo.com.au>
Re: Problem with GDGraph.com website? <glex_no-spam@qwest-spam-no.invalid>
Re: Problem with GDGraph.com website? <smallpond@juno.com>
Re: Problem with GDGraph.com website? <kkeller-usenet@wombat.san-francisco.ca.us>
Re: Problem with GDGraph.com website? <mgjv@tradingpost.com.au>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 17 Dec 2007 09:16:07 -0800 (PST)
From: ebm <ebmarquez@gmail.com>
Subject: Re: Archive::Zip on windows
Message-Id: <929f6d19-1a4f-41ef-bdc4-a5309d96354c@r60g2000hsc.googlegroups.com>
On Dec 14, 5:12 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quothebm<ebmarq...@gmail.com>:
>
>
>
> > I'm trying to have Archive::Zip zip a file on a windows systems. When
> > I create this file using the full path I end up with an empty zip
> > file.
> > Example:
> > use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
>
> > my $file = 'c:/TEST.xls';
> > my $zip = Archive::Zip->new();
> > print STDOUT "Adding $file\n";
>
> > $zip->addFile($file) or warn "Error adding file $file\n";
> > die "write error." if $zip->writeToFileNamed ("c:/file.zip") !=
> > AZ_OK;
>
> > __END__
>
> > I will end up with c:/file.zip but it will be empty. Now If I copy
> > the xls file to the same directory the script is running in it will be
> > zipped into c:/file.zip. It seems to be something to do with the C:\
> > part of the path it doesn't like. The pod file says something about
> > using Unix file formats..... Am i screwed or is there a way around
> > this.
>
> Try specifying a separate path to store the file as in the zip: a zip
> member cannot have a volume specification. So:
>
> $zip->addFile($file, 'TEST.xls');
>
> or use File::Spec to split up the path and join it back together, sans
> volume, as a Unix filespec.
>
> Ben
Thanks for the help, I'll give it a try. I ended up doing a work
around where I copy the file to the same dir as the script. Zip the
cached file I just copied and output the the desired location.
------------------------------
Date: Mon, 17 Dec 2007 09:37:12 -0800 (PST)
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: Binary to Hexadecimal conversion
Message-Id: <939ef12f-ddc8-4d2e-a654-acb26abd050b@q3g2000hsg.googlegroups.com>
On Dec 14, 7:54 pm, Deepu <pradeep...@gmail.com> wrote:
>
> I have a $test with 32 bit binary number.
>
> $test = 00000000011111000000010111100100
>
> How can i get the hexadecimal number for this.
Dear Deepu,
First of all, when you specify an integer literal that starts with
a zero, Perl interprets that as an octal number. For example, setting
$x to 0755 will set it to the decimal value of 493 (which is not the
same number as 755).
So you probably want to use the following line instead where the
binary number is quoted (so Perl won't assume it's in octal):
$test = "00000000011111000000010111100100";
or better yet, use the "0b" prefix to let Perl know you're specifying
a binary number:
$test = 0b00000000_01111100_00000101_11100100;
(This method allows you to put in optional underscores to make it
easier to read the bits.)
If you use the first approach, you can extract a hexadecimal string
like this:
my $test = "00000000011111000000010111100100";
my $value = oct("0b$test"); # converts to numerical value
my $hexString = sprintf('%x', $value);
The second approach is even easier, as the "0b" prefix lets Perl
know exactly what the number is supposed to be (so we don't have to
use a step to convert it to a numerical value):
my $test = 0b00000000_01111100_00000101_11100100;
my $hexString = sprintf('%x', $test);
Both these approaches set $hexString to "7c05e4". If for some
reason you want the leading zeros (so that you have "007c05e4"), then
change '%x' to '%08x'.
I hope this helps, Deepu.
-- Jean-Luc
------------------------------
Date: Mon, 17 Dec 2007 10:25:58 -0800 (PST)
From: yifeng27@gmail.com
Subject: buy cheap shoes ( www.shoes-ec.com)
Message-Id: <3d710e78-eb79-49fe-99b5-51fabca3d9c0@e10g2000prf.googlegroups.com>
hello ! ! !welcome to visit our website: http://www.shoes-ec.com
Our main products : shoes Hoodies T-Shirt Jeans Jacket bags
Electronic and so on
we can supply many popular shoes model,bag,clothes ,bikini,sunglass
and watch and so on. We can give you products with good quality and
reasonable price! We are looking forward to do business with you. Do
not hesitate and contact with us!
our website: http://www.shoes-ec.com
e have so many good quality and funny products.
we accept paypal,honest suppliers also will save your charges.
LOOKing for some partners,sell products together,you receive
payment,pay us by paypal,we ship to your customers
Our main products are:
Shoes
Nike shoes,such as air Jordan,air force one,Tn,air max
90/93/95/97/2003/2005/2006,shox TL,R4,NZ,Turbo,james lebron,Nike air
rift.
Prada,Adidas,Puma,Timberland,Bapesta,G-unit,Ice Cream
Bags
Chanel bags,Louis Vuitton bags,Gucci bags,Hermes bags,Coach bags
Clothes
Lacoste,Seven,Evisu,Levi's,Bape,Red Monkey and so on.
Hoody Jacket Jeans Coat
Watches such as Chael,Rolex...
Suglasses like Chanel,Gucci,Dior...
first : drop ship business
MOQ : one pair up
model Sizes:US8--13 with true sizes.
Package: box+Retro Cards
Shipment: DHL, EMS, TNT, UPS, etc.
Shipping time: in 5 business days
Service:Door to door directly to your clients with guaranteed
Shipping.
profit : save the shipping fee and trouble of you to ship the
items to your
------------------------------
Date: 17 Dec 2007 23:06:38 GMT
From: John Bokma <john@castleamber.com>
Subject: CGI::Minimal and Cookies
Message-Id: <Xns9A09AE0FBD022castleamber@130.133.1.4>
From the documentation of CGI::Minimal: "See 'CGI::Cookie' for cookie
generation". Which sounds like a lot of fun, except that CGI::Cookie does:
use CGI;
Which probably makes use CGI::Minimal pointless. Or am I wrong?
How to use Cookies (reading/setting) with CGI::Minimal? I couldn't find a
CGI::Minimal::Cookie module :-( (There is a "thin" module, but a peek at
the code made me shudder...)
--
John
------------------------------
Date: Mon, 17 Dec 2007 15:26:26 -0500
From: nun <junk@yahoo.com>
Subject: concatenating multiple matches?
Message-Id: <grqdnW0C7OXsRvvanZ2dnUVZ_ramnZ2d@megapath.net>
I have a script which loads the contents of two tab-delimited text files
into two hashes of arrays.
Text file 1 contains only unique SKUs.
This data is read into a hash of arrays named HoA1.
Example lines from text file 1:
SKU1 CORNDOGS
SKU2 FISHSTICKS
Text file 2 may contain multiple lines with the same SKU.
This data is read into a hash of arrays named HoA2.
Example lines from text file 2:
SKU1 BREADED
SKU1 BEEF
SKU1 STICK
SKU2 BREADED
SKU2 FISH
The script goes through HoA1 and looks for matching SKUs from HoA2. If a
match is found, the additional data is appended to the description like
this:
foreach my $j (sort (keys %HoA)1) {
$my $DESCRIPTION=$HoA1{$j}[1];
if($HoA_2{$j}) {
$DESCRIPTION=$DESCRIPTION." More Info:".$HoA_{$j}[1];
}
print "$SKU\t$DESCRIPTION\n";
}
This works ok, but only seems to add the info from the last matching
line form the second text file's data. Example output would be:
SKU1 CORNDOGS More Info: STICK
I need instead to see:
SKU1 CORNDOGS More Info: BREADED, BEEF, STICK
Is there a simple way to modify my code to do this, or is a conceptual
overhaul required? Any hints would be welcomed.
DB
------------------------------
Date: Mon, 17 Dec 2007 12:50:44 -0800 (PST)
From: davidfilmer@gmail.com
Subject: Re: concatenating multiple matches?
Message-Id: <96976d51-9247-40e6-a6bb-9a77cf22198d@e23g2000prf.googlegroups.com>
On Dec 17, 12:26 pm, nun <j...@yahoo.com> wrote:
> $DESCRIPTION=$DESCRIPTION." More Info:".$HoA_{$j}[1];
First, consider using the string append operator .= So instead of
$foo = $foo . 'bar'
you would simply say
$foo .= 'bar';
Your code adds only one element from your array. You need to add the
whole array, separated by a comma-space:
$DESCRIPTION .= " More Info: " . join( ", ", @{$HoA_{$j}} );
FWIW, HoA is a terrible name for a variable. It's not much better
than $scalar = 'foo'
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Mon, 17 Dec 2007 16:21:21 -0500
From: nun <junk@yahoo.com>
Subject: Re: concatenating multiple matches?
Message-Id: <PO2dneHWoKvSdfvanZ2dnUVZ_gqdnZ2d@megapath.net>
davidfilmer@gmail.com wrote:
> On Dec 17, 12:26 pm, nun <j...@yahoo.com> wrote:
>
>> $DESCRIPTION=$DESCRIPTION." More Info:".$HoA_{$j}[1];
>
> First, consider using the string append operator .= So instead of
> $foo = $foo . 'bar'
> you would simply say
> $foo .= 'bar';
>
> Your code adds only one element from your array. You need to add the
> whole array, separated by a comma-space:
>
> $DESCRIPTION .= " More Info: " . join( ", ", @{$HoA_{$j}} );
>
> FWIW, HoA is a terrible name for a variable. It's not much better
> than $scalar = 'foo'
>
> --
> The best way to get a good answer is to ask a good question.
> David Filmer (http://DavidFilmer.com)
Thanks for your suggestion. My goal is not to append the entire array,
but to append the second element from each array that has as its first
element the matching SKU.
Now that I think about it, maybe my use of an index that is sometimes
non-unique is a mistake.
I did try your suggestion but I got:
SKU1 CORNDOGS More Info: SKU1 , STICK
I'm after:
SKU1 CORNDOGS More Info: BREADED, BEEF, STICK
(I also noticed a typo in my original post. I had $HoA_ instead of HoA2)
Any guidance would be welcomed.
DB
------------------------------
Date: Mon, 17 Dec 2007 13:53:44 -0800 (PST)
From: davidfilmer@gmail.com
Subject: Re: concatenating multiple matches?
Message-Id: <a5d9fd12-46d9-4e94-a547-3b25ba62f5e8@d21g2000prf.googlegroups.com>
(On Dec 17, 1:21 pm, nun <j...@yahoo.com> wrote:
> Thanks for your suggestion. My goal is not to append the entire array,
> but to append the second element from each array that has as its first
> element the matching SKU.
That sounds like an odd data structure. You could probably make it
work, but maybe you ought to rethink your structure a bit. I would
suggest a single hash of hashes (HoH), and each of those hashes
contains a product name (scalar) and description (array). Here's a
sample script which hardcodes the SKU-Name structure and goes on to
build the description structure (from __DATA__) and prints the report:
#!/usr/bin/perl
use strict; use warnings;
#hardcode this for illustration - in reality, build from file
my %item = (
'SKU1' => {'name' => 'CORNDOGS'},
'SKU2' => {'name' => 'FISHSTICKS'},
'SKU3' => {'name' => 'NOTHING'},
);
#Read the second file (__DATA__) for description elements
while (chomp(my $desc = <DATA>)) {
my ($sku, @desc) = split (/ +/, $desc);
push @{$item{$sku}{'description'}}, @desc
}
#Print the report
foreach my $sku( sort keys %item ) {
print "$sku\t$item{$sku}{'name'}";
if ( $item{$sku}{'description'} ) {
print "\tMore Info: " . join(', ', @{$item{$sku}
{'description'}});
}
print "\n";
}
__DATA__
SKU1 BREADED
SKU1 BEEF
SKU1 STICK
SKU2 BREADED
SKU2 FISH
OUTPUT:
SKU1 CORNDOGS More Info: BREADED, BEEF, STICK
SKU2 FISHSTICKS More Info: BREADED, FISH
SKU3 NOTHING
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Mon, 17 Dec 2007 14:17:41 -0800 (PST)
From: davidfilmer@gmail.com
Subject: Re: concatenating multiple matches?
Message-Id: <e607a124-da71-4f48-934a-a8a7bfff12b1@s8g2000prg.googlegroups.com>
On Dec 17, 1:53 pm, davidfil...@gmail.com wrote:
> I would suggest a single hash of hashes (HoH), and each of those
> hashes contains a product name (scalar) and description (array).
You could also write it with two hashes in a similar way that you
initially attempted, such as:
#!/usr/bin/perl
use strict;
use warnings;
my %name = (
'SKU1' => 'CORNDOGS',
'SKU2' => 'FISHSTICKS',
'SKU3' => 'NOTHING',
);
my %description;
while (chomp(my $desc = <DATA>)) {
my ($sku, @desc) = split (/ +/, $desc);
push @{$description{$sku}}, @desc
}
foreach my $sku( sort keys %name ) {
print "$sku\t$name{$sku}";
if ( $description{$sku} ) {
print "\tMore Info: " . join(', ', @{$description{$sku}});
}
print "\n";
}
__DATA__
SKU1 BREADED
SKU1 BEEF
SKU1 STICK
SKU2 BREADED
SKU2 FISH
However, while it is a little less memory-efficient, I still favor the
single hash because it is more extensible. I think this:
$item{$sku}{name}
{description}
{price}
{weight}
{qty_on_hand}
{qty_ordered}
is vastly preferable (IMHO) to scattering the data around in
individual data structures:
$name{$sku}
$price$sku}
$weight{$sku}
$qty_on_hand{$sku}
$qty_ordered{$sku}
The single data structure also lends itself more naturally to
interaction with a database.
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Mon, 17 Dec 2007 22:47:00 GMT
From: "John W. Krahn" <krahnj@telus.net>
Subject: Re: concatenating multiple matches?
Message-Id: <4766FC5A.EE7A3F6@telus.net>
nun wrote:
>
> I have a script which loads the contents of two tab-delimited text files
> into two hashes of arrays.
>
> Text file 1 contains only unique SKUs.
> This data is read into a hash of arrays named HoA1.
> Example lines from text file 1:
> SKU1 CORNDOGS
> SKU2 FISHSTICKS
>
> Text file 2 may contain multiple lines with the same SKU.
> This data is read into a hash of arrays named HoA2.
> Example lines from text file 2:
> SKU1 BREADED
> SKU1 BEEF
> SKU1 STICK
> SKU2 BREADED
> SKU2 FISH
>
> The script goes through HoA1 and looks for matching SKUs from HoA2. If a
> match is found, the additional data is appended to the description like
> this:
>
> foreach my $j (sort (keys %HoA)1) {
>
> $my $DESCRIPTION=$HoA1{$j}[1];
>
> if($HoA_2{$j}) {
> $DESCRIPTION=$DESCRIPTION." More Info:".$HoA_{$j}[1];
> }
>
> print "$SKU\t$DESCRIPTION\n";
>
> }
>
> This works ok, but only seems to add the info from the last matching
> line form the second text file's data. Example output would be:
>
> SKU1 CORNDOGS More Info: STICK
>
> I need instead to see:
>
> SKU1 CORNDOGS More Info: BREADED, BEEF, STICK
>
> Is there a simple way to modify my code to do this, or is a conceptual
> overhaul required? Any hints would be welcomed.
This should work:
#!/usr/bin/perl
use warnings;
use strict;
my $file_1 = 'file_1';
my $file_2 = 'file_2';
open my $fh, '<', $file_2 or die "Cannot open '$file_2' $!";
my %data;
while ( <$fh> ) {
chomp;
my ( $key, $value ) = split /\t/;
push @{ $data{ $key } }, $value;
}
close $fh;
open $fh, '<', $file_1 or die "Cannot open '$file_1' $!";
while ( <$fh> ) {
chomp;
my ( $key, $value ) = split /\t/;
if ( exists $data{ $key } ) {
print "$key\t$value More Info: ", join( ', ', @{ $data{ $key } }
), "\n";
}
}
__END__
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 17 Dec 2007 06:55:13 -0800 (PST)
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Errormsgs on GetOptions
Message-Id: <a6e4085e-ce1b-44fd-bedd-0937e4e82eed@n20g2000hsh.googlegroups.com>
On Dec 17, 4:07 am, Tom Gur <gur....@gmail.com> wrote:
> I'm using GetOptions in the following manner:
> $getoptions_rc = GetOptions( "host=s" => \$host, "port=n" => \$port);
> Now, in case the user inputs something wrong, like a letter in the
> port - GetOption prints a default errormsg.
> how can I suppress the print and instead store the errormsg in a
> variable ?
The same way you trap any other warning - by assigning a handler to
the $SIG{__WARN__} variable:
perl -MGetopt::Long -le'
$SIG{__WARN__} = sub { $warn = shift; };
$getoptions_rc = GetOptions("port=n" => \$port);
print "GetOptions returned: <<$getoptions_rc>>";
print "Warning: <<$warn>>" if $warn;
' - --port foo
Result:
GetOptions returned: <<>>
Warning: <<Value "foo" invalid for option port (number expected)
>>
Note that you might want to do this in a block and local'ly set
$SIG{__WARN__} so that it resets after the block is over and other
warnings print to STDERR like normal...
Paul Lalli
------------------------------
Date: Mon, 17 Dec 2007 16:13:48 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: FAQ 4.11 How do I get a random number between X and Y?
Message-Id: <861w9l6kbn.fsf@lifelogs.com>
On Mon, 17 Dec 2007 12:03:02 -0800 PerlFAQ Server <brian@stonehenge.com> wrote:
PS> 4.11: How do I get a random number between X and Y?
...
PS> That is, to get a number between 10 and 15, inclusive, you want a random
PS> number between 0 and 5 that you can then add to 10.
PS> my $number = 10 + int rand( 15-10+1 );
I think this is a bit confusing to a new programmer, because the
inclusive range is 6 integers instead of 5. It clashes with the
intuitive 15-10 = 5-0 = 5 difference most programmers would expect.
Especially if scanned quickly, this can cause annoying bugs when copied
straight out.
I think the best doc fix would be to show the list of possible outputs
in a comment:
# will generate random picks from the set of 6 integers (10, 11, 12, 13, 14, 15)
my $number = 10 + int rand( 15-10+1 );
Ted
------------------------------
Date: Mon, 17 Dec 2007 13:55:51 -0600
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 4.3 Why isn't my octal data interpreted correctly?
Message-Id: <171220071355514872%brian.d.foy@gmail.com>
In article <slrnfmaoho.g0p.hjp-usenet2@hrunkner.hjp.at>, Peter J.
Holzer <hjp-usenet2@hjp.at> wrote:
> On 2007-12-16 16:59, brian d foy <brian.d.foy@gmail.com> wrote:
> > In article <slrnfm8mmg.at5.hjp-usenet2@hrunkner.hjp.at>, Peter J.
> > Holzer <hjp-usenet2@hjp.at> wrote:
> >> On 2007-12-15 08:03, PerlFAQ Server <brian@stonehenge.com> wrote:
> >> > 4.3: Why isn't my octal data interpreted correctly?
> >> >
> >> > Perl only understands octal and hex numbers as such when they occur
> >> > as
> >> > literals in your program. Octal literals in perl must start with a
> >> > leading 0 and hexadecimal literals must start with a leading "0x". If
> >> > they are read in from somewhere and assigned, no automatic conversion
> >> > takes place. You must explicitly use "oct()" or "hex()" if you want
> >> > the
> >> > values converted to decimal.
> >> ^^^^^^^
> >> Perl numbers aren't decimal,
>
> It might help if you read a little more than the first half sentence.
> All of your objections were answered in the next few lines.
There's no need to be a jerk. I read the entire message you posted and
clarified the issue. You said that numbers were binary. As you said in
response to my message, that is wrong. That's why I responded to your
message. Remember that many more people than the two of us read our
messages, and I'm including all of the information in my reply so that
others see the things that you already know
I still say that Perl numbers are decimal unless we say otherwise. Perl
will treat them as decimal and print them as decimal unless given
instructions not to. That's the point of the FAQ.
I'm sure that the next time we might disagree that we can do it
respectfully. :)
------------------------------
Date: Mon, 17 Dec 2007 12:06:03 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Have sub routine handle file OR array?
Message-Id: <86mys96vsk.fsf@lifelogs.com>
On Sat, 15 Dec 2007 10:49:19 -0500 Fred <itfred@cdw.com> wrote:
F> In the code snippet below a file is opened and processed one line at a
F> time. Is there a way this same subroutine could handle an array OR
F> file,depending what is passed to it? For example, if all the lines in
F> $file were read into an array named @myfile. Then it would read "while (
F> @myfile ) {".
You can use IO::Scalar (instead of an array, put your file data in a
single string) to present the data you already have as a file. Then
your subroutine only has to work with files.
You could also use Tie::File to access the file as if it was an array.
Then your subroutine only has to work with arrays.
Either way, I recommend presenting your data to the subroutine in a
single format (be it file or array) rather than trying to handle both.
Ted
------------------------------
Date: Mon, 17 Dec 2007 13:59:53 -0600
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: How to write a "caller-inspecting" module?
Message-Id: <171220071359539401%brian.d.foy@gmail.com>
In article <fjsmd4$3do$1@reader1.panix.com>, kj
<socyl@987jk.com.invalid> wrote:
> Is it possible to write a module Foo such that if one wrote
>
> package Bar;
> use Foo;
>
> # rest of Bar defined here
>
> sub last_sub_in_Bar { do_something() }
>
> last_top_level_statement_in_Bar();
>
> # suitable moment!
>
> 1; # end of Bar
>
> then, at some *suitable moment* Foo would automatically inspect
> the Bar package (the "caller")
Well, you can always use the caller() built-in to inspect the call
stack and decide what to do. You might also want to look at things such
as Hook::LexWrap for ideas.
If you need more help, give a concrete example about what you are doing
and what you are trying to accomplish.
Good luck,
------------------------------
Date: Mon, 17 Dec 2007 04:48:16 -0800 (PST)
From: timbo <beagles_1881@yahoo.com.au>
Subject: Problem with GDGraph.com website?
Message-Id: <1497ed8d-d721-40ad-9af9-52b554b2fc50@d21g2000prf.googlegroups.com>
Hello all,
Apologies if this isn't the most appropriate group to post this
question, but is anyone else having problems accessing this website?
http://gdgraph.com/
It was working fine last week, but it seems as if the site is down coz
I keep getting timeouts all weekend.
t.
------------------------------
Date: Mon, 17 Dec 2007 10:42:53 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Problem with GDGraph.com website?
Message-Id: <4766a70d$0$513$815e3792@news.qwest.net>
timbo wrote:
> Hello all,
>
> Apologies if this isn't the most appropriate group to post this
> question,
You're right, it isn't.
> but is anyone else having problems accessing this website?
>
> http://...
>
> It was working fine last week, but it seems as if the site is down coz
> I keep getting timeouts all weekend.
And what would you like us to do about it?
------------------------------
Date: Mon, 17 Dec 2007 11:48:41 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: Problem with GDGraph.com website?
Message-Id: <390ef925-38a2-4069-b4c5-f7aba41c47af@p1g2000hsb.googlegroups.com>
On Dec 17, 7:48 am, timbo <beagles_1...@yahoo.com.au> wrote:
> Hello all,
>
> Apologies if this isn't the most appropriate group to post this
> question, but is anyone else having problems accessing this website?
>
> http://gdgraph.com/
>
> It was working fine last week, but it seems as if the site is down coz
> I keep getting timeouts all weekend.
>
> t.
The nameserver is up (ns1.tempic.com), but not returning an A record
for gdgraph.com. Perhaps they were killed by MI5.
Anyway, the perl code is still on CPAN, what else do you need?
--S
------------------------------
Date: Mon, 17 Dec 2007 11:52:33 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Problem with GDGraph.com website?
Message-Id: <2l0j35xums.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-12-17, timbo <beagles_1881@yahoo.com.au> wrote:
>
> Apologies if this isn't the most appropriate group to post this
> question, but is anyone else having problems accessing this website?
>
> http://gdgraph.com/
>
> It was working fine last week, but it seems as if the site is down coz
> I keep getting timeouts all weekend.
It's not appropriate for this newsgroup at all. You should email the
technical contact for the domain.
--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: Tue, 18 Dec 2007 07:09:11 +1100
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Problem with GDGraph.com website?
Message-Id: <slrnfmdlr7.gdg.mgjv@martien.heliotrope.home>
On Mon, 17 Dec 2007 04:48:16 -0800 (PST),
timbo <beagles_1881@yahoo.com.au> wrote:
> Hello all,
>
> Apologies if this isn't the most appropriate group to post this
> question, but is anyone else having problems accessing this website?
It probably isn't the right place, as this is not about Perl.
> http://gdgraph.com/
>
> It was working fine last week, but it seems as if the site is down coz
> I keep getting timeouts all weekend.
I've never heard of gdraph.com before, which is rather interesting. If
it has anything to do with the CPAN bundle GDGraph, you can get that
from CPAN directly.
Martien
--
|
Martien Verbruggen |
| What's another word for Thesaurus?
|
------------------------------
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 1127
***************************************
