/[socialtext-import]/tamtam/tamtam2socialtext.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /tamtam/tamtam2socialtext.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 26 by dpavlin, Fri Dec 14 23:46:57 2007 UTC revision 27 by dpavlin, Sat Dec 15 13:52:40 2007 UTC
# Line 19  my $debug = 0; Line 19  my $debug = 0;
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,
# Line 211  foreach my $name ( keys %$page ) { Line 218  foreach my $name ( keys %$page ) {
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";

Legend:
Removed from v.26  
changed lines
  Added in v.27

  ViewVC Help
Powered by ViewVC 1.1.26