/* Trapeze RSS parser in 7 lines */
function parseRSS(d) {
    return $(d).find('item').map(function() {
        var i = new Object();
        $(this).children().each(function(){i[this.tagName]= this.textContent;});
        return i;
    });
}

// Here's an example
$.get(your-rss-feed, function(d){
    parseRSS(d).each(function() {
      $('<a></a>').text(this.title).attr('href', this.link).appendTo('body');
      $('<br/>').appendTo('body');
    });
});

; Released under the GNU GPL 3.0 or later
(define (resize-match-dpi image drawable newwidth newheight)
  (let* (
	 (oldwidth (car (gimp-image-width image)))
	 (oldheight (car (gimp-image-height image)))
	 (newdpi 0)
        )
    (if (= newheight 0)
        (set! newheight (round (* (/ oldheight oldwidth) newwidth)))
	()
    )
    (if (= newwidth 0)
	(set! newwidth (round (* (/ oldwidth oldheight) newheight)))
	()
    )
    (set! newdpi (/ (* newwidth (car (gimp-image-get-resolution image))) oldwidth))
    (gimp-image-undo-group-start image)
    (gimp-image-scale image newwidth newheight)
    (gimp-image-set-resolution image newdpi newdpi)
    (gimp-image-undo-group-end image)
))
 
(define (resize_match_dpi filename output newwidth newheight)
  (let* ((image    (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
         (drawable (car (gimp-image-get-active-layer image)))
        )
    (resize-match-dpi image drawable newwidth newheight)
    (gimp-file-save RUN-NONINTERACTIVE image drawable output output)
    (gimp-image-delete image)
))
 
(define (resize_match_dpi_multi pattern outdir newwidth newheight)
  (let* ((filelist (cadr (file-glob pattern 1))))
    (while (not (null? filelist))
	   (let* ((filename (car filelist))
		  (image    (car (gimp-file-load RUN-NONINTERACTIVE
						 filename filename)))
		  (drawable (car (gimp-image-get-active-layer image)))
		  (outf (string-append outdir "/" filename)))
	     (resize-match-dpi image drawable newwidth newheight)
	     (gimp-file-save RUN-NONINTERACTIVE image drawable outf outf)
	     (gimp-image-delete image))
	   (set! filelist (cdr filelist)))))
 
(script-fu-register "resize-match-dpi"
  "<Image>/Script-Fu/Resize Match DPI"
  "Resize and match DPI"
  "odie5533"
  "odie5533"
  "2010-05-16"
  "RGB*"
  SF-IMAGE "Image"  0
  SF-DRAWABLE "Drawable" 0
 
  SF-VALUE  "New width" "1280"
  SF-VALUE  "New height" "0"
)

$ awk -f tinypic.awk The_Grass_Snake_-_Natrix_natrix.jpg
http://i39.tinypic.com/dlnb6r.jpg

BEGIN {
    file = ARGV[1];
    # parse file extension
    split(file, arr, ".");
    file_ext = arr[length(arr)];
 
    url = "http://plugin.tinypic.com/plugin/index.php?popts=c,url\\|s,false";
    while (("curl -s " url | getline $0) > 0)
    {
        # parse necessary post variables from the HTML page
        if (match($0, "form action=\"http://s(.)", arr))
            server = arr[1];
        if(match($0, /id="uid" value="([^"]+)/, arr))
            uid = arr[1];
        if(!uid && match($0, /name="UPLOAD_IDENTIFIER" value="([^"]+)/, arr))
            uid = arr[1];
        if (match($0, /name="upk" value="([^"]+)/, arr))
            upk = arr[1];
    }
 
    # compile curl command to upload the file
    curl_cmd = sprintf("curl -s -L -F UPLOAD_IDENTIFIER=\"%s\" -F upk=\"%s\" -F domain_lang=\"en\" -F action=\"upload\" -F MAX_FILE_SIZE=\"500000000\" -F shareopt=\"true\" -F the_file=\"@%s\" -F file_type=\"image\" -F dimension=\"1600\" \"http://s%s.tinypic.com/plugin/upload.php\" -H \"Expect:\" -e \"http://plugin.tinypic.com/plugin/index.php\"", uid, upk, file, server);
 
    # upload the picture and parse the picture URL
    while ((curl_cmd | getline $0) > 0) {
        if (match($0, /name="pic" value="([^"]+)/, arr))
            img = arr[1];
        if (match($0, /name="ival" value="([^"]+)/, arr))
            ival = arr[1];
    }
    if (img && ival) {
        printf("http://i%s.tinypic.com/%s%s", ival, img, "." file_ext);
    } else {
        print "Unable to parse the return page.";
    }
}

from twisted.web import client
from twisted.internet import reactor
 
agent = "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.0.12) Gecko/2009070611 Firefox/3.0.12 (.NET CLR 3.5.30729)"
headers = {'Accept':'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8', 'Accept-Language':'en-us,en;q=0.5', 'Accept-Charset':'ISO-8859-1,utf-8;q=0.7'}
headers_post = headers.copy()
headers_post['Content-Type'] = 'application/x-www-form-urlencoded'
 
def success(data):
    print "Success!"
    f = open('save.html','w')
    f.write(data)
    f.close()
    reactor.stop()
 
def failure(fail):
    print fail.getErrorMessage()
    reactor.stop()
 
def request():
    url = "http://google.com/"
    d = client.getPage(url, headers=headers, agent=agent)
    #post_data = ""
    #d = client.getPage(url, postdata=post_data, method="POST", headers=headers_post, agent=agent)
    d.addCallback(success).addErrback(failure)
 
request()
reactor.run()

def success(data):
    print "Success!"
    f = open('save.html','w')
    f.write(data)
    f.close()
    reactor.callLater(0.5, request)

use strict;
use Irssi;
use POSIX;
 
sub async_curl ($$$) {
        my ($geturl, $callback, $argref) = @_;
        my ($reader, $writer);
        pipe($reader, $writer);
        my $pid = fork();
        if ($pid > 0) {
                close($writer);
                Irssi::pidwait_add($pid);
                my $pipetag;
                my @pargs = ($reader, \$pipetag, $callback, $argref);
                $pipetag = Irssi::input_add(fileno($reader), INPUT_READ, \&pipe_input, \@pargs);
        } else {
          my $content;
          eval {
                my $data = `curl -s "$geturl"`;
                print($writer $data);
                close($writer);
          };
          POSIX::_exit(1);
        }
}
 
sub pipe_input ($$$$) {
        my ($reader, $pipetag, $callback, $argref) = @{$_[0]};
        my @lines = <$reader>;
        close($reader);
        Irssi::input_remove($$pipetag);
        my $text = join("", @lines);
        $callback->($text, $argref);
}

sub callback_method {
        my ($content, $argref) = @_;
        my ($arg1, $arg2) = @{$argref};
        # Here we have the $content from the url
        # and the two args we wanted back
}
 
# Gather up any arguments we want to piggy-back onto the callback
my @args = ('test1', 'test2');
# Call async_curl with a reference to our callback method
# and a reference to our piggy-back args
async_curl("http://www.google.com/", \&callback_method, \@args);

from twisted.protocols.basic import FileSender
from twisted.protocols.ftp import FTPClient
from twisted.internet.protocol import ClientCreator
from twisted.internet import reactor
 
def fileTransferFail(failure):
    failure.printTraceback()
    reactor.stop()
 
def cbStore(consumer, filename):
    fs = FileSender()
    d = fs.beginFileTransfer(open(filename, 'r'), consumer)
    d.addCallback(lambda _: consumer.finish()).addErrback(fileTransferFail)
    return d
 
def connectionMade(ftpClient, filename, uploadpath = None):
    if uploadpath is None:
        uploadpath = filename
    d1, d2 = ftpClient.storeFile(uploadpath)
    d1.addCallback(cbStore, filename).addErrback(fileTransferFail)
    d2.addCallback(lambda _: reactor.stop())
    return d2
 
def sendFile(host, port, username, password, filename, uploadpath):
    creator = ClientCreator(reactor, FTPClient, username, password)
    d = creator.connectTCP(host, port)
    d.addCallback(connectionMade, filename, uploadpath).addErrback(fileTransferFail)
    return d
 
if __name__ == '__main__':
    username = 'GoogleUser'
    password = 'GoogleSuperSecretPassword'
    host = 'google.com'
    port = 21
    filename = 'index.html'
    uploadto = '/public_html/index.html'
    sendFile(host, port, username, password, filename, uploadto)
    reactor.run()