Das eez kaput! Sometime around 2002 I spaced the entire database table that mapped individual entries to categories. Such is life. What follows is a random sampling of entries that were associated with the category. Over time, the entries will be updated and then it will be even more confusing. Wander around, though, it's still a fun way to find stuff.
Yours is the only country that has ever invaded ours, and it would do so again in a wink if it thought its interests here were seriously threatened.
Possible weblog-hack for people who are comfortable with the idea that the chronologically ordered posts are fundamental to the Idea of Weblog. I have always thought that this is a crock and that it is more a function (warning: medium is the message citation ahead) of the technical considerations undertaken by any given tool's developer.Please note that this is a pre-alpha snapshot trial demo test version. It should work correctly on ordinary, i.e. non-recurring, events.
my $parser = XML::LibXML->new();
my $doc = $parser->parse_html_file("/path/to/file");
my ($span) = $doc->findnodes("/xpath/to/span/with/curyear");
# I happen to know that the first child
# is a text node containing the year
my $oldyear = $span->firstChild();
$oldyear->replaceNode(XML::LibXML::Text->new("2003"));
# Write changes to disk
Simple, right? Keen observers will have already noticed
that I had to read in the document using the
parse_html_file
method. If your root element says "html", regardless of
whether or not the DOCTYPE says XHTML, it is seemingly
impossible to parse a document using the standard
parse_*
methods. Which means that by the time you get around to
writing your DOM to disk you cant do things
like...drumroll...include an XML declaration. And if you
decide to simply write the declaration out by hand, don't
bother trying to call any of the encoding methods. Maybe
there is some deeper magic I have yet to learn but all I
was able to do was make the Perl interpreter dump core.
Still with me? Okay, so we're going to write the
declaration by hand and just assume we know what we're
dealing with when it comes to encodings. Now remember the
bit about being in an HTML context? Logically, the thing to
do is follow the docs, call the
toStringHTML
method and hope for the best. The best in this case is a
terrible journey back to 1998 because all the singletons in
the well-formed documents you've laboured over are suddenly
left open and dangling. And don't bother throwing caution
to wind and just calling
toString
, not if you use the clever C-style comments hack to hide
the <![CDATA[]]> blocks so that your XHTML
can valid and be understood by a web browser. Who the fuck
knows why, but libxml will turn in to this :
<![CDATA[ /* <![CDATA[ */ @import url(some.css) /* ]]> */ ]]>Oh yeah, and it will include an XML declaration for you. So long as you dont mind that it doesn't specify the encoding. Ugh.
Exegetist \Ex`e*ge"tist\, n. One versed in the science of exegesis or interpretation; -- also called {exegete}. web1913
Ennui \En`nui"\, n. [F., fr. L. in odio in hatred. See {Annoy}.] A feeling of weariness and disgust; dullness and languor of spirits, arising from satiety or want of interest; tedium. --T. Gray. web1913
ennui n : the feeling of being bored by something tedious [syn: {boredom}, {tedium}] wn
Affable \Af"fa*ble\, a. [F. affable, L. affabilis, fr. affari to speak to; ad + fari to speak. See {Fable}.] 1. Easy to be spoken to or addressed; receiving others kindly and conversing with them in a free and friendly manner; courteous; sociable. An affable and courteous gentleman. --Shak. His manners polite and affable. --Macaulay. 2. Gracious; mild; benign. A serene and affable countenance. --Tatler. Syn: Courteous; civil; complaisant; accessible; mild; benign; condescending. web1913
affable adj : diffusing warmth and friendliness; "an affable smile"; "an amiable gathering"; "cordial relations"; "a cordial greeting"; "a genial host" [syn: {amiable}, {cordial}, {genial}] wn
my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY);
my $search = $google->search();
$search->query(qw(aaron cope));
map { print $_->title()."\n"; } @{$search->results()};
See
docs
for details and caveats.
A note for people arriving from the soapware.org
listings
: the most recent version of Net::Google can be found on
the
CPAN
.
<!ELEMENT outline (outline?|outline*)>
<!ATTLIST outline text CDATA #REQUIRED
created CDATA #REQUIRED
type (link|foo|bar) #IMPLIED
url CDATA #IMPLIED>
Rewritten to accomodate "inline" instant outlines it would
look like:
<!ELEMENT outline (outline?|outline*)>
<!ATTLIST outline text CDATA #REQUIRED
created CDATA #REQUIRED
modified CDATA #REQUIRED
type (link|subscription|foo|bar) #IMPLIED
url CDATA #IMPLIED>
Which would let you do something neat like:
# @ISA = qw (XML::SAX::Base)
sub start_element {
my $self = shift;
my $data = shift;
if ($data->{Name} ne "outline") {
$self->SUPER::start_element($data);
return 1;
}
# This part of SAX2 really sucks...
if ($data->{Attributes}->{'{}type'}->{Value} ne
"subscription") {
$self->SUPER::start_element($data);
return 1;
}
# mmmm...suckiness
my $uri = $data->{Attributes}->{'{}url'}->{Value};
my $ua = LWP::UserAgent->new();
my $request = HTTP::Request->new(GET=>$uri);
# I don't think Radio does this; it should.
$ua->max_size(MAX_SIZE);
# The Yeastie Girls wrote a great song called "You Suck"
$request->if_modified_since($data->{Attributes}->{'{}modified'}->{Value});
my $outline = $ua->request($request);
# Not modified. Move along, now.
# Needs to carp unless return code is OK
# or NOT_MODIFIED
if (! $outline->is_success()) {
$self->SUPER::start_element($data);
return 1;
}
# Suck it hard, baby
$data->{Attributes}->{'{}modified'}->{Value} = time;
$self->SUPER::start_element($data);
# Pass $outline->content() off to a secondary filter
# and keep munging. Note to self: hooks to prevent
# recursive instant-ness...
}
Oh well.
=pod =head1 SUMMARY use Mail::Audit qw (Weblog) my $mail = Mail::Audit->new(); # use Mail::Audit to figure out # if we're interested in the message # here... $mail->post(); # ? $mail->accept(); return 1; =cut package Mail::Audit::Weblog; use Mail::Audit; return 1; package Mail::Audit; # Maybe Net::Weblog::CommonAPI ? use Net::Weblog; sub post { my $self = shift; $self->tidy(); my $weblog = Net::Weblog->new(...); my $post = $weblog->new_post(); $post->title($self->subject()); $post->author($weblog->from()); $post->body(@{$self->body()}); $post->footnote($self->header()); $post->category("unread"); # Use power of Mail::Audit ($self) # to assign additional categories # here... # ? $post->publish(); # For sheer laziness, we could also # use Mail::XML and a write a SAX::Filter # for handing off to a $weblog->raw (?) # method. So, if we were using $self to # auto-generate categories we would also # do $self->put(category1,$category) before # doing : my $xml = ""; my $writer = XML::SAX::Writer->new(Output=>\$xml); my $filter = Net::Weblog::Filter::MailToBlog->new(Handler=>$writer); my $parser = XML::SAX::ParseFactory->parser(Handler=>$filter); # Not actually sure Mail::Audit can do this $parser->parse_string($self->to_xml()); # raw ??? Anyway, if you were into that sort of # thing you could forget about creating a $weblog # object altogether (not to mention $writer and $xml) # and just pass your blog credentials to the $filter # object and have it post the message when it # encountered the end_document event... $weblog->raw($xml); # Which doesn't look so lazy anymore... # The upshot, of course, is that you could bundle # the above and use the code outside of your mail # filter. return 1; } return 1;see also : hurl
Short for "Don't Mess Yourself". Used when someone overreacts
ex. ""DMY, Rich. It was an accident.""
something that is able to be made into a combo. Used in Pool games.
ex. "That shot looks comboable"