\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write(" \n"); document.write("

\n"); document.write(" \n"); document.write(" \n"); document.write("

\n"); document.write(" \n"); document.write("

1\n");
document.write("2\n");
document.write("3\n");
document.write("4\n");
document.write("5\n");
document.write("6\n");
document.write("7\n");
document.write("8\n");
document.write("9\n");
document.write("10\n");
document.write("11\n");
document.write("12\n");
document.write("13\n");
document.write("14\n");
document.write("15\n");
document.write("16\n");
document.write("17\n");
document.write("18\n");
document.write("19\n");
document.write("20\n");
document.write("21\n");
document.write("22\n");
document.write("23\n");
document.write("24\n");
document.write("25\n");
document.write("26\n");
document.write("27\n");
document.write("28\n");
document.write("29\n");
document.write("30\n");
document.write("31\n");
document.write("32\n");
document.write("33\n");
document.write("34\n");
document.write("35\n");
document.write("36\n");
document.write("37\n");
document.write("38\n");
document.write("39\n");
document.write("40\n");
document.write("41\n");
document.write("42\n");
document.write("43\n");
document.write("44\n");
document.write("45\n");
document.write("<\/pre>\n");
document.write("			<\/td>\n");
document.write("

\n"); document.write("

#!/usr/bin/perl<\/span><\/span>\n");
document.write("use<\/span> Net::Twitter;\n");
document.write("\n");
document.write("if<\/span>($#ARGV<\/span> + 1 != 3) {\n");
document.write("	<\/span><\/span>die<\/span> "Usage: twtproxy myusername mypassword username_to_follow)"<\/span>;\n");
document.write("}\n");
document.write("\n");
document.write("my<\/span> $username<\/span> = @ARGV<\/span>[0];\n");
document.write("my<\/span> $password<\/span> = @ARGV<\/span>[1];\n");
document.write("my<\/span> $follow<\/span> = @ARGV<\/span>[2];\n");
document.write("my<\/span> $home<\/span> = $ENV<\/span>{"HOME"<\/span>};\n");
document.write("my<\/span> $datafilename<\/span> = "$home<\/span>/.twtproxy_$follow<\/span>.txt"<\/span>;\n");
document.write("my<\/span> $statuses<\/span> = ();\n");
document.write("my<\/span> $last<\/span> = 0;\n");
document.write("\n");
document.write("# Open data file<\/span><\/span>\n");
document.write("open<\/span> (FILE, "$datafilename<\/span>"<\/span>);\n");
document.write("my<\/span> $last<\/span> = <FILE>;\n");
document.write("close<\/span> (FILE);\n");
document.write("\n");
document.write("my<\/span> $nt<\/span> = Net::Twitter-><\/span>new(\n");
document.write("	<\/span><\/span>traits <\/span>=> [qw/API::REST/<\/span>],\n");
document.write("	<\/span><\/span>username <\/span>=> $username<\/span>,\n");
document.write("	<\/span><\/span>password <\/span>=> $password<\/span>\n");
document.write(");\n");
document.write("\n");
document.write("if<\/span>($last<\/span> =~ /\\d/<\/span>) {\n");
document.write("	<\/span><\/span># print "Last ID found, checking new updates\\n";<\/span>\n");
document.write("	<\/span><\/span>$statuses<\/span> = $nt<\/span>-><\/span>user_timeline({ id <\/span>=> $follow<\/span>, since_id <\/span>=> $last<\/span> });\n");
document.write("} else<\/span> {\n");
document.write("	<\/span><\/span># print "Last ID *not* found, getting last 20 updates\\n";<\/span>\n");
document.write("	<\/span><\/span>$statuses<\/span> = $nt<\/span>-><\/span>user_timeline({ id <\/span>=> $follow<\/span>, count <\/span>=> 20 });\n");
document.write("}\n");
document.write("\n");
document.write("# print "Total statuses returned: " . @$statuses ."\\n";<\/span><\/span>\n");
document.write("\n");
document.write("for<\/span> my<\/span> $status<\/span> (@$statuses<\/span>) {\n");
document.write("	<\/span><\/span>my<\/span> $post<\/span> = $nt<\/span>-><\/span>update($status<\/span>-><\/span>{text<\/span>});\n");
document.write("	<\/span><\/span># print "$status->{id} $status->{text}\\n";<\/span>\n");
document.write("	<\/span><\/span>if<\/span>($status<\/span>-><\/span>{id<\/span>} > $last<\/span>) { $last<\/span> = $status<\/span>-><\/span>{id<\/span>} };\n");
document.write("}	\n");
document.write("\n");
document.write("open<\/span> (FILE, ">$datafilename<\/span>"<\/span>);\n");
document.write("print<\/span> FILE "$last<\/span>"<\/span>;\n");
document.write("close<\/span> (FILE);\n");
document.write("<\/pre><\/pre>\n");
document.write("		<\/td>\n");
document.write("		<\/tr>\n");
document.write("		<\/table>\n");
document.write("	\n");
document.write("	<\/div>\n");
document.write("\n");
document.write("\n");
document.write("  \n");
document.write("  \n");
document.write("  \n");
document.write("    \n");
document.write("      \n");
document.write("      <\/a>\n");
document.write("    <\/div>\n");
document.write("  \n");
document.write("    Pastie #514930<\/a> linked directly from Pastie<\/a>.\n");
document.write("  <\/div><\/div>");