[25868] in Perl-Users-Digest
Perl-Users Digest, Issue: 8100 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 21 14:05:20 2005
Date: Sat, 21 May 2005 11:05:05 -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 Sat, 21 May 2005 Volume: 10 Number: 8100
Today's topics:
Fw: evidence john bokma al jazeera programmer ? <spam.me.not@dot.com>
Re: Fw: evidence john bokma al jazeera programmer ? <hendrik_maryns@despammed.com>
Re: Fw: evidence john bokma al jazeera programmer ? axel@white-eagle.invalid.uk
Re: http get param <alexj@freesurf.ch>
Re: http get param <tadmc@augustmail.com>
Re: Modyfying loop? <spam@noreply.org>
Re: Modyfying loop? <spam@noreply.org>
Re: Modyfying loop? <joe@inwap.com>
Re: Modyfying loop? <pilkowsk@informatik.uni-marburg.de>
Re: Modyfying loop? <spam@noreply.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 May 2005 15:38:57 -0000
From: William Baker <spam.me.not@dot.com>
Subject: Fw: evidence john bokma al jazeera programmer ?
Message-Id: <0F76OAJG38493.4437152778@anonymous.poster>
please add forward to alt.security.terrorism if information
p.p.s. "john bokma" shows long list in message boards, just in last
month. lots of information to netherlands where muslem militants
are. could some be coded cryption to aljazeera, so messages are in
secret for the terror network?
nl.comp.hardware
nl.media.tv
nl.wetenschap
nl.huishouden
nl.politiek
nl.religie
alt.nl.schandpaal
nl.comp.os.linux.installatie
be.politics
nl.gezondheid.psychiatrie
nl.internet.www.ontwerp
nl.gezondheid.medisch
nl.internet.misbruik
nl.internet.algemeen
comp.lang.python
nl.comp.programmeren
comp.lang.perl.modules
comp.lang.perl.misc
sci.electronics.basics
nl.internet.www.server-side
alt.internet.search-engines
alt.www.webmaster
comp.lang.perl.misc
nl.markt.freelance
nl.comp.hacken
microsoft.public.msn.messenger
be.comp.programming
be.comp.internet.design
nl.comp.os.linux.programmeren
what if dutch messages are most coded and hardest to break? there is no
arab language at babelfish.altavista.com. dutch is there, and english.
i will try to send this message around. i hope some law agents will
look at john bokma. he may work for al jazeera, on the computer webs and tv.
concerned,
william
> p.s. i ran a cross reference on john bokma whereabouts, like he
>just admits <Xns9659ACE89699Fcastleamber@130.133.1.4> .
>
> look for the words "al-jazeera" and "new zealand", or netherlands,
>mexico, turkey, or "sri lanka". can it be only coincidence that john bokma
>shows up in the same places around the world, and at same times that
>al jazeera showing up there? thats way to many coincidences for one to have.
>
> you can see his programs at www.aljazeera.com, and use translations
>at babelfish.altavista.com, if you need, like for his dutch records. somebody
>needs to tell fbi agents this john bokma woirks for terror computers and tv.
>
>> i keep looking at the john bokma al jazeera connection, and his dossier
>>gets bigger. this just one day cancels for al-jazeera and arab militant. do
>>bokma clients know how deep he works for al jazeera? look at this.
>>
>> see this from 2003, cancel for al jazeera and other arab names
>>at this message <bm7a55$7lh$1@dexter.hensema.net>
>>---
>>nl.internet.misbruik.rapport > Cancelreport from autocancelbot Sat Oct 11
>>00:00:05 2003 - View Parsed
>>From: Erik Hensema <cancel...@hensema.net>
>>Newsgroups: nl.internet.misbruik.rapport
>>Subject: Cancelreport from autocancelbot Sat Oct 11 00:00:05 2003
>>Followup-To: nl.internet.misbruik
>>Date: Fri, 10 Oct 2003 22:00:05 +0000 (UTC)
>>Approved: cancel...@hensema.net
>>Message-ID: <bm7a55$7lh$1@dexter.hensema.net>
>>NNTP-Posting-Host: dexter.hensema.net
>>NNTP-Posting-Date: Fri, 10 Oct 2003 22:00:05 +0000 (UTC)
>>
>>Id: SWEN-ac-1065775366-168-1872
>>From: John Bokma <postmas...@castleamber.com>
>>Subject: Re: Gibe virus onderschepprogramma maken met Delphi
>>Newsgroups: nl.comp.programmeren
>>Message-Id: <bm5re6$bs...@nl-news.euro.net>
>>
>>Id: 1063628593-ac-1065747874-64-61268
>>From: Rasheed AL-Jazeera <z...@itucxoh.org>
>>Subject: nlo.news.groups, rethink the cool
>>Newsgroups: nlo.news.groups
>>Message-Id: <7c274433.037d6...@news.makmilac.org>
>>
>>Id: 1063628593-ac-1065748328-65-93686
>>From: Hakeem Agha AL-Najjar <y...@nozju.org>
>>Subject: nl.sport.vissen, power of his own PR
>>Newsgroups: nl.sport.vissen
>>Message-Id: <e2cd6499.cc982...@news.tekxeviv.org>
>>
>>Id: 1063628593-ac-1065748636-66-67216
>>From: Abdel Said al-Zahhar <atukl...@qewzob.org>
>>Subject: Re: nl.sport.bridge, counterbranding game
>>Newsgroups: nl.sport.bridge
>>Message-Id: <bd1a8b42.34289...@news.ajodfeb.org>
>>
>>Id: 1063628593-ac-1065748640-67-29631
>>From: Ahmed al-Zawahiri <yxo...@nunjiry.org>
>>Subject: nl.sport.voetbal, a fading empire
>>Newsgroups: nl.sport.voetbal
>>Message-Id: <ee9837b0.abcb6...@news.ecodzymo.org>
>>
>>Id: 1063628593-ac-1065744129-55-50231
>>From: Ayub Al Zahhar <vuk...@gadvo.org>
>>Subject: Re: nl.sport.skate, we take on Phil
>>Newsgroups: nl.sport.skate
>>Message-Id: <18676a61.65ae1...@news.esapf.org>
>>
>>Id: 1063628593-ac-1065744130-56-4336
>>From: Karim Muhammad <yqihp...@bengiq.org>
>>Subject: nl.sport.varen, isn't exactly rocket science
>>Newsgroups: nl.sport.varen
>>Message-Id: <c0808799.cc7fe...@news.sohli.org>
>>
>>Id: 1063628593-ac-1065744134-57-60721
>>From: Fahd Saad Haq <inu...@ajobjyb.org>
>>Subject: nl.kunst.sf+fantasy, a final challenge
>>Newsgroups: nl.kunst.sf+fantasy
>>Message-Id: <e124f79d.2fa3f...@news.iluqmo.org>
>>
>>Id: 1063628593-ac-1065744135-58-79683
>>From: Fahd el-Hassan <ixorx...@hivqiq.org>
>>Subject: Re: nl.sport.klim+bergsport, grass roots capitalism
>>Newsgroups: nl.sport.klim+bergsport
>>Message-Id: <43ddea45.9f23d...@news.koznaxu.org>
>>
>>Id: 1063628593-ac-1065744136-59-36414
>>From: Ramez al Shehhi <ydabb...@pubvud.org>
>>Subject: nl.sport.volleybal, megacorps do not control
>>Newsgroups: nl.sport.volleybal
>>Message-Id: <7785777c.94c2b...@news.sowted.org>
>>
>>Id: 1063628593-ac-1065745335-60-95994
>>From: Fahd al-Islamia <m...@esuhv.org>
>>Subject: Re: nl.media.tv, brand damage
>>Newsgroups: nl.media.tv
>>Message-Id: <994d5015.dfeb0...@news.ajublu.org>
>>
>>Id: 1063628593-ac-1065746233-61-20559
>>From: Shah AL-Najjar <gexqu...@xasnato.org>
>>Subject: nl.luchtvaart.microlight, undisputed champion
>>Newsgroups: nl.luchtvaart.microlight
>>Message-Id: <cb8526b5.7f1ae...@news.awubr.org>
>>
>>Id: 1063628593-ac-1065746534-62-77779
>>From: Ibrahim Feyd AL-Islamia <ihynf...@ozuqvox.org>
>>Subject: nl.gezondheid.alt-genezen, rethink the shoe
>>Newsgroups: nl.gezondheid.alt-genezen
>>Message-Id: <57735953.4e7e2...@news.byrqijav.org>
>>
>>Id: 1063628593-ac-1065747432-63-5384
>>From: Abdul Hussein Mohammed <atiq...@poxpuxos.org>
>>Subject: nl.sport.algemeen, marketing momentum
>>Newsgroups: nl.sport.algemeen
>>Message-Id: <68ffd2e1.7f9bd...@news.titcano.org>
>>---
>> somebody should check all these message boards for john bokma
>>informtaion. interpol, fbi, and warn other groups about him.
>>
>>> i have a report to make. on another group i have been watching a thread
>>>where somebody named "john bokma" has been hassling another reader for some
>>>months now. i think its politically motivated, because the other guy
>>>talks in good support of the us, and doesnt like terrorists.
>>>
>>> i did a quick search for "john bokma", and i was surprised to find out
>>>that his whereabouts show him all over the place on the internet. every
>>>thing from new zealand, netherlans, mexico, and us. scope it for yourself.
>>>
>>> now heres the clincher. while i was searching through different message
>>>boards i found some chatter in foreign language (dutch?), saying bokma writes
>>>>>computer programs for terror al-jazeera webs, and has other suspicious
>>>connections to muslems. has this john bokma been red flagged or reported to
>>>>>the fbi? somebody should take a close look at this guy. he could be
>>>working for alqueda terrorists.
>>>
>>> if it helps here are some address emails i found with his name on them.
>>>
>>> jbokma@caiw.nl
>>> j.j.j.bokma@caiw.nl
>>> use@reply.address.com
>>> john@castleamber.com
>>> postmaster@castleamber.com
------------------------------
Date: Sat, 21 May 2005 18:50:51 +0200
From: Hendrik Maryns <hendrik_maryns@despammed.com>
Subject: Re: Fw: evidence john bokma al jazeera programmer ?
Message-Id: <1116694212.547401@seven.kulnet.kuleuven.ac.be>
William Baker uitte de volgende tekst op 21/05/2005 17:38:
>
>
>
> please add forward to alt.security.terrorism if information
lol!
Als ik hier nu even iets in het Nederlands schrijf, ben ik dan ook verdacht?
H.
--
Hendrik Maryns
Interesting websites:
www.lieverleven.be (I cooperate)
www.eu04.com European Referendum Campaign
aouw.org The Art Of Urban Warfare
------------------------------
Date: Sat, 21 May 2005 17:25:31 GMT
From: axel@white-eagle.invalid.uk
Subject: Re: Fw: evidence john bokma al jazeera programmer ?
Message-Id: <faKje.72002$a9.7166@fe3.news.blueyonder.co.uk>
In comp.lang.perl.misc Hendrik Maryns <hendrik_maryns@despammed.com> wrote:
> William Baker uitte de volgende tekst op 21/05/2005 17:38:
>> please add forward to alt.security.terrorism if information
> lol!
> Als ik hier nu even iets in het Nederlands schrijf, ben ik dan ook verdacht?
'tuurlijk.
Axel
------------------------------
Date: Sat, 21 May 2005 14:13:07 +0200
From: Alexandre Jaquet <alexj@freesurf.ch>
Subject: Re: http get param
Message-Id: <428f25d8$0$1156$5402220f@news.sunrise.ch>
Anno Siegel a écrit :
> Alexandre Jaquet <alexj@freesurf.ch> wrote in comp.lang.perl.misc:
>
>>I'm having a strang error when I try to disting my actions passed in
>>parameter, the parameter action is null :s
>
>
> Pardon, but this sentence is gibberish. It is impossible to guess
> what you expect from the code [snipped] and in which way it doesn't
> do what you expect. Try again.
>
> Anno
I try to be clearer, the problem is when I try to get the parameter
action (recordz.cgi=lang=fr&action=xxxx)
he's null :(
------------------------------
Date: Sat, 21 May 2005 11:00:00 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: http get param
Message-Id: <slrnd8umo0.pso.tadmc@magna.augustmail.com>
Alexandre Jaquet <alexj@freesurf.ch> wrote:
> Anno Siegel a écrit :
>> Alexandre Jaquet <alexj@freesurf.ch> wrote in comp.lang.perl.misc:
>>
>>>I'm having a strang error when I try to disting my actions passed in
>>>parameter, the parameter action is null :s
>>
>>
>> Pardon, but this sentence is gibberish. It is impossible to guess
>> what you expect from the code [snipped] and in which way it doesn't
>> do what you expect. Try again.
>>
>> Anno
>
> I try to be clearer, the problem is when I try to get the parameter
> action (recordz.cgi=lang=fr&action=xxxx)
^
^ that is supposed to be a question mark
I dunno why you are writing it that way when it is a POST request.
params show in URLs for GET requests, not for POST requests.
POST requests come in on STDIN. Does your code read from STDIN
before creating the CGI object? (we cannot tell, because we haven't
seen a complete program.)
You should make a short and complete program *that we can run* that
illustrates your problem, eg:
---------------------
#!/usr/bin/perl
# arg_echo - echo all the CGI form parameters
use warnings;
use strict;
use CGI qw/ :standard /;
use CGI::Carp qw(fatalsToBrowser);
$| = 1;
print "Content-type: text/plain\n\n";
foreach my $param ( param() ) {
printf " %-20s => '%s',\n", $param, param($param);
}
---------------------
Have you seen the Posting Guidelines that are posted here frequently?
> he's null :(
There is no such thing as "null" in Perl, so we _still_ don't
know what the problem is.
Is it the "empty string"? (a string of length zero)
Is it undef? (a special value in Perl that is kind of like "null" or
"nil" in other languages.)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 21 May 2005 11:50:45 +0000
From: michael <spam@noreply.org>
Subject: Re: Modyfying loop?
Message-Id: <d6n09k$6vi$00$1@news.t-online.com>
> Always, you should use "strict" and "warnings", do you? Please declare
> your vars with my(), e.g.
From now on I do.
> tie my %flora_and_fauna, "Tie::IxHash";
> tie my %aquatic_creatures, "Tie::IxHash";
>
>
> %flora_and_fauna = ('Flora & Fauna' => 'z0.html',
> 'Pretty Flowers' => 'z1.html',
> 'Deadly Vines' => 'z2.html');
>
> %aquatic_creatures = ('Aquatic Creatures' => 'z3.html',
> 'Pretty Fish' => 'z4.html',
> 'Don\'t Eat' => 'z5.html');
[...]
>
> print "<ul id='menu'>\n";
> for ( \%flora_and_fauna, \%aquatic_creatures ) {
> my $firstkey = each %$_;
> print " <li>$firstkey\n";
> print " <ul>\n";
> print " <li>$_</li>\n" while local $_ = each %$_;
> print " </ul>\n";
> print " </li>\n";
> }
> print "</ul>\n";
Thanks for posting this loop, it returns exactly the structure I want,
regardless of how many link items or hash arrays are added to the menu
system.
Only, and what is probably an easy question; how can the <a href... $value's
be included in their right places, so the loop would print the following?
<ul id='menu'>
<li><a href=z0.html>Flora & Fauna</a>
<ul>
<li><a href=z1.html>Pretty Flowers</a></li>
<li><a href=z2.html>Deadly Vines</a></li>
</ul>
</li>
<li><a href=z3.html>Aquatic Creatures</a>
<ul>
<li><a href=z4.html>Pretty Fish</a></li>
<li><a href=z5.html>Don't Eat</a></li>
</ul>
</li>
</ul>
Thanks,
Michael
--
Tomorrow, this will be part of the unchangeable past but fortunately,
it can still be changed today.
------------------------------
Date: Sat, 21 May 2005 13:58:38 +0000
From: michael <spam@noreply.org>
Subject: Re: Modyfying loop?
Message-Id: <d6n7pe$17l$05$1@news.t-online.com>
> my @AoAoA = (
> [
> [ 'Flora & Fauna' => 'z0.html' ],
> [ 'Pretty Flowers' => 'z1.html' ],
> [ 'Deadly Vines' => 'z2.html' ],
> ],
> [
> [ 'Aquatic Creatures' => 'z3.html' ],
> [ 'Pretty Fish' => 'z4.html' ],
> [ 'Don\'t Eat' => 'z5.html' ],
> ],
> );
>
> That would let you keep the order without using Tie::IxHash. The AoAoA
> can be printed using nested foreach loops:
>
> print qq(<ul id="menu">\n);
> for (@AoAoA) {
> my ($label, $url) = @{ shift @$_ };
> print qq( <li><a href="$url">$label</a>\n <ul>\n);
> for my $pair (@$_) {
> my ($label, $url) = @$pair;
> print qq( <li><a href="$url">$label</a></li>\n);
> }
> print " </ul>\n </li>\n";
> }
> print "</ul>\n";
>
The above moduleless solution works nicely, as does the version posted in
the next thread.
Ultimately, I'm looking for a way to print each <li> also to include 1 of 3
css/html class variables, to be used for visual html formatting, eg.:
<li class=current_url>
<li class=this_group>
<li class=all_others>
To know which should be which, all I can go by is the current page name
being a variable imported into the perl script through
$ENV{"DOCUMENT_NAME"}. Note that the menu would be ssi/perl generated onto
otherwise static .html pages, which are the pages as linked in the arrays.
Through knowing the file name, it should be possible to know which array
group it is within, and for it, print a relevant <li class=$variable>.
For example, if a user is accessing z1.html, I would like to print <li>'s
for z0.html and z2.html, as <li class=current_group>, as z1.html is amongst
that group of links.
Whilst the <li> containing z1.html itself would print as <li
class=current_url>.
And all others, being z3.html, z4.html and z5.html, to print as <li
class=all_others>
Could the above AoAoA/loop format be extended for this, or would a different
array/loop method be needed considering this last mentioned functionality?
Thanks again,
Michael
--
Q: How does the Polish Constitution differ from the American?
A: Under the Polish Constitution citizens are guaranteed freedom of
speech, but under the United States constitution they are
guaranteed freedom after speech.
-- being told in Poland, 1987
------------------------------
Date: Sat, 21 May 2005 05:08:36 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: Modyfying loop?
Message-Id: <aKCdnZuzWvdZuRLfRVn-rA@comcast.com>
michael wrote:
> Only, and what is probably an easy question; how can the <a href... $value's
> be included in their right places, so the loop would print the following?
It is trivial for ordinary hashes; just print $hash{$key} at the right
spot. For the method Fabian described, look at the perl documentation
for 'each'. It returns two scalars.
my ($key,$val) = each %$_;
print qq(<li><a href="$val">$key</a>\n);
print qq( <ul>\n);
print qq( <li><a href="val">$key</a></li>\n)
while ($key,$val) = each %$_;
print qq( </ul>\n);
print qq(</li>\n);
-Joe
------------------------------
Date: Sat, 21 May 2005 15:01:53 +0200
From: Fabian Pilkowski <pilkowsk@informatik.uni-marburg.de>
Subject: Re: Modyfying loop?
Message-Id: <3f8povF6hjo5U1@individual.net>
* michael schrieb:
>
>> print "<ul id='menu'>\n";
>> for ( \%flora_and_fauna, \%aquatic_creatures ) {
>> my $firstkey = each %$_;
>> print " <li>$firstkey\n";
>> print " <ul>\n";
>> print " <li>$_</li>\n" while local $_ = each %$_;
>> print " </ul>\n";
>> print " </li>\n";
>> }
>> print "</ul>\n";
>
> Thanks for posting this loop, it returns exactly the structure I want,
> regardless of how many link items or hash arrays are added to the menu
> system.
>
> Only, and what is probably an easy question; how can the <a href... $value's
> be included in their right places, so the loop would print the following?
I know that this was your intention. I've left this as an exercise for
you since it is really "an easy question". Nevertheless, Joe has already
shown one alternative.
regards,
fabian
------------------------------
Date: Sat, 21 May 2005 17:47:58 +0000
From: michael <spam@noreply.org>
Subject: Re: Modyfying loop?
Message-Id: <d6nl7d$tm8$02$1@news.t-online.com>
> you since it is really "an easy question". Nevertheless, Joe has already
> shown one alternative.
I appreciate your ul reconstruct loop. I "just" managed to get it working
including the hrefs, although not as optimal as designed, but it does work:
print "<ul id='menu'>\n";
for (\%flora_and_fauna) {
my $firstkey = each %$_;
print "<li><a href=$flora_and_fauna{$firstkey}>$firstkey</a>\n";
print "<ul>\n";
print "<li><a href=$flora_and_fauna{$_}>$_</li> \n" while local $_ = each
%$_;
print "<ul>\n";
print "</li>\n";
}
for (\%aquatic_creatures) {
my $firstkey = each %$_;
print "<li><a href=$aquatic_creatures{$firstkey}>$firstkey</a>\n";
print "<ul>\n";
print "<li><a href=$aquatic_creatures{$_}>$_</li> \n" while local $_ = each
%$_;
print "<ul>\n";
print "</li>\n";
}
print "</ul>\n";
It may be easier for me to keep each link group as separate loops as there
won't be that many anyway, and as I need to get some different <li
class="$variables"> set for each depending on which page is accessed.
Thanks,
Michael
--
Clothes make the man. Naked people have little or no influence on society.
-- Mark Twain
------------------------------
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 8100
***************************************
