--- tamtam/tamtam2socialtext.pl	2007/12/12 17:56:54	14
+++ tamtam/tamtam2socialtext.pl	2007/12/12 18:14:19	15
@@ -9,6 +9,7 @@
 use Socialtext::Resting;
 use Encode;
 use HTTP::Date;
+use POSIX qw/strftime/;
 use Data::Dump qw/dump/;
 
 my $max = 999;
@@ -42,7 +43,7 @@
 
 		$page->{ $name } = {
 			content => convert_markup( $data ),
-			date => time2str( $date ),
+			date => convert_date( $date ),
 		};
 
 		# strip path from page name
@@ -67,6 +68,12 @@
 $Rester->workspace('razmjenavjestina');
 $Rester->put_workspacetag('TamTam');
 
+sub convert_date {
+	my $date = shift;
+#	return time2str( $date );
+	return strftime('%F %T %z', gmtime( $date ));
+}
+
 sub header {
 	my $h = shift;
 	if ( $h =~ m/^(=+)\s+(.+?)\s+\1$/ ) {
@@ -126,6 +133,8 @@
 
 	my @tags = ( 'TamTam' );
 
+	my $full_name = $name;
+
 	if ( $name =~ m!/! ) {
 		my @page_tags = split(m!/!, $name);
 		$name = pop @page_tags; # remove page name
@@ -138,7 +147,7 @@
 	$body .= qq{
 ----
 
-Original: http://www.razmjenavjestina.org/$name
+Original sa http://www.razmjenavjestina.org/$full_name zadnja promjena {date: $date}
 };
 
 	Encode::_utf8_off( $body );