Twitter2Mp3 - Revision history

Rabbi Bob: /* Text */

2009-03-24T11:30:01Z

Text

← Older revision		Revision as of 11:30, 24 March 2009
Line 17:		Line 17:

	=Text =		=Text =
			* implemented 'bookmark' - records id from update to file
			** read in bookmark and start from that marker (200 max)
	* replaced http urls with 'weblink'		* replaced http urls with 'weblink'
	* reduced multiple .. to .		* reduced multiple .. to .

Rabbi Bob: /* Text */

2009-03-24T11:27:40Z

Text

← Older revision		Revision as of 11:27, 24 March 2009
Line 22:		Line 22:
	* reversed tweet order (now reads oldest -> newest)		* reversed tweet order (now reads oldest -> newest)
	* reports # of tweets since last update (200 max)		* reports # of tweets since last update (200 max)
			* added extra line break - helps text2wav 'breath' between tweets

	<pre>		<pre>

Rabbi Bob: /* Audio Result */

2009-03-24T11:27:05Z

Audio Result

← Older revision		Revision as of 11:27, 24 March 2009
Line 13:		Line 13:

	=Audio Result=		=Audio Result=
	* John Cleese appears to be off on a tangent in this one.
	* Also, I think I need to reverse the array so the posts come in chronological order vs newest to last.

	<flashmp3>http://www.rabbibob.com/cstrike/~~20090322_twitter~~.mp3\|autostart=no\|loop=no\|firstTrackName=~~Sleeper39_1997~~</flashmp3>		<flashmp3>http://www.rabbibob.com/cstrike/20090324_twitter.mp3\|autostart=no\|loop=no\|firstTrackName=Twitter2Mp3 Example</flashmp3>

	=Text =		=Text =

Rabbi Bob: /* Text */

2009-03-24T11:23:10Z

Text

Show changes

Rabbi Bob: /* Fetch Code */

2009-03-24T11:18:08Z

Fetch Code

← Older revision		Revision as of 11:18, 24 March 2009
Line 231:		Line 231:

	my $twit = Net::Twitter->new({username=>"user", password=>"password" });		my $twit = Net::Twitter->new({username=>"user", password=>"password" });
	my $last_id=1366625646; #~~work this out~~ later		my $last_id=1366625646; #prime the last_id for first run

			if (-e "bookmark.txt") #get the last_id
			{
			open BOOKMARK, "<", "bookmark.txt" or die $!;
			while (<BOOKMARK>)
			{
			if ($_>$last_id) #keep track of the most recent update to dump to bookmark later
			{
			$last_id=$_;
			}
			}
			close BOOKMARK;
			}

	my @timeline = $twit->friends_timeline({count => 200, since_id => $last_id });		my @timeline = $twit->friends_timeline({count => 200, since_id => $last_id });

	my $timeline;		my $timeline;
	#my $~~location~~=~~$timeline[0][~~0~~]{'user'}{'location'}~~;		my $i=0;

	~~my $i=0;~~
	while ($timeline[0][$i])		while ($timeline[0][$i])
	{		{
	my $location=$timeline[0][$i]{'user'}{'location'};		$i++;
	my $id=$timeline[0][$i]{'id'};		}

			print "There have been $i tweets since the last update\n\n";

			my $counter=1;

			$i--;

			for my $textout (reverse 1 .. $i)
			{

			my $location=$timeline[0][$textout]{'user'}{'location'};
			my $id=$timeline[0][$textout]{'id'};

	if ($id>$last_id) #keep track of the most recent update to dump to bookmark later		if ($id>$last_id) #keep track of the most recent update to dump to bookmark later
	{		{
	$last_id=$id;		$last_id=$id;
	}		}
	my $screenname=$timeline[0][$i]{'user'}{'screen_name'};		my $screenname=$timeline[0][$textout]{'user'}{'screen_name'};
	my $msg=$timeline[0][$i]{'text'};		my $msg=$timeline[0][$textout]{'text'};

	my $updatetype;		my $updatetype;
Line 258:		Line 282:
	else		else
	{$updatetype="said"}		{$updatetype="said"}


			# Need to develop a scrubber routine that takes an input file

	$msg=~s/https?:\/\/([-\w\.]+)+(:\d+)?(\/([\w\/_\.]*(\?\S+)?)?)?/Weblink /g;		$msg=~s/https?:\/\/([-\w\.]+)+(:\d+)?(\/([\w\/_\.]*(\?\S+)?)?)?/Weblink /g;
	$msg=~s/RT/retweet/g;		$msg=~s/RT/retweet/g;
			$msg=~s/\.\./\./g;
			$msg=~s/:\)/smile/g;
			$msg=~s/;\)/wink/g;
			$msg=~s/:\(/frown/g;

			# Do I want a file list of people to NOT put to the output?
	print "Tweet $i $screenname $updatetype $msg\n";		print "Tweet $counter $screenname $updatetype $msg\n\n";
	$i++;		$counter++;
	}		}



			open BOOKMARK, ">", "bookmark.txt" or die $!; #set the last_id for the future
			print BOOKMARK "$last_id";
			close BOOKMARK;
	</pre>		</pre>

Rabbi Bob: /* Fetch Code */

2009-03-23T02:54:31Z

Fetch Code

← Older revision		Revision as of 02:54, 23 March 2009
Line 231:		Line 231:

	my $twit = Net::Twitter->new({username=>"user", password=>"password" });		my $twit = Net::Twitter->new({username=>"user", password=>"password" });
	my $last_id=~~1363944982~~; #work this out later		my $last_id=1366625646; #work this out later

	my @timeline = $twit->friends_timeline({count => 200, since_id => $last_id });		my @timeline = $twit->friends_timeline({count => 200, since_id => $last_id });

	my $timeline;		my $timeline;
	my $i;		#my $location=$timeline[0][0]{'user'}{'location'};

			my $i=0;
	while ($timeline[0][$i])		while ($timeline[0][$i])
	{		{
	my $location=$timeline[0][$i]{'user'}{'location'};		my $location=$timeline[0][$i]{'user'}{'location'};
			my $id=$timeline[0][$i]{'id'};
			if ($id>$last_id) #keep track of the most recent update to dump to bookmark later
			{
			$last_id=$id;
			}
	my $screenname=$timeline[0][$i]{'user'}{'screen_name'};		my $screenname=$timeline[0][$i]{'user'}{'screen_name'};
	my $msg=$timeline[0][$i]{'text'};		my $msg=$timeline[0][$i]{'text'};

	$msg=~s/https?:\/\/([-\w\.]+)+(:\d+)?(\/([\w\/_\.]*(\?\S+)?)?)?/~~link~~ /g;		my $updatetype;

			if ($msg=~m/http/)
			{
			$updatetype="posted";
			}
			else
			{$updatetype="said"}

			$msg=~s/https?:\/\/([-\w\.]+)+(:\d+)?(\/([\w\/_\.]*(\?\S+)?)?)?/Weblink /g;
			$msg=~s/RT/retweet/g;


	print "$screenname ~~said~~ $msg\n";		print "Tweet $i $screenname $updatetype $msg\n";
	$i++;		$i++;
	}		}

Rabbi Bob at 00:43, 23 March 2009

2009-03-23T00:43:31Z

← Older revision		Revision as of 00:43, 23 March 2009
Line 4:		Line 4:
	Premise: parse Twitter feed using Perl, utilize Text2Wav (Festival) to convert to a wav file and then LAME encode the result to mp3.		Premise: parse Twitter feed using Perl, utilize Text2Wav (Festival) to convert to a wav file and then LAME encode the result to mp3.

	~~=Audio Result=~~
	* John Cleese appears to be off on a tangent in this one.
	* Also, I think I need to reverse the array so the posts come in chronological order vs newest to last.

	~~<flashmp3>http://www.rabbibob.com/cstrike/20090322_twitter.mp3\|autostart=no\|loop=no\|firstTrackName=Sleeper39_1997</flashmp3>~~

	~~=Command Line=~~
	<pre>		<pre>
	text2wave -F 16000 htt.txt -o test2.wav		text2wave -F 16000 htt.txt -o test2.wav
Line 19:		Line 12:
	</pre>		</pre>

	=Text ~~Origin~~=		=Audio Result=
			* John Cleese appears to be off on a tangent in this one.
			* Also, I think I need to reverse the array so the posts come in chronological order vs newest to last.

			<flashmp3>http://www.rabbibob.com/cstrike/20090322_twitter.mp3\|autostart=no\|loop=no\|firstTrackName=Sleeper39_1997</flashmp3>

			=Text =
	* replaced http urls with 'weblink'		* replaced http urls with 'weblink'
	<pre>		<pre>

Rabbi Bob: /* Audio Result */

2009-03-23T00:42:24Z

Audio Result

← Older revision		Revision as of 00:42, 23 March 2009
Line 5:		Line 5:

	=Audio Result=		=Audio Result=
			* John Cleese appears to be off on a tangent in this one.
			* Also, I think I need to reverse the array so the posts come in chronological order vs newest to last.

	<flashmp3>http://www.rabbibob.com/cstrike/20090322_twitter.mp3\|autostart=no\|loop=no\|firstTrackName=Sleeper39_1997</flashmp3>		<flashmp3>http://www.rabbibob.com/cstrike/20090322_twitter.mp3\|autostart=no\|loop=no\|firstTrackName=Sleeper39_1997</flashmp3>

	~~John Cleese appears to be off on a tangent in this one.~~

	~~Also, I think I need to reverse the array so the posts come in chronological order vs newest to last.~~

	=Command Line=		=Command Line=

Rabbi Bob: /* Audio Result */

2009-03-23T00:42:06Z

Audio Result

← Older revision		Revision as of 00:42, 23 March 2009
Line 5:		Line 5:

	=Audio Result=		=Audio Result=
	<flashmp3>http://www.rabbibob.com/cstrike/~~20090321_twitter~~.mp3\|autostart=no\|loop=no\|firstTrackName=Sleeper39_1997</flashmp3>		<flashmp3>http://www.rabbibob.com/cstrike/20090322_twitter.mp3\|autostart=no\|loop=no\|firstTrackName=Sleeper39_1997</flashmp3>

			John Cleese appears to be off on a tangent in this one.

			Also, I think I need to reverse the array so the posts come in chronological order vs newest to last.

	=Command Line=		=Command Line=

Rabbi Bob: /* Text Origin */

2009-03-23T00:34:32Z

Text Origin

Show changes