URL fetcher

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	9.5
Scores Submitted	2
Date Added	Feb 19, 2008
Last Updated	Feb 23, 2008
Tags	fetcher url

Introduction

Website title fetcher by Lindrian
Simply paste into remotes and when someone says a URL it will trigger.
(You can't trigger it yourself, since there's no INPUT event.)

Enjoy! :)

Update: made it only trigger once on each website, so if you post the same website 10 times it'll only show info about it once.

Grab the Code

on *:TEXT:*:#: rtc $chan $1-
on *:ACTION:*:#: rtc $chan $1-
on *:sockopen:website.*: {
  if (!$sockerr) {
    tokenize 32 $($+(%,$sockname),2)
    sockwrite -n $sockname GET $2 HTTP/1.1
    sockwrite -n $sockname Host: $1
    sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
    sockwrite -n $sockname Accept: */*
    sockwrite -n $sockname Connection: Close
    sockwrite -n $sockname $crlf
  }
  else unset $+(%,$sockname)
}
on *:sockread:website.*: {
  var %x, %z = $sockname, %e = $($+(%,%z),2)
  sockread -f %x
  if ($regex(%x,/<title[\w\s="]*>(.*?)<\/title>/i)) {
    tokenize 32 %e
    var %s = $btc(Url:) $+(http://,$+($1,$iif($2 != /,$2))) - $btc(Title:) $ptc($regml(1)) $iif($4,$4)
    msg $3 $iif(c isincs $chan($3).mode,$strip(%s),%s)
    unset $+(%,$(%z,2))
    .sockclose %z
  }
  if (*HTTP*302* iswm %x) set -e %web.tmp 1
  if (Location: isin %x) {
    if ($mtc(%x)) {
      tokenize 32 %e
      sockclose %z
      soc $regml(web,1) $iif($regml(web,2),$v1,/) $iif($3,$3,1) %z $iif(%web.tmp,Redirected)
      unset %web.tmp
    }
  }
}
on *:sockclose:website.*: unset $+(%,$sockname)
alias -l soc {
  var %x = $iif($4,$4,$+(website.,$r(a,z),$r(a,z),$r(a,z),$r(0,9),$r(0,9),$r(0,9)))
  set -e $+(%,%x) $1-2 $iif($3 ischan && $me ison $3,$3) $iif($5,$ntc($5))
  sockopen %x $1 80
}
alias -l mtc return $regex(web,$1,/(?:https?:\/\/)?((?:www\.)?[\w-.]+\.(?>[a-z]{2,4})(?![a-z]))([\w-_#?=%.\/&?]+)?/ig)
alias -l ptc return $replacecs($1,&mdash;,-,&quot;,",&amp;,&,&lt;,<,&gt;,>,�,$chr(233),�,$chr(231),&ccedil;,$chr(231),&ntilde;,$chr(241),�,$chr(209),�,$chr(220),�,$chr(244))
alias -l btc return $+($chr(2),$1,$chr(2))
alias -l ntc return $+($chr(40),$1,$chr(41))
alias rtc {
  if ($mtc($2-)) && (!%website.flood [ $+ [ $regml(web,1) ] ]) {
    var %x = 1, %v 
    while ($regml(web,%x)) {
      var %z = $iif(/ isin $regml(web,$calc(%x +1)),$v2,/), %i = $regml(web,%x)
      if (/ !isin %i) && (!$istok(%v,%i,32)) {
        soc %i %z $1
        %v = %v %i
      }
      inc %x 1
    }
    set -eu5 %website.flood $+ $regml(web,1) 1
  }
}

Comments

(14) RSS

Go to Bottom

jonesy44

Comments: 907

mIRC Snippet: URL fetcher
Posted on Feb 19, 2008 12:20 pm

Damn, that\'s a lotta script for a snippet i\'d\'ve thought would\'ve been a lot easier :s
I only found it returned the web title, or am i missing something here?

Nice script overall, sockets aren\'t my *strong* point, but i can see the basics =D

~TH

Lindrian

Comments: 729

mIRC Snippet: URL fetcher
Posted on Feb 19, 2008 12:22 pm

Thats what its supposed to do, return the title of websites.

jonesy44

Comments: 907

mIRC Snippet: URL fetcher
Posted on Feb 19, 2008 12:27 pm

It\'s nice, i like it =D
good for a bot, good job Lindrian

~TH

Lindrian

Comments: 729

mIRC Snippet: URL fetcher
Posted on Feb 19, 2008 12:34 pm

Thanks :)

jonesy44

Comments: 907

mIRC Snippet: URL fetcher
Posted on Feb 19, 2008 12:44 pm

I honestly admire those who know sockets well, they sure as hell are not easy to code, i\'ve just finished a SHOUTcast socket for a radio station, but needed some help ;__; hehe

~TH

Lindrian

Comments: 729

mIRC Snippet: URL fetcher
Posted on Feb 19, 2008 1:38 pm

Updated a little.

Ken

Comments: 8

mIRC Snippet: URL fetcher
Posted on Feb 21, 2008 3:35 pm

This is excellent! I found this to be very useful, and the coding is impressive.

I think you should make it optional between echo and a message. :(

mountaindew

Comments: 1,539

mIRC Snippet: URL fetcher
Posted on Feb 21, 2008 4:01 pm

well, if it\'s an on text, and the bot echoed it, you wouldn\'t be able to see it

Ken

Comments: 8

mIRC Snippet: URL fetcher
Posted on Feb 21, 2008 4:12 pm

I see your point, however, it would be nice to make this for personal use. Also, if this was created for a bot, I think that the author should state that in the introduction. :)

Lindrian

Comments: 729

mIRC Snippet: URL fetcher
Posted on Feb 23, 2008 6:58 am

No score yet :X?

Scakk

Comments: 219

mIRC Snippet: URL fetcher
Posted on Feb 23, 2008 10:46 am

I do like this. Could you possible make it where you need to trigger it instead of it happening whenever someone post a website. If people do not want the title of the website it could be annoying. However if people wish to know the title they could do so by triggering it.

*9/10 from me :)

Lindrian

Comments: 729

mIRC Snippet: URL fetcher
Posted on Feb 23, 2008 11:08 am

You can simply change the on text event to this:

Code:

on *:TEXT:!url *:#: rtc $chan $2

Also updated the code slightly.

Scakk

Comments: 219

mIRC Snippet: URL fetcher
Posted on Feb 23, 2008 11:13 am

Thanks. I knew I could change the on text part but was unsure if it would mess upi the rest of the script or not so I figured it best to ask the creator.

Keep up the good work.

Lindrian

Comments: 729

mIRC Snippet: URL fetcher
Posted on Feb 23, 2008 11:46 am

Thanks :)

URL fetcher

Introduction

Grab the Code

Comments

Lindrian

My Snippet Tags

Contact

Friends (13)

Sponsors

		Sweden
Last seen: Aug 31, 2008 Profile \| Website Likes (3) Friends (13) Scripts (1) Snippets (34) Images (22) Comments Received (511) Comments Submitted (729) Forum Posts (1190)