Group: news.software.readers
From: Troy Piggins
Date: Thursday, September 06, 2007 2:24 AM
Subject: Re: Update: [slrn] NNTP-Posting-Host whois lookup macro

* John E. Davis is quoted & my replies are inline below :
> On 6 Sep 2007 06:02:50 GMT, Blinky the Shark < @ > wrote:
>> /stuff/comp/
>
> What version of slang are you using? If you are using version 1,
> you will need to replace lines such as
>
> throw InvalidParmError, "foo";
>
> with
>
> error ("foo");
>
> try/catch/throw/finally semantics were not added until version 2.

#v+
% You need 'whois' and 'less' for this macro to work. Future version will
% hopefully check they exist already or possibly provide alternatives.

define whois_postinghost () {

variable status= is_article_visible ();

if ( status & 1) {
variable postinghost= extract_article_header ( "NNTP-Posting-Host");

variable ph_exists= strlen ( postinghost);

if ( ph_exists > 0) {
() = system ( "whois "+postinghost+" | less");
} else {
error ("This article doesn't contain a NNTP-Posting-Host header");
}

} else {
error ("You need to display the article to check");
}

}

definekey ( "whois_postinghost", "\eH", "article");
#v-

--
Troy Piggins | /~troy
** NEW MACRO 5/9/07 ** ___ | __ __ ,-O (o- O
slrn macros and howto: |___ | |/ |/ | O ) //\ O
/~troy/slrn ___| | | | | `-O V_/_ OOO