🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.tcl
Article #187

Re: parsowanie stron www

#187
From: Wojciech Kocjan
Date: Wed, 12 Oct 2005 06:43
64 lines
3033 bytes
On Sun, 09 Oct 2005 01:01:53 +0200, Derek Kuliński / takeda  
<d.kulinski@gmail.com> wrote:

> On Fri, 7 Oct 2005 11:09:13 -0700, Derek Kuliński / takeda wrote:
>
>> Ja kiedyś potrzebowałem coś takiego zrobić (w skrypcie do wysyłania  
>> smsów)
>> i pozbyłem się ich poprzez polecenie regsub. Ale nie wiem czy to  
>> najlepsze
>> rozwiązanie w tej sytuacji.
>
> Ok w czeluściach swojego HD znalazłem ten skrypt. Jest b. stary dawno nie
> uaktualniany, więc wątpię czy nawet wysyła sms'y (te polskie brami  
> lubiały
> b. często zmieniać swoje interfejsy).

Ja mam troche inaczej, bez parsowania, taki prosty moduł do SMSów. Do  
botów się kiepsko nadaje, chociaż podobno już można http::geturl z  
-command wywołać, nie jestem w temacie.

Szukam naiwn^H^H^H^H^H^H zainteresowanego przerobieniem bramki ery. Nowy  
Orange (trzeba zdefiniować callback, który dostaje token w postaci  
binarnej) i stary dobry Plus działa. Ery mi się nie chce już dorabiać, a  
chętnie bym na nią wysyłał.

> http://www.takeda.tk/site/download/eggdrop/tkdSMS.tar.gz
> Pewnie rozwiązanie nie jest najlepsze ale wtedy nie było tej grupy więc
> rozwiązanie zrobiłem we własnym zakresie. Ciebie pewnie bedzie  
> interesować
> procedura striphtml.

Akurat ns_striphtml z AOLservera wygląda podobnie:

::nstcl::ad_proc ::nstcl::ns_striphtml {-tags_only:boolean html} {
     summary "Strip HTML tags"

     description {
         <p><i>ns_striphtml</i> removes all HTML tags from a given chunk of
         <i>html</i>.</p>
     }

     optional_switch {
         <dle>
             <dt><option>-tags_only</option></dt>
             <dd>
                 If specified HTML entities are not removed; if not  
specified,
                 they are.
             </dd>
         </dle>
     }
} {
     regsub -all -- {<[^>]+>} $html "" html
     if {!$tags_only_p} {
         regsub -all -- {&[^ \t\n\r;]+;} $html "" html
     }
     return $html
}


Przy okazji macie opis o tags_only_p ;-)

-- 
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Technical Details
Message-ID: <op.syiszawfvty0o5@awk009-01>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
References: <di5s49$1t7$1@nemesis.news.tpi.pl> <1xgxtqw05bu$.dlg@takeda.tk.invalid> <ypinwkkq5fiy$.dlg@takeda.tk.invalid>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Wojciech Kocjan" <hceijcow.backward@najcok.backward.org>
Newsgroups: pl.comp.lang.tcl
Subject: Re: parsowanie stron www
Date: Wed, 12 Oct 2005 08:43:48 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 64
Message-ID: <op.syiszawfvty0o5@awk009-01>
References: <di5s49$1t7$1@nemesis.news.tpi.pl> <1xgxtqw05bu$.dlg@takeda.tk.invalid> <ypinwkkq5fiy$.dlg@takeda.tk.invalid>
NNTP-Posting-Host: dq2.dataquest.pl
Mime-Version: 1.0
X-Trace: atlantis.news.tpi.pl 1129099454 7331 195.116.54.236 (12 Oct 2005 06:44:14 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Wed, 12 Oct 2005 06:44:14 +0000 (UTC)
User-Agent: Opera M2/8.50 (Win32, build 7700)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit