--- tamtam/tamtam2socialtext.pl	2007/12/13 11:38:36	20
+++ tamtam/tamtam2socialtext.pl	2007/12/13 11:42:24	22
@@ -12,11 +12,17 @@
 use POSIX qw/strftime/;
 use File::Slurp;
 use File::MMagic::XS;
+use Getopt::Long;
 use Data::Dump qw/dump/;
 
 my $debug = 0;
 my $max = 999;
 
+GetOptions(
+	'debug+' => \$debug,
+	'max=i' => \$max,
+);
+
 my $page;
 my $page_date;
 
@@ -35,7 +41,7 @@
 				'attachment' => '+name',
 				'meta' => 'name',
 			},
-			ForceArray => [ 'attachment', 'widget' ],
+			ForceArray => [ 'attachment', 'meta', 'widget' ],
 		) || die "can't open $path: $!";
 
 		warn "## $path = ",dump( $ref ) if $debug;
@@ -189,6 +195,7 @@
 	$body =~ s,``,,gs;
 
 	$body .= qq{
+
 ----
 
 "original"<http://www.razmjenavjestina.org/$full_name> {date: $date}