--- tamtam/tamtam2socialtext.pl 2007/12/12 14:10:37 12 +++ tamtam/tamtam2socialtext.pl 2007/12/12 17:14:58 13 @@ -40,13 +40,19 @@ $ref->{widgets}->{widget}->{Body}->{data} || die "no data in $path ",dump( $ref ); + $data .= qq{ +---- + +Original: http://www.razmjenavjestina.org/$path +}; + $page->{ $name } = [ $data, $date ]; # strip path from page name $name =~ s,^.+/([^/]+)$,$1,; push @page_names, $name; - #warn dump( $ref ); +# warn dump( $ref ); }, }, shift @ARGV || '.');