plugins/view/Downgrade.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: Downgrade
  @Description:
    @@@: WikiView output partial downgrade for old clients
    @@lang:en
  @License: %%GPL%%
  @Author:
    @@Name:
      @@@@: Wakaba
      @@@lang:ja
      @@@script:Latn
    @@Mail[list]: [email protected]
  @Date.RCS: $Date: 2003/11/25 12:38:22 $
  @RequiredModule[list]:
  @RequiredPlugin[list]:
    WikiView
    WikiStruct
    WikiLinking
    HTML

PluginConst:
  @NS_XHTML1:
    http://www.w3.org/1999/xhtml

Function:
  @Name: set_downgrade_flags
  @Description:
    @@@: Setting value to downgrade flags ($wiki->{var}->{client}->{downgrade})
    @@lang:en
  @Main:
    my (undef, $wiki) = @_;
    my $flag = $wiki->{var}->{client}->{downgrade} ||= {};
    my $ua_name = $wiki->{var}->{client}->{user_agent_name};
    
    ## Classic Mozilla
    if ($ua_name =~ m#^Mozilla/[0-4]\.#) {
      $flag->{html_no_id} = 1;
    }
1	wakaba	1.1	#?SuikaWikiConfig/2.0
2
3			Plugin:
4			@Name: Downgrade
5			@Description:
6			@@@: WikiView output partial downgrade for old clients
7			@@lang:en
8			@License: %%GPL%%
9			@Author:
10			@@Name:
11			@@@@: Wakaba
12			@@@lang:ja
13			@@@script:Latn
14			@@Mail[list]: [email protected]
15			@Date.RCS: $Date: 2003/11/25 12:38:22 $
16			@RequiredModule[list]:
17			@RequiredPlugin[list]:
18			WikiView
19			WikiStruct
20			WikiLinking
21			HTML
22
23			PluginConst:
24			@NS_XHTML1:
25			http://www.w3.org/1999/xhtml
26
27			Function:
28			@Name: set_downgrade_flags
29			@Description:
30			@@@: Setting value to downgrade flags ($wiki->{var}->{client}->{downgrade})
31			@@lang:en
32			@Main:
33			my (undef, $wiki) = @_;
34			my $flag = $wiki->{var}->{client}->{downgrade} \|\|= {};
35			my $ua_name = $wiki->{var}->{client}->{user_agent_name};
36
37			## Classic Mozilla
38			if ($ua_name =~ m#^Mozilla/[0-4]\.#) {
39			$flag->{html_no_id} = 1;
40			}