Twitter1.awk

gistfile1.txt

#!/usr/bin/awk -f

BEGIN {
   twuser="user"
   twpass="secret"
   status = "";
   
   if(twuser == "" || twpass == "") {
        print "No twitter username or password defined";
        exit 1;
    }
    
    print "Type your Twitter message:"
    while((getline line < "/dev/stdin") > 0) {
        status = (status " " line);
    }
    
    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;
        }
    }
    exit 0;
}
# vim: ts=4 sw=4 et