Merge lp:~jose/uwn/fix-ml2fridge into lp:uwn

[José Antonio Rey]

Fixed fridge/ml2fridge.pl with the same concept as publish-uwn-fridge.pl.

I used the same concept. It will throw a text file with the format "mailing-list, author date" on the fridge folder.

=== modified file 'fridge/ml2fridge.pl'
--- fridge/ml2fridge.pl	2013-07-07 20:05:44 +0000
+++ fridge/ml2fridge.pl	2013-08-22 05:32:18 +0000
@@ -15,11 +15,11 @@
 $ua->env_proxy;
 $ua->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.2pre) Gecko/20100225 Ubuntu/9.10 (karmic) Namoroka/3.6.2pre');
 
-my $o = WordPress::XMLRPC->new({
-	username => 'pleia2',
-	password => 'Leia26Leia26',
-	proxy => 'http://fridge.ubuntu.com/xmlrpc.php',
-});
+## my $o = WordPress::XMLRPC->new({
+## 	username => 'FRIDGE USERNAME GOES HERE',
+## 	password => 'FRIDGE PASSWORD GOES HERE',
+## 	proxy => 'http://fridge.ubuntu.com/xmlrpc.php',
+## });
 	
 $WordPress::XMLRPC::DEBUG = 1;
 
@@ -63,7 +63,11 @@
 	$post_hashref->{title} = "$title";
 	$post_hashref->{description} = "$post\n\n$cite";
 #	$post_hashref->{categories} = ['Interviews'];
-	my $id = $o->newPost($post_hashref, 0);
+## 	my $id = $o->newPost($post_hashref, 0);
 
-	print 'http://fridge.ubuntu.com/wp-admin/post.php?post='.$id.'&action=edit'."\n";
+## 	print 'http://fridge.ubuntu.com/wp-admin/post.php?post='.$id.'&action=edit'."\n";
+        open my $stdout, ">", "$list, $author $date" or die
+        print "$post\n\n$cite";
+        print $stdout "$post\n\n$cite";
+        close $stdout;
 }