/[pub]/suikawiki/script/misc/plugins/referer.wp2
Suika

Diff of /suikawiki/script/misc/plugins/referer.wp2

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

revision 1.7 by wakaba, Tue Mar 30 04:04:44 2004 UTC revision 1.9 by wakaba, Sun Aug 17 05:14:53 2008 UTC
# Line 54  FormattingRule: Line 54  FormattingRule:
54      __ATTRTEXT:%page__;      __ATTRTEXT:%page__;
55      my @list;      my @list;
56      try {      try {
57        @list = map {[split /\x09/, $_, 2]}        my $ref = $o->{wiki}->{db}->get ('referer',
58                split /\x0A/,                                         $o->{wiki}->name ($p->{page} ||
               $o->{wiki}->{db}->get ('referer',  
                                      $o->{wiki}->name ($p->{page} ||  
59                                         $o->{wiki}->{var}->{page}));                                         $o->{wiki}->{var}->{page}));
60          @list = map {[$_ => $ref->{$_}]} keys %$ref;
61      } catch SuikaWiki::DB::Util::Error with {      } catch SuikaWiki::DB::Util::Error with {
62        #        #
63      };      };
# Line 178  Function: Line 177  Function:
177      }      }
178            
179      ## Update referer list      ## Update referer list
180      my %referer;      my $ref = $opt{wiki}->{db}->get ('referer', $opt{page});
181      for (split /\x0A/, $opt{wiki}->{db}->get ('referer', $opt{page})) {      $ref->{$o->{iwc__param}->{uri_reference}}++;
182        my ($n, $t) = split /\x09/, $_, 2;      $opt{wiki}->{db}->set ('referer', $opt{page} => $ref);
       $referer{$n} = $t + 0;  
     }  
     $referer{$o->{iwc__param}->{uri_reference}}++;  
     $opt{wiki}->{db}->set ('referer', $opt{page}  
             => join "\x0A", map {$_ . "\x09" . $referer{$_}} keys %referer);  
183    
184  FormattingRule:  FormattingRule:
185    @Category[list]: link-to-resource    @Category[list]: link-to-resource
# Line 219  FormattingRule: Line 213  FormattingRule:
213        }        }
214      };      };
215    
216  ViewFragment:  XViewFragment:
217    @Name: ws--post-content    @Name: ws--post-content
218    @Description:    @Description:
219      @@@: After content body -- referer lista      @@@: After content body -- referer lista
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24