Twitter2.awk

gistfile1.txt

#!/usr/bin/awk -f

BEGIN {
   twuser="user"
   twpass="secret"
   status = "";
}

{
    status = status " " $0;
}

END {
    if(twuser == "" || twpass == "") {
        print "No twitter username or password defined";
        exit 1;
    }
    status = substr(status, 1, 140);
    sub(/^ +/, "", status);
    cmd = "curl -s -u " twuser ":" twpass " -d status=\"" status "\" http://twitter.com/statuses/update.xml";
    while((cmd | getline line) > 0) {
        if(line ~ /<error>/) {
            gsub(/<[^>]+>/, "", line);
            sub(/^ +/, "", line);
            print "An error occurred: " line;
            close(cmd);
            break;
        } else if (line ~ /<id>/) {
            gsub(/<[^>]+>/, "", line);
            sub(/^ +/, "", line);
            print "Status updated: http://twitter.com/" twuser "/statuses/" line;
            close(cmd);
            break;
        }
    }
}
# vim: ts=4 sw=4 et