/[pub]/suikawiki/script/misc/plugins/link/map.wp2
Suika

Diff of /suikawiki/script/misc/plugins/link/map.wp2

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

revision 1.2 by wakaba, Sun Feb 8 08:46:47 2004 UTC revision 1.5 by wakaba, Thu Mar 11 08:06:09 2004 UTC
# Line 6  Plugin: Line 6  Plugin:
6      @@@:      @@@:
7        Visualization of page to page relatinships        Visualization of page to page relatinships
8      @@lang:en      @@lang:en
9    @License: %%GPL%%    @License: %%Perl%%
10    @Author:    @Author:
11      @@Name:      @@Name:
12        @@@@: Wakaba        @@@@: Wakaba
# Line 76  FormattingRule: Line 76  FormattingRule:
76      __ATTRTEXT:%mode__;      __ATTRTEXT:%mode__;
77      for (sort {$b->[1] <=> $a->[1]}      for (sort {$b->[1] <=> $a->[1]}
78           map  { try { [$_, $o->{wiki}->{db}->get (lastmodified => $_)] }           map  { try { [$_, $o->{wiki}->{db}->get (lastmodified => $_)] }
79                  catch SuikaWiki::DB::Util::Error with {[$_, undef]} }                  catch SuikaWiki::DB::Util::Error with {
80                      my $err = shift;
81                      $err->throw if $err->{-type} eq 'ERROR_REPORTED';
82                      [$_, undef]} }
83           $o->{wiki}->{db}->keys ('content',           $o->{wiki}->{db}->keys ('content',
84                                   -ns => $ns,                                   -ns => $ns,
85                                   -type => 'key',                                   -type => 'key',
# Line 84  FormattingRule: Line 87  FormattingRule:
87        next unless $_->[0];        next unless $_->[0];
88        last if $i++ == $p->{n};        last if $i++ == $p->{n};
89                
       my $li = $list->append_new_node  
                         (type => '#element',  
                          namespace_uri => $NS_XHTML1,  
                          local_name => 'li');  
90        $WIKILINKING->to_wikipage_in_html ({        $WIKILINKING->to_wikipage_in_html ({
91          label => $p->{template},          label => $p->{template},
92        } => {        } => {
# Line 98  FormattingRule: Line 97  FormattingRule:
97          page_lastmodified => $_->[1],          page_lastmodified => $_->[1],
98        }, {        }, {
99          o => $o,          o => $o,
100          parent => $li,          parent => $list->append_new_node
101                            (type => '#element',
102                             namespace_uri => $NS_XHTML1,
103                             local_name => 'li'),
104        });        });
105      }      }
106    
# Line 136  FormattingRule: Line 138  FormattingRule:
138      $p->{template} ||= $WIKIRESOURCE->get      $p->{template} ||= $WIKIRESOURCE->get
139          (name => 'Link:toWikiPage:SourceLabelLong:PageList',          (name => 'Link:toWikiPage:SourceLabelLong:PageList',
140           wiki => $o->{wiki}, o => $o);           wiki => $o->{wiki}, o => $o);
141        __ATTRTEXT:%match__; ## WARNING: This parameter might be dangerous!
142        my $reg = $p->{match} ? qr/$p->{match}/ : qr/./;
143      __ATTRTEXT:%mode__;      __ATTRTEXT:%mode__;
144      try {      try {
145        for (sort {$a->[1] cmp $b->[1]}        for (sort {$a->[1] cmp $b->[1]}
146               grep {$_->[1] =~ /$reg/}
147             map {[$_, join '//', @{$_}]} # make sort key             map {[$_, join '//', @{$_}]} # make sort key
148             $o->{wiki}->{db}->keys ('content',             $o->{wiki}->{db}->keys ('content',
149                                     -ns => $ns,                                     -ns => $ns,
# Line 146  FormattingRule: Line 151  FormattingRule:
151                                     -recursive => $p->{recursive})) {                                     -recursive => $p->{recursive})) {
152          last if $i++ == $p->{n};          last if $i++ == $p->{n};
153                    
         my $li = $list->append_new_node  
                           (type => '#element',  
                            namespace_uri => $NS_XHTML1,  
                            local_name => 'li');  
154          $WIKILINKING->to_wikipage_in_html ({          $WIKILINKING->to_wikipage_in_html ({
155            label => $p->{template},            label => $p->{template},
156          } => {          } => {
# Line 158  FormattingRule: Line 159  FormattingRule:
159            wiki_mode => $p->{mode},            wiki_mode => $p->{mode},
160          }, {          }, {
161            o => $o,            o => $o,
162            parent => $li,            parent => $list->append_new_node
163                              (type => '#element',
164                               namespace_uri => $NS_XHTML1,
165                               local_name => 'li'),
166          });          });
167        }        }
168      } catch SuikaWiki::DB::Util::Error with {      } catch SuikaWiki::DB::Util::Error with {
169        #        my $err = shift;
170          $err->throw if $err->{-type} eq 'ERROR_REPORTED';
171      };      };
172      $p->{-parent}->remove_child_node ($list) unless $list->count;      $p->{-parent}->remove_child_node ($list) unless $list->count;
173    
# Line 185  FormattingRule: Line 190  FormattingRule:
190          try {          try {
191            $content = $o->{wiki}->{db}->get (content => $page);            $content = $o->{wiki}->{db}->get (content => $page);
192          } catch SuikaWiki::DB::Util::Error with {          } catch SuikaWiki::DB::Util::Error with {
193              my $err = shift;
194              $err->throw if $err->{-type} eq 'ERROR_REPORTED';
195            $content = undef;            $content = undef;
196          };          };
197          $content = $p->{case_sensible} ? $content : lc $content;          $content = $p->{case_sensitive} ? $content : lc $content;
198          $content =~ s/^[^\x0A\x0D]+[\x0D\x0A]+//s;          $content =~ s/^[^\x0A\x0D]+[\x0D\x0A]+//s;
199          $page = $o->{wiki}->name ($page);          $page = $o->{wiki}->name ($page);
200          my $n_page = $page->stringify (wiki => $o->{wiki});          my $n_page = $page->stringify (wiki => $o->{wiki});
# Line 207  FormattingRule: Line 214  FormattingRule:
214              map {$_->[0]->stringify (wiki => $o->{wiki}, delimiter => "\x1D")              map {$_->[0]->stringify (wiki => $o->{wiki}, delimiter => "\x1D")
215                   ."\x1F".$_->[1]} @r;                   ."\x1F".$_->[1]} @r;
216        $o->{wiki}->{db}->set (m__search_result => [$word] => $sr);        $o->{wiki}->{db}->set (m__search_result => [$word] => $sr);
217  ## TODO: Cache & case-sensibility  ## TODO: Cache & case-sensitivility
218      } else {      } else {
219        @r = map {[$o->{wiki}->name ($_->[0], delimiter_reg => qr/\x1D/), $_->[1]]}        @r = map {[$o->{wiki}->name ($_->[0], delimiter_reg => qr/\x1D/), $_->[1]]}
220             map {[split /\x1F/, $_, 2]} split /\x1E/, $sr;             map {[split /\x1F/, $_, 2]} split /\x1E/, $sr;
# Line 222  FormattingRule: Line 229  FormattingRule:
229            (name => 'Link:toWikiPage:SourceLabelLong:SearchResult',            (name => 'Link:toWikiPage:SourceLabelLong:SearchResult',
230             wiki => $o->{wiki}, o => $o);             wiki => $o->{wiki}, o => $o);
231        for (@r) {        for (@r) {
         my $li = $list->append_new_node  
                           (type => '#element',  
                            namespace_uri => $NS_XHTML1,  
                            local_name => 'li');  
232          $WIKILINKING->to_wikipage_in_html ({          $WIKILINKING->to_wikipage_in_html ({
233            label => $p->{template},            label => $p->{template},
234          } => {          } => {
# Line 234  FormattingRule: Line 237  FormattingRule:
237            wiki_mode => $p->{mode},            wiki_mode => $p->{mode},
238          }, {          }, {
239            o => $o,            o => $o,
240            parent => $li,            parent => $list->append_new_node
241                              (type => '#element',
242                               namespace_uri => $NS_XHTML1,
243                               local_name => 'li'),
244            -m__weight => $_->[1],            -m__weight => $_->[1],
245          });          });
246        }        }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24