19 |
my $max = 999; |
my $max = 999; |
20 |
my $attachments = 0; |
my $attachments = 0; |
21 |
|
|
22 |
|
my @create_tags = (qw/ |
23 |
|
Trazi |
24 |
|
Nudi |
25 |
|
SvakodnevneDovitljivosti |
26 |
|
G33koSkop |
27 |
|
/); |
28 |
|
|
29 |
GetOptions( |
GetOptions( |
30 |
'debug+' => \$debug, |
'debug+' => \$debug, |
31 |
'max=i' => \$max, |
'max=i' => \$max, |
218 |
# original markup |
# original markup |
219 |
$Rester->put_page( $name, { content => $p->{original}, date => $date }); |
$Rester->put_page( $name, { content => $p->{original}, date => $date }); |
220 |
|
|
221 |
|
foreach my $t ( @create_tags ) { |
222 |
|
push @tags, $t if $full_name =~ m/$t/i; |
223 |
|
} |
224 |
|
|
225 |
foreach ( @tags ) { |
foreach ( @tags ) { |
226 |
$Rester->put_pagetag( $name, $_, { date => $date } ); |
$Rester->put_pagetag( $name, $_, { date => $date } ); |
227 |
print "+ tag $_\n"; |
print "+ tag $_\n"; |