--- tamtam/tamtam2socialtext.pl	2007/12/12 18:35:40	16
+++ tamtam/tamtam2socialtext.pl	2007/12/12 18:46:04	17
@@ -12,6 +12,7 @@
 use POSIX qw/strftime/;
 use Data::Dump qw/dump/;
 
+my $debug = 1;
 my $max = 999;
 
 my $page;
@@ -36,11 +37,17 @@
 			warn "SKIP: no LastModified in $path $name";
 			return;
 		}
+
+		my $w = $ref->{widgets}->{widget};
+
 		my $data =
-			$ref->{widgets}->{widget}->{data} ||
-			$ref->{widgets}->{widget}->{Body}->{data} ||
+			defined( $w->{data} )		? $w->{data} :
+			defined( $w->{Body}->{date} )	? $w->{Body}->{date} :
 			die "no data in $path ",dump( $ref );
 
+		# empty data is returned like empty hash. yack.
+		$data = "\n" if ref($data) eq 'HASH' and ! keys %$data;
+
 		$page->{ $name } = {
 			content => convert_markup( $data ),
 			date => convert_date( $date ),
@@ -50,7 +57,7 @@
 		$name =~ s,^.+/([^/]+)$,$1,;
 		push @page_names, $name;
 
-#		warn dump( $ref );
+		warn "## $path = ",dump( $ref ) if $debug;
 	},
 }, shift @ARGV || '.');
 
@@ -128,6 +135,9 @@
 	last if $count++ == $max;
 
 	my $p = $page->{$name};
+
+	warn "## $name = ",dump( $p ) if $debug;
+
 	my $body = $p->{content} || die "no content?";
 	my $date = $p->{date} || die "no date?";