--- tamtam/tamtam2socialtext.pl	2007/12/14 23:46:57	26
+++ tamtam/tamtam2socialtext.pl	2007/12/15 13:52:40	27
@@ -19,6 +19,13 @@
 my $max = 999;
 my $attachments = 0;
 
+my @create_tags = (qw/
+Trazi
+Nudi
+SvakodnevneDovitljivosti
+G33koSkop
+/);
+
 GetOptions(
 	'debug+' => \$debug,
 	'max=i' => \$max,
@@ -211,6 +218,10 @@
 	# original markup
 	$Rester->put_page( $name, { content => $p->{original}, date => $date });
 
+	foreach my $t ( @create_tags ) {
+		push @tags, $t if $full_name =~ m/$t/i;
+	}
+
 	foreach ( @tags ) {
 		$Rester->put_pagetag( $name, $_, { date => $date } );
 		print "+ tag $_\n";