From 7e603c5ba9900a44e778044ac63eb5aabe217155 Mon Sep 17 00:00:00 2001 From: Duke Leto Date: Fri, 27 Feb 2009 02:04:54 -0800 Subject: [PATCH] Add twitstat and some config updates --- bin/twitstat | 18 ++++++++++++++++++ config/.bashrc | 3 ++- config/.vimrc | 8 +++++++- config/etc/hosts | 15 +++++++++------ 4 files changed, 36 insertions(+), 8 deletions(-) create mode 100755 bin/twitstat diff --git a/bin/twitstat b/bin/twitstat new file mode 100755 index 0000000..435b3ea --- /dev/null +++ b/bin/twitstat @@ -0,0 +1,18 @@ +#!/usr/bin/perl -w +use Net::Twitter; +use strict; +$|++; + +my ($username,$password) = @ARGV; +my $user = Net::Twitter->new({username => $username, password => $password }); +my ($friends,$followers) = ($user->friends(), $user->followers()); +my ($num_friends, $num_followers) = ($#$friends, $#$followers); +my ($friends_followers,$followers2) = (0,0); + +map { $friends_followers += $_->{followers_count} } (@$friends); +map { $followers2 += $_->{followers_count} } (@$followers); + +print "You have $num_friends friends and $num_followers followers\n"; +printf "Friend/Follow Ratio: %.2f\n", $num_friends/$num_followers; +printf "Avg Friend Follow Count: %.1f\n", $friends_followers / $num_friends; +printf "Avg Follower Follow Count: %.1f\n", $followers2 / $num_followers; diff --git a/config/.bashrc b/config/.bashrc index 85aa0de..7893f50 100755 --- a/config/.bashrc +++ b/config/.bashrc @@ -7,7 +7,8 @@ export LD_LIBRARY_PATH="/opt/local/lib" [ -z "$PS1" ] && return # This is ... madness. -export PERL5LIB="/opt/local/lib/perl5/site_perl/5.10.0:/Library/Perl/5.8.8" +export PERL5LIB="/opt/local/lib/perl5/site_perl/5.10.0:/opt/local/lib/perl5/site_perl/5.8.8:/Library/Perl/5.8.8" +export JSLIB=~/js export TERMINFO=/usr/share/terminfo export HISTCONTROL=ignoredups export HISTCONTROL=ignoreboth diff --git a/config/.vimrc b/config/.vimrc index 660c585..80eef57 100644 --- a/config/.vimrc +++ b/config/.vimrc @@ -107,6 +107,7 @@ nmap :X :x nmap :xx :x! nmap :Q :q nmap :qq :q! +map :syn :syntax on nmap :make @@ -136,14 +137,19 @@ map! ,kt :perldo s/^(\t+)/' ' x length $1/ei map ,wt :perldo s/\s+$// map! ,wt :perldo s/\s+$//i + map ,sd :w!:! svn diff % \| colordiff \| less -R map! ,sd :w!:! svn diff % \| colordiff \| less -R map ,st :w!:! ispell -t % map! ,st :w!:! ispell -t % + map ,sp :w!:! ispell % map! ,sp :w!:! ispell % +map ,sb :w!:! svn blame % +map! ,sb :w!:! svn blame % + map ,r :!chmod +x % && ./% map ,R :!chmod +x % && ./% @@ -172,7 +178,7 @@ iab Ydate =strftime("%a %b %d %T %Z %Y") iab udd {use Data::Dumper; print Dumper [ ];}ei set background=dark -syntax on +syntax off let FILE="/home/leto/.vimrc.wordlist" if filereadable(FILE) diff --git a/config/etc/hosts b/config/etc/hosts index ed9cb71..004113f 100644 --- a/config/etc/hosts +++ b/config/etc/hosts @@ -10,6 +10,9 @@ fe80::1%lo0 localhost 69.55.236.53 leto.net +# fuck facebook +127.0.0.1 creative.ak.facebook.com + # begin fascism 127.0.0.1 ads234.com @@ -3466,7 +3469,7 @@ fe80::1%lo0 localhost 127.0.0.1 adserver9.contextad.com 127.0.0.1 adserverb.conjelco.com 127.0.0.1 adserversolutions.com -127.0.0.1 adservices.google.com +#127.0.0.1 adservices.google.com 127.0.0.1 adserving.cpxinteractive.com 127.0.0.1 adservingcentral.com 127.0.0.1 adsfac.net @@ -3977,7 +3980,7 @@ fe80::1%lo0 localhost 127.0.0.1 geoads.osdn.com 127.0.0.1 globalwebads.com 127.0.0.1 gm.preferences.com -127.0.0.1 googleadservices.com +#127.0.0.1 googleadservices.com 127.0.0.1 got2goshop.com 127.0.0.1 goto.trafficmultiplier.com 127.0.0.1 gozing.directtrack.com @@ -4309,10 +4312,10 @@ fe80::1%lo0 localhost 127.0.0.1 oz.valueclick.com 127.0.0.1 oz.valueclick.ne.jp 127.0.0.1 ozonemedia.adbureau.net -127.0.0.1 pagead.googlesyndication.com -127.0.0.1 pagead1.googlesyndication.com -127.0.0.1 pagead2.googlesyndication.com -127.0.0.1 pagead3.googlesyndication.com +#127.0.0.1 pagead.googlesyndication.com +#127.0.0.1 pagead1.googlesyndication.com +#127.0.0.1 pagead2.googlesyndication.com +#127.0.0.1 pagead3.googlesyndication.com 127.0.0.1 pages.etology.com 127.0.0.1 partner.ah-ha.com 127.0.0.1 partner01.oingo.com