egghelp/eggheads community

Quick Eggdrop interface to tinyurl...

2004-02-04T20:52:30-04:00

This is true--it's been around a while, but if it goes away then obviously this script will be useless And yes, most people use an IRC client with URL recognition, but I have several friends who are on my channel and use either BitchX or EPIC (or something along those lines) and get mighty upset when someone posts a really long link I don't think PuTTY itself does URL recognition unfortunately, although maybe there are variations on xterm/rxvt that do...

I'll submit it to that site--actually made a few changes to the code to handle timeouts a bit more gracefully if the tinyurl site is inaccessible.

Statistics: Posted by Guest — Wed Feb 04, 2004 8:52 pm

Quick Eggdrop interface to tinyurl...

2004-02-04T14:06:56-04:00

the problem is : how long does such a tinyurl link last ? at least a few months i hope....

Statistics: Posted by GodOfSuicide — Wed Feb 04, 2004 2:06 pm

Quick Eggdrop interface to tinyurl...

2004-02-04T13:54:52-04:00

Thanks a lot, variant. But, you can submit the script to slennox at egghelp dot org, for it to be listed in the famous egghelp tcl archive.

And btw, no offence, but I think almost all of the most famous IRC clients people use, each one of them has URL recognition? Correct me if I'm wrong.

Statistics: Posted by Yourname — Wed Feb 04, 2004 1:54 pm

Quick Eggdrop interface to tinyurl...

2004-02-03T12:54:13-04:00

For those of you not familiar with TinyURL, it's a great way to generate a nice, clean, short URL from a long gangly one. Much more friendly for copying from IRC if you're not using an IRC client with URL recognition.

I took a stab at a TCL script for Eggdrop that takes a URL parameter, queries the TinyURL server, then spits back out the converted URL.

Code:

#### tinyurl.tcl## An Eggdrop interface to http://tinyurl.com/#### Ray Van Dolson (rayvd@bludgeon.org)## v1.0##package require httpbind pub - !tinyurl tinyurlproc tinyurl {nick host handle chan args} {  if {[lindex $args 0] != ""} {    set user_url [lindex $args 0]    set url "http://tinyurl.com/create.php"    set postdata [http::formatQuery url $user_url submit submit]    set data [http::geturl $url -query $postdata]    set data2 [http::data $data]    http::cleanup $data    foreach line [split $data2 \n] {      if {[regexp -nocase {(http://tinyurl.com/.*)<\/blockquote>} $line all_matches myurl]} {        putserv "PRIVMSG $chan :$myurl"      }    }  }}

I only program in TCL maybe once a year, so don't be too hard on me. Feel free to use, improve, whatever...

Statistics: Posted by Guest — Tue Feb 03, 2004 12:54 pm