misc/plugins/RandomJump.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: RandomJump
  @Description:
    @@@:
     This plugin module provides "random jump" functions
     to select wiki pages randomly.
    @@lang:en
  @License: %%Perl%%
  @Author:
    @@Name:
      @@@@:Wakaba
      @@@lang:ja
      @@@script:Latn
    @@Mail:[email protected]
  @Date.RCS:
    $Date: 2004/02/14 10:53:48 $
  @RequiredModule[list]:
    SuikaWiki::Output::HTTP
  @RequiredPlugin[list]:
    WikiLinking
    WikiResource

ViewDefinition:
  @Mode: RandomJump
  @Condition:
    @@output: http-cgi
  @Description:
    @@@:Redirection to some WikiPage selected randomly
    @@lang:en
  @method:
    @@@:
      $self->{view}->init_db;
      my @list = $self->{view}->{wiki}->{db}->keys ('content');
      
      my $uri = $self->{view}->{wiki}->uri_reference
                  (page => $self->{view}->{wiki}->name ($list[rand @list]),
                   up_to_date => 1);
      
      require SuikaWiki::Output::HTTP;
      my $output = SuikaWiki::Output::HTTP->new (wiki => $self->{view}->{wiki});
      $output->set_redirect (uri => $uri, status_code => 307);
      $output->output (output => 'http-cgi');
    @@Name: main

ViewFragment:
  @Name: navbar
  @Description:
    @@@: "Go somewhere" button on navigation bar
    @@lang:en
  @Order: 110
  @Formatting:
    %link-to-wikipage (
      mode => RandomJump, up-to-date,
      rel => jump,
      label => {%link-to-it (
        label => {%res (name => GoSomewhere);}p,
        description => {%res (name => GoSomewhereLong);}p,
        class => randomlink,
      );},
    );

ViewFragment:
  @Name: links
  @Description:
    @@@: "Go somewhere" link
    @@lang:en
  @Formatting:
    %link-wiki (mode => RandomJump, up-to-date,
                rel => jump, class => randomlink,
                description => {%res(name=>GoSomewhereLink);}p);

Resource:
  @GoSomewhere:
    @@@: Lucky
    @@lang:en
  @GoSomewhereLink:
    @@@: Go somewhere in this wiki
    @@lang:en
  @GoSomewhereLong:
    @@@: Go somewhere in this wiki
    @@lang:en
1	#?SuikaWikiConfig/2.0
2
3	Plugin:
4	@Name: RandomJump
5	@Description:
6	@@@:
7	This plugin module provides "random jump" functions
8	to select wiki pages randomly.
9	@@lang:en
10	@License: %%Perl%%
11	@Author:
12	@@Name:
13	@@@@:Wakaba
14	@@@lang:ja
15	@@@script:Latn
16	@@Mail:[email protected]
17	@Date.RCS:
18	$Date: 2004/02/14 10:53:48 $
19	@RequiredModule[list]:
20	SuikaWiki::Output::HTTP
21	@RequiredPlugin[list]:
22	WikiLinking
23	WikiResource
24
25	ViewDefinition:
26	@Mode: RandomJump
27	@Condition:
28	@@output: http-cgi
29	@Description:
30	@@@:Redirection to some WikiPage selected randomly
31	@@lang:en
32	@method:
33	@@@:
34	$self->{view}->init_db;
35	my @list = $self->{view}->{wiki}->{db}->keys ('content');
36
37	my $uri = $self->{view}->{wiki}->uri_reference
38	(page => $self->{view}->{wiki}->name ($list[rand @list]),
39	up_to_date => 1);
40
41	require SuikaWiki::Output::HTTP;
42	my $output = SuikaWiki::Output::HTTP->new (wiki => $self->{view}->{wiki});
43	$output->set_redirect (uri => $uri, status_code => 307);
44	$output->output (output => 'http-cgi');
45	@@Name: main
46
47	ViewFragment:
48	@Name: navbar
49	@Description:
50	@@@: "Go somewhere" button on navigation bar
51	@@lang:en
52	@Order: 110
53	@Formatting:
54	%link-to-wikipage (
55	mode => RandomJump, up-to-date,
56	rel => jump,
57	label => {%link-to-it (
58	label => {%res (name => GoSomewhere);}p,
59	description => {%res (name => GoSomewhereLong);}p,
60	class => randomlink,
61	);},
62	);
63
64	ViewFragment:
65	@Name: links
66	@Description:
67	@@@: "Go somewhere" link
68	@@lang:en
69	@Formatting:
70	%link-wiki (mode => RandomJump, up-to-date,
71	rel => jump, class => randomlink,
72	description => {%res(name=>GoSomewhereLink);}p);
73
74	Resource:
75	@GoSomewhere:
76	@@@: Lucky
77	@@lang:en
78	@GoSomewhereLink:
79	@@@: Go somewhere in this wiki
80	@@lang:en
81	@GoSomewhereLong:
82	@@@: Go somewhere in this wiki
83	@@lang:en