Paste: url-host (little fix)

Author: randy7
Mode: factor
Date: Fri, 6 Feb 2009 19:00:00
Plain Text | 
USING: accessors kernel math.parser sequences urls ;
IN: http.client.private

: url-host ( url -- string )
    [ host>> ] [ port>> ] bi 
    dup f = [ drop 80 ] when  ! 80 as default f
    dup "http" protocol-port =
    [ drop ] [ ":" swap number>string 3append ] if ;

! it would be fixed better in the word >url
! to create a port number, based on the protocol.
! http/ftp/https

Annotation: trying in >url

Author: randy7
Mode: factor
Date: Fri, 6 Feb 2009 19:46:57
Plain Text | 
M: string >url
    parse-url {
        [
            first [
                [ first ] [
                    second
                    [ first ~quotation~ ~quotation~ if* ]
                    [ second parse-host ] bi
                ] bi
            ] [ f f f f f ] if*
        ]
        [ second ]
        [ third ]
        [ fourth ]
    } cleave url boa dup host>> [ [ "/" or ] change-path ] when
ensure-port
    ;

Annotation: oops

Author: randy7
Mode: factor
Date: Fri, 6 Feb 2009 19:50:30
Plain Text | 
M: string >url
    parse-url {
        [
            first [
                [ first ] [
                    second
                    [ first [ first2 ] [ f f ] if* ]
                    [ second parse-host ] bi
                ] bi
            ] [ f f f f f ] if*
        ]
        [ second ]
        [ third ]
        [ fourth ]
    } cleave url boa dup host>> [ [ "/" or ] change-path ] when
ensure-port
    ;

Annotation: sGmMvJTUfYi

Author: flights from crete to athens
Mode: factor
Date: Wed, 1 Jul 2009 22:12:03
Plain Text | 
Best Wishes, <a href= http://huapuzoz.007webs.com >flights from crete to athens information</a>, [url= http://huapuzoz.007webs.com ]flights from crete to athens information[/url],  %-DDD, <a href= http://dinizidul.007webs.com >a world with out petroleum discount</a>, [url= http://dinizidul.007webs.com ]a world with out petroleum discount[/url],  8), <a href= http://sumasats.007webs.com >bike handlebars turn opposite fete now</a>, [url= http://sumasats.007webs.com ]bike handlebars turn opposite fete now[/url],  8[[, <a href= http://molawzc.007webs.com >Best all natural meds for anxiety</a>, [url= http://molawzc.007webs.com ]Best all natural meds for anxiety[/url],  %OO, <a href= http://kuhisamip.007webs.com >Real logic model for planning grant</a>, [url= http://kuhisamip.007webs.com ]Real logic model for planning grant[/url],  312787, <a href= http://diraguvit.007webs.com >hybrid map of reading pa online</a>, [url= http://diraguvit.007webs.com ]hybrid map of reading pa online[/url],  134955, <a href= http://waozunuj.007webs.com >Buy czar nicholas and st petersburg</a>, [url= http://waozunuj.007webs.com ]Buy czar nicholas and st petersburg[/url],  %-OO, <a href= http://gobujohc.007webs.com >Real new york city sales tax</a

Annotation: sGmMvJTUfYi

Author: flights from crete to athens
Mode: factor
Date: Wed, 1 Jul 2009 22:13:10
Plain Text | 
Best Wishes, <a href= http://huapuzoz.007webs.com >flights from crete to athens information</a>, [url= http://huapuzoz.007webs.com ]flights from crete to athens information[/url],  %-DDD, <a href= http://dinizidul.007webs.com >a world with out petroleum discount</a>, [url= http://dinizidul.007webs.com ]a world with out petroleum discount[/url],  8), <a href= http://sumasats.007webs.com >bike handlebars turn opposite fete now</a>, [url= http://sumasats.007webs.com ]bike handlebars turn opposite fete now[/url],  8[[, <a href= http://molawzc.007webs.com >Best all natural meds for anxiety</a>, [url= http://molawzc.007webs.com ]Best all natural meds for anxiety[/url],  %OO, <a href= http://kuhisamip.007webs.com >Real logic model for planning grant</a>, [url= http://kuhisamip.007webs.com ]Real logic model for planning grant[/url],  312787, <a href= http://diraguvit.007webs.com >hybrid map of reading pa online</a>, [url= http://diraguvit.007webs.com ]hybrid map of reading pa online[/url],  134955, <a href= http://waozunuj.007webs.com >Buy czar nicholas and st petersburg</a>, [url= http://waozunuj.007webs.com ]Buy czar nicholas and st petersburg[/url],  %-OO, <a href= http://gobujohc.007webs.com >Real new york city sales tax</a

Annotation: fHPDOTChACUB

Author: queens of the stone age online
Mode: factor
Date: Mon, 6 Jul 2009 19:11:02
Plain Text | 
Great site. Keep doing., <a href= http://hovucufot.007webs.com#1 >advertising agencies in new york</a> [url=http://hovucufot.007webs.com#1]advertising agencies in new york[/url],  683, <a href= http://pboholih.007webs.com#1 >Buy boxboro ma middle school blanchard</a> [url=http://pboholih.007webs.com#1]Buy boxboro ma middle school blanchard[/url],  8-]]], <a href= http://ralafsav.007webs.com#1 >make phone calls from pc</a> [url=http://ralafsav.007webs.com#1]make phone calls from pc[/url],  lph, <a href= http://buzanihov.007webs.com#1 >undergraduate online teaching degree schools free</a> [url=http://buzanihov.007webs.com#1]undergraduate online teaching degree schools free[/url],  88030, <a href= http://hodalinat.007webs.com#1 >Cheapest queens of the stone age</a> [url=http://hodalinat.007webs.com#1]Cheapest queens of the stone age[/url],  zxadw, <a href= http://zabuwagih.007webs.com#1 >travis county texas forclosure list</a> [url=http://zabuwagih.007webs.com#1]travis county texas forclosure list[/url],  rzvcdq, <a href= http://suxodiff.007webs.com#1 >Only whiskey bar reviews las vegas</a> [url=http://suxodiff.007webs.com#1]Only whiskey bar reviews las vegas[/url],  vibznk, <a href= http://sdugigar.007webs.com#1

Annotation: fHPDOTChACUB

Author: queens of the stone age online
Mode: factor
Date: Mon, 6 Jul 2009 19:11:37
Plain Text | 
Great site. Keep doing., <a href= http://hovucufot.007webs.com#1 >advertising agencies in new york</a> [url=http://hovucufot.007webs.com#1]advertising agencies in new york[/url],  683, <a href= http://pboholih.007webs.com#1 >Buy boxboro ma middle school blanchard</a> [url=http://pboholih.007webs.com#1]Buy boxboro ma middle school blanchard[/url],  8-]]], <a href= http://ralafsav.007webs.com#1 >make phone calls from pc</a> [url=http://ralafsav.007webs.com#1]make phone calls from pc[/url],  lph, <a href= http://buzanihov.007webs.com#1 >undergraduate online teaching degree schools free</a> [url=http://buzanihov.007webs.com#1]undergraduate online teaching degree schools free[/url],  88030, <a href= http://hodalinat.007webs.com#1 >Cheapest queens of the stone age</a> [url=http://hodalinat.007webs.com#1]Cheapest queens of the stone age[/url],  zxadw, <a href= http://zabuwagih.007webs.com#1 >travis county texas forclosure list</a> [url=http://zabuwagih.007webs.com#1]travis county texas forclosure list[/url],  rzvcdq, <a href= http://suxodiff.007webs.com#1 >Only whiskey bar reviews las vegas</a> [url=http://suxodiff.007webs.com#1]Only whiskey bar reviews las vegas[/url],  vibznk, <a href= http://sdugigar.007webs.com#1

Annotation: UAQsgmkXKEfhh

Author: vanessa hudgens sex tape
Mode: factor
Date: Sat, 18 Jul 2009 06:42:14
Plain Text | 
Your Site Is Great!, <a href= http://board.talibkweli.com/index.php?showuser=3806 >Jenni rivera sex tape free</a>, [url= http://board.talibkweli.com/index.php?showuser=3806 ]Jenni rivera sex tape free[/url],  646, <a href= http://board.talibkweli.com/index.php?showuser=3809 >Watch r kelly sex tape</a>, [url= http://board.talibkweli.com/index.php?showuser=3809 ]Watch r kelly sex tape[/url],  335487, <a href= http://board.talibkweli.com/index.php?showuser=3805 >Watch katie price sex tape</a>, [url= http://board.talibkweli.com/index.php?showuser=3805 ]Watch katie price sex tape[/url],  bhr, <a href= http://board.talibkweli.com/index.php?showuser=3808 >kristin davis sex tape</a>, [url= http://board.talibkweli.com/index.php?showuser=3808 ]kristin davi

New Annotation

Summary:
Author:
Mode:
Body: