<?xml version="1.0" encoding="UTF-8"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en-gb">
	<link rel="self" type="application/atom+xml" href="https://forum.eggheads.org/app.php/feed/topic/17535" />

	<title>egghelp/eggheads community</title>
	<subtitle>Discussion of eggdrop bots, shell accounts and tcl scripts.</subtitle>
	<link href="https://forum.eggheads.org/index.php" />
	<updated>2010-01-22T00:29:38-04:00</updated>

	<author><name><![CDATA[egghelp/eggheads community]]></name></author>
	<id>https://forum.eggheads.org/app.php/feed/topic/17535</id>

		<entry>
		<author><name><![CDATA[Taek]]></name></author>
		<updated>2010-01-22T00:29:38-04:00</updated>

		<published>2010-01-22T00:29:38-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=91779#p91779</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=91779#p91779"/>
		<title type="html"><![CDATA[URL Shortening Service]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=91779#p91779"><![CDATA[
Hi folks, i am completely new to TCL. I am trying to create a URL Shortening script for my eggdrop bot, but i don't understand how i can get the information from a website that returns just plain text.<br><br>Example: <a href="http://url.srv/api.php?url=http://www.example.com/some-path/to-dir/file.html" class="postlink">http://url.srv/api.php?url=http://www.e ... /file.html</a><br><br>the return is just a simple url with no html formatting<br><br><a href="http://url.srv/ABC123" class="postlink">http://url.srv/ABC123</a><br><br>how can get this this shortened url into a chat?<br><br>=================<br>I was thinking of maybe using the following but looking at the person's website and the way it returns the value doesn't add up to me.<br><br>Excerpt from another post by SL0RD<div class="codebox"><p>Code: </p><pre><code>bind pub - !miut miut:trimproc miut:trim { nick host hand chan text } {        set url $text        if {[catch {exec /usr/bin/curl -d url=$url http://miut.me/create.php?} result]} {                puthelp "PRIVMSG $chan :Error!"        } else {                puthelp "PRIVMSG $chan :It worked!"        } </code></pre></div><br>Thanks in advance.<p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=11072">Taek</a> — Fri Jan 22, 2010 12:29 am</p><hr />
]]></content>
	</entry>
	</feed>
