From djgoku at gmail.com  Thu Jun  3 13:26:09 2010
From: djgoku at gmail.com (Jonathan Otsuka)
Date: Thu, 3 Jun 2010 15:26:09 -0500
Subject: [Kc] YAPC::NA 2010 June 21-23rd Columbus, OH
In-Reply-To: <947F3203-338B-4AD3-8AA4-A75A05175C8A@gmail.com>
References: <OF68722946.20F7CB71-ON85257704.0061B9A2-85257704.0061CE7E@lnotes-gw.ent.nwie.net>
	<h2z6c70d2981004131914ta345996dpac4641984c95c5ef@mail.gmail.com>
	<o2n1467780a1004131933z6f8e6355sddb9d99290a9eb36@mail.gmail.com>
	<E14C4DFE-5447-49E7-8BD9-DDD39629B451@jays.net>
	<n2m934f64a21004151450uaa3b3f7elbf4d5e390c65cb38@mail.gmail.com>
	<556147CB-E72A-4678-8D64-B1307AA2A752@jays.net>
	<947F3203-338B-4AD3-8AA4-A75A05175C8A@gmail.com>
Message-ID: <F57D7748-1B7B-4ECF-BF15-822C392739F3@gmail.com>

	
On May 7, 2010, at 7:15 PM, Jonathan Otsuka wrote:

> 
> On May 6, 2010, at 10:51 AM, Jay Hannah wrote:
> 
>> On Apr 15, 2010, at 4:50 PM, David Nicol wrote:
>>> Eleven hours to Columbus OH from here is possible without taking any breaks whatsoever and no traffic jam in st. louis or indy. At least three fuel stops plus at least one meal. I wonder what my father would do if I showed up at his house (about 2/3 of the way there) with a van full of perl mongers with sleeping bags. Give us each a cold one and use of the living room floor, probably.
>> 
>> Alright, gents. Decision making time. I'm going to buy my flights this week unless we lock in a road trip plan.
>> 
>> Who's definitely serious about driving to Columbus and back? Anyone have an appropriate vehicle? Looks like I can fly for $260.
> 
> If I go I plan on driving. I haven't booked hotels or anything yet though.


Looks like I will not be attending and friend will be in town that weekend.

Jonathan

From stephenclouse at gmail.com  Mon Jun  7 19:04:28 2010
From: stephenclouse at gmail.com (Stephen Clouse)
Date: Mon, 7 Jun 2010 21:04:28 -0500
Subject: [Kc] June Meeting Tomorrow
Message-ID: <AANLkTikYS7yMy506oRDT9k4nR_8mdTRA_0hh_1imTVYt@mail.gmail.com>

I seem to have become the official reminder guy.

Who else will be there?

-- 
Stephen Clouse <stephenclouse at gmail.com>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/kc/attachments/20100607/dffc67ce/attachment.html>

From amoore at mooresystems.com  Tue Jun  8 06:36:41 2010
From: amoore at mooresystems.com (Andrew Moore)
Date: Tue, 8 Jun 2010 08:36:41 -0500
Subject: [Kc] June Meeting Tomorrow
In-Reply-To: <AANLkTikYS7yMy506oRDT9k4nR_8mdTRA_0hh_1imTVYt@mail.gmail.com>
References: <AANLkTikYS7yMy506oRDT9k4nR_8mdTRA_0hh_1imTVYt@mail.gmail.com>
Message-ID: <AANLkTilBSmE2sx-8mGyBXVHBLOC01cQvE_Evgncu_ith@mail.gmail.com>

Thanks for the reminder, Stephen. I seem to forget on months that
start on Tuesday (or any other day).

I'll see you this evening.

As usual, we'll be at Barley's in Shawnee at 7pm. We'll grab a few
high-top tables in the back and push them together.

-Andy


On Mon, Jun 7, 2010 at 9:04 PM, Stephen Clouse <stephenclouse at gmail.com> wrote:
> I seem to have become the official reminder guy.
>
> Who else will be there?
>
> --
> Stephen Clouse <stephenclouse at gmail.com>
>
> _______________________________________________
> kc mailing list
> kc at pm.org
> http://mail.pm.org/mailman/listinfo/kc
>

From davidnicol at gmail.com  Wed Jun 23 15:57:33 2010
From: davidnicol at gmail.com (David Nicol)
Date: Wed, 23 Jun 2010 17:57:33 -0500
Subject: [Kc] a perl class is to be held at the CCCKC space
Message-ID: <AANLkTinP-Qwu5iiJCNuc4LZz-5kh0eFZqpEpBkyvJpqr@mail.gmail.com>

---------- Forwarded message ----------
From: Paul Rixon <rixoff at gmail.com>
Date: Wed, Jun 23, 2010 at 8:11 AM
Subject: Perl Class
To: CCCKC <ccckc at googlegroups.com>


Hello all!

As promised, the Intro to Perl class will be held at the cave starting
this Friday at 7PM. ?Please have a working machine with Perl already
installed. ?If you need help with this, come down at 6PM. ?If you
don't have a machine, then we'll figure something out.

If you're already a seasoned Perl coder, please come down and heckle
the class! ?I'm also learning Perl, so I am probably going to be the
worst teacher ever. ?(Since this is free, don't bitch about the
quality of the seminar. ?You get what you pay for.) ?I would
appreciate the pointers as we go along.

I'm expecting the class to be about 4 weeks, every Friday at 7PM.
This will be very rudimentary, and should be okay for people with only
minimal programming experience. ?It is open to the public, so please,
invite non-members.

-P

--
You received this message because you are subscribed to the Google
Groups "CCCKC" group.
To post to this group, send email to ccckc at googlegroups.com.
To unsubscribe from this group, send email to
ccckc+unsubscribe at googlegroups.com.
For more options, visit this group at
http://groups.google.com/group/ccckc?hl=en.




-- 
"For unknown reasons, Earth sped up in 1999" --Wikipedia on the Leap Second

From popefelix at gmail.com  Wed Jun 23 15:58:52 2010
From: popefelix at gmail.com (Kit Peters)
Date: Wed, 23 Jun 2010 17:58:52 -0500
Subject: [Kc] a perl class is to be held at the CCCKC space
In-Reply-To: <AANLkTinP-Qwu5iiJCNuc4LZz-5kh0eFZqpEpBkyvJpqr@mail.gmail.com>
References: <AANLkTinP-Qwu5iiJCNuc4LZz-5kh0eFZqpEpBkyvJpqr@mail.gmail.com>
Message-ID: <AANLkTimDyBoVF32Jyjfof4O14xxa2Rg6XyQid5xUFvv7@mail.gmail.com>

Can we throw rotten fruit? ;)

KP

On Wed, Jun 23, 2010 at 17:57, David Nicol <davidnicol at gmail.com> wrote:

> ---------- Forwarded message ----------
> From: Paul Rixon <rixoff at gmail.com>
> Date: Wed, Jun 23, 2010 at 8:11 AM
> Subject: Perl Class
> To: CCCKC <ccckc at googlegroups.com>
>
>
> Hello all!
>
> As promised, the Intro to Perl class will be held at the cave starting
> this Friday at 7PM.  Please have a working machine with Perl already
> installed.  If you need help with this, come down at 6PM.  If you
> don't have a machine, then we'll figure something out.
>
> If you're already a seasoned Perl coder, please come down and heckle
> the class!  I'm also learning Perl, so I am probably going to be the
> worst teacher ever.  (Since this is free, don't bitch about the
> quality of the seminar.  You get what you pay for.)  I would
> appreciate the pointers as we go along.
>
> I'm expecting the class to be about 4 weeks, every Friday at 7PM.
> This will be very rudimentary, and should be okay for people with only
> minimal programming experience.  It is open to the public, so please,
> invite non-members.
>
> -P
>
> --
> You received this message because you are subscribed to the Google
> Groups "CCCKC" group.
> To post to this group, send email to ccckc at googlegroups.com.
> To unsubscribe from this group, send email to
> ccckc+unsubscribe at googlegroups.com <ccckc%2Bunsubscribe at googlegroups.com>.
> For more options, visit this group at
> http://groups.google.com/group/ccckc?hl=en.
>
>
>
>
> --
> "For unknown reasons, Earth sped up in 1999" --Wikipedia on the Leap Second
> _______________________________________________
> kc mailing list
> kc at pm.org
> http://mail.pm.org/mailman/listinfo/kc




-- 
GPG public key fingerpint: 1A12 04B6 0C80 306A B292  14FD 2C7A 1037 F666
46A7
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/kc/attachments/20100623/40ff2e44/attachment.html>

From darylvf at gmail.com  Fri Jun 25 17:31:37 2010
From: darylvf at gmail.com (Daryl Fallin)
Date: Fri, 25 Jun 2010 19:31:37 -0500
Subject: [Kc] Perl Question: XML::Twig module
Message-ID: <AANLkTimtLMZyuGR8PCx-Y6iWz_LCIKCb_msgYCXemQNQ@mail.gmail.com>

Hi All ....

I have been trying to work with XML::Twig lately to parse an xml file.

I just want to dump every element/Tag of the xml file.  But my while loops
seems to be doing something weird or its the way that XML::Twig is working,
not sure, but I get duplicate information from the original XML file.  Its
like it is running part of the while loop twice.

I know there are other modules that I could use but I am using XML::Twig for
other parts of what will be a larger program and I want the chunking that
XML:Twig allows.

Any help would be greatly appreciated.

Here is my sample code:

#!/usr/bin/perl -w

require XML::Twig;

sub info {
        my ($xml, $info) = @_;
        my $elt = $info;
        while ($elt= $elt->next_elt($info) )
        {
                $elt->set_remove_cdata(1);
                $elt->set_pretty_print("record");  # print one field per
line
                printf "%s\n", $elt->sprint;
        }
}

$xml = new XML::Twig(
        TwigHandlers => {
                XML_DIZ_INFO       => \&info,
        }
);

# Parse the XML
$xml->parsefile('sample.xml');

************************

sample.xml
-----------------
<?xml version="1.0" ?>
<XML_DIZ_INFO>
        <MASTER_PAD_VERSION_INFO>
                <MASTER_PAD_VERSION>1.0</MASTER_PAD_VERSION>
                <MASTER_PAD_EDITOR>Master Editor here</MASTER_PAD_EDITOR>
                <MASTER_PAD_INFO>information would go here
</MASTER_PAD_INFO>
        </MASTER_PAD_VERSION_INFO>
        <Company_Info>
                <Company_Name>Moyea Software Co., Ltd.</Company_Name>
                <Country>China</Country>
                <Company_WebSite_URL>http://www.whatever.com
</Company_WebSite_URL>
                <Contact_Info>
                        <Author_First_Name>Bob</Author_First_Name>
                        <Author_Last_Name>King</Author_Last_Name>
                        <Author_Email>product at moyea.com</Author_Email>
                </Contact_Info>
        </Company_Info>
</XML_DIZ_INFO>

============================================
The following is the output I get.  After the closing </Company_Info> it
should stop.
============================================

  <MASTER_PAD_VERSION_INFO>
    <MASTER_PAD_VERSION>1.0</MASTER_PAD_VERSION>
    <MASTER_PAD_EDITOR>Master Editor here</MASTER_PAD_EDITOR>
    <MASTER_PAD_INFO>information would go here </MASTER_PAD_INFO>
  </MASTER_PAD_VERSION_INFO>

    <MASTER_PAD_VERSION>1.0</MASTER_PAD_VERSION>
1.0

    <MASTER_PAD_EDITOR>Master Editor here</MASTER_PAD_EDITOR>
Master Editor here

    <MASTER_PAD_INFO>information would go here </MASTER_PAD_INFO>
information would go here

  <Company_Info>
    <Company_Name>Moyea Software Co., Ltd.</Company_Name>
    <Country>China</Country>
    <Company_WebSite_URL>http://www.whatever.com</Company_WebSite_URL>
    <Contact_Info>
      <Author_First_Name>Bob</Author_First_Name>
      <Author_Last_Name>King</Author_Last_Name>
      <Author_Email>product at moyea.com</Author_Email>
    </Contact_Info>
  </Company_Info>

    <Company_Name>Moyea Software Co., Ltd.</Company_Name>
Moyea Software Co., Ltd.

    <Country>China</Country>
China

    <Company_WebSite_URL>http://www.whatever.com</Company_WebSite_URL>
http://www.whatever.com

    <Contact_Info>
      <Author_First_Name>Bob</Author_First_Name>
      <Author_Last_Name>King</Author_Last_Name>
      <Author_Email>product at moyea.com</Author_Email>
    </Contact_Info>

      <Author_First_Name>Bob</Author_First_Name>
Bob

      <Author_Last_Name>King</Author_Last_Name>
King

      <Author_Email>product at moyea.com</Author_Email>
product at moyea.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/kc/attachments/20100625/edd772b7/attachment.html>

From darylvf at gmail.com  Mon Jun 28 08:12:00 2010
From: darylvf at gmail.com (Daryl Fallin)
Date: Mon, 28 Jun 2010 10:12:00 -0500
Subject: [Kc] Perl Question: XML::Twig module
In-Reply-To: <AANLkTimtLMZyuGR8PCx-Y6iWz_LCIKCb_msgYCXemQNQ@mail.gmail.com>
References: <AANLkTimtLMZyuGR8PCx-Y6iWz_LCIKCb_msgYCXemQNQ@mail.gmail.com>
Message-ID: <AANLkTimF0a8xFauSNY57Vmol7ORT7cPYLl3ARhmi7TSr@mail.gmail.com>

All -

Figured out the problem.  Sterling Hanenkamp got me going in the right
direction.

Anyway... I was using an abstract example to ask my question, so here is an
explanation and my actual code.

I am working with the Qualys API and I wanted to pull all scan data back
from Qualys so that I can store and mashup the data against other data
sources.

The DTD for the Qualys xml is:  https://qualysapi.qualys.com/scan-1.dtd
(This will give you the structure of the XML file)

Here is the basic code that I ended up with.  This works on the xml file
after being retrieved from Qualys.


*************************************************
#!/usr/bin/perl -w

# Indentation style: 1 tab = 4 spaces


require XML::Twig;

sub info {
        my ($xml, $info) = @_;
        my $elt = $info;
        if ($elt->is_elt =~ m/(VULN|SERVICE|INFO|PRACTICE)/) {
            printf "VALUE: %s \n",
$elt->parent->parent->parent->att("value");
            printf "ENT: %s \n", $elt->is_elt;
        }

        if ($elt->is_elt =~ m/(OS|NETBIOS_HOSTNAME)/) {
                printf "VALUE: %s \n", $elt->parent->att("value");
                printf "ENT: %s \n", $elt->is_elt;
                printf "%s\n", $elt->text;

        }
        while ($elt= $elt->next_elt($info) )
        {
                my $localname = $elt->local_name;
                if ($localname ne '#CDATA' && $localname ne '#PCDATA') {
                    printf "%s: ", $localname;
                    printf "%s\n", $elt->text;
                }
        }
        printf "\n\n";
}

#===================================================
#Main program section


$xml = new XML::Twig(
        TwigHandlers => {
                SERVICE             => \&info,
                VULN                => \&info,
                OS                  => \&info,
                NETBIOS_HOSTNAME    => \&info,
                INFO                => \&info,
                PRACTICE            => \&info,
                HEADER              => \&info,
                #_all_       => \&info,                         # not using
_all_ to ignore the toplevel SCAN tag
        },
        error_context => 1,

);

# Parse the XML
$xml->parsefile('sample.xml');

******************************************************************


On Fri, Jun 25, 2010 at 7:31 PM, Daryl Fallin <darylvf at gmail.com> wrote:

> Hi All ....
>
> I have been trying to work with XML::Twig lately to parse an xml file.
>
> I just want to dump every element/Tag of the xml file.  But my while loops
> seems to be doing something weird or its the way that XML::Twig is working,
> not sure, but I get duplicate information from the original XML file.  Its
> like it is running part of the while loop twice.
>
> I know there are other modules that I could use but I am using XML::Twig
> for other parts of what will be a larger program and I want the chunking
> that XML:Twig allows.
>
> Any help would be greatly appreciated.
>
> Here is my sample code:
>
> #!/usr/bin/perl -w
>
> require XML::Twig;
>
> sub info {
>         my ($xml, $info) = @_;
>         my $elt = $info;
>         while ($elt= $elt->next_elt($info) )
>         {
>                 $elt->set_remove_cdata(1);
>                 $elt->set_pretty_print("record");  # print one field per
> line
>                 printf "%s\n", $elt->sprint;
>         }
> }
>
> $xml = new XML::Twig(
>         TwigHandlers => {
>                 XML_DIZ_INFO       => \&info,
>         }
> );
>
> # Parse the XML
> $xml->parsefile('sample.xml');
>
> ************************
>
> sample.xml
> -----------------
> <?xml version="1.0" ?>
> <XML_DIZ_INFO>
>         <MASTER_PAD_VERSION_INFO>
>                 <MASTER_PAD_VERSION>1.0</MASTER_PAD_VERSION>
>                 <MASTER_PAD_EDITOR>Master Editor here</MASTER_PAD_EDITOR>
>                 <MASTER_PAD_INFO>information would go here
> </MASTER_PAD_INFO>
>         </MASTER_PAD_VERSION_INFO>
>         <Company_Info>
>                 <Company_Name>Moyea Software Co., Ltd.</Company_Name>
>                 <Country>China</Country>
>                 <Company_WebSite_URL>http://www.whatever.com
> </Company_WebSite_URL>
>                 <Contact_Info>
>                         <Author_First_Name>Bob</Author_First_Name>
>                         <Author_Last_Name>King</Author_Last_Name>
>                         <Author_Email>product at moyea.com</Author_Email>
>                 </Contact_Info>
>         </Company_Info>
> </XML_DIZ_INFO>
>
> ============================================
> The following is the output I get.  After the closing </Company_Info> it
> should stop.
> ============================================
>
>   <MASTER_PAD_VERSION_INFO>
>     <MASTER_PAD_VERSION>1.0</MASTER_PAD_VERSION>
>     <MASTER_PAD_EDITOR>Master Editor here</MASTER_PAD_EDITOR>
>     <MASTER_PAD_INFO>information would go here </MASTER_PAD_INFO>
>   </MASTER_PAD_VERSION_INFO>
>
>     <MASTER_PAD_VERSION>1.0</MASTER_PAD_VERSION>
> 1.0
>
>     <MASTER_PAD_EDITOR>Master Editor here</MASTER_PAD_EDITOR>
> Master Editor here
>
>     <MASTER_PAD_INFO>information would go here </MASTER_PAD_INFO>
> information would go here
>
>   <Company_Info>
>     <Company_Name>Moyea Software Co., Ltd.</Company_Name>
>     <Country>China</Country>
>     <Company_WebSite_URL>http://www.whatever.com</Company_WebSite_URL>
>     <Contact_Info>
>       <Author_First_Name>Bob</Author_First_Name>
>       <Author_Last_Name>King</Author_Last_Name>
>       <Author_Email>product at moyea.com</Author_Email>
>     </Contact_Info>
>   </Company_Info>
>
>     <Company_Name>Moyea Software Co., Ltd.</Company_Name>
> Moyea Software Co., Ltd.
>
>     <Country>China</Country>
> China
>
>     <Company_WebSite_URL>http://www.whatever.com</Company_WebSite_URL>
> http://www.whatever.com
>
>     <Contact_Info>
>       <Author_First_Name>Bob</Author_First_Name>
>       <Author_Last_Name>King</Author_Last_Name>
>       <Author_Email>product at moyea.com</Author_Email>
>     </Contact_Info>
>
>       <Author_First_Name>Bob</Author_First_Name>
> Bob
>
>       <Author_Last_Name>King</Author_Last_Name>
> King
>
>       <Author_Email>product at moyea.com</Author_Email>
> product at moyea.com
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/kc/attachments/20100628/a05a0c60/attachment.html>