/[pub]/suikawiki/script/misc/plugins/view/Downgrade.wp2
Suika

Diff of /suikawiki/script/misc/plugins/view/Downgrade.wp2

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

revision 1.3 by wakaba, Sun Feb 8 08:44:00 2004 UTC revision 1.6 by wakaba, Tue Mar 15 08:50:05 2005 UTC
# Line 5  Plugin: Line 5  Plugin:
5    @Description:    @Description:
6      @@@: WikiView output partial downgrade for old clients      @@@: WikiView output partial downgrade for old clients
7      @@lang:en      @@lang:en
8    @License: %%GPL%%    @License: %%Perl%%
9    @Author:    @Author:
10      @@Name:      @@Name:
11        @@@@: Wakaba        @@@@: Wakaba
12        @@@lang:ja        @@@lang:ja
13        @@@script:Latn        @@@script:Latn
14      @@Mail[list]: w@suika.fam.cx      @@Mail[list]: w@suika.fam.cx
15    @Date.RCS: $Date$    @Date.RCS:
16    @RequiredModule[list]:      $Date$
   @RequiredPlugin[list]:  
17    
18  PluginConst:  PluginConst:
19    @NS_XHTML1:    @NS_XHTML1:
# Line 35  Function: Line 34  Function:
34        my $geckover = $1;        my $geckover = $1;
35        $flag->{media_type_no_rdf_plus_xml} = 1;        $flag->{media_type_no_rdf_plus_xml} = 1;
36        $flag->{http_no_see_other} = 1 if $geckover > 20030331;        $flag->{http_no_see_other} = 1 if $geckover > 20030331;
37          $flag->{html_no_table_abbr} = 1;
38            
39      ## Opera      ## Opera
40      } elsif ($ua_name =~ m#\bOpera/([0-9]\.[0-9]+)#) {      } elsif ($ua_name =~ m#\bOpera/([0-9]\.[0-9]+)#) {
# Line 47  Function: Line 47  Function:
47        my $mozver = 0+$1;        my $mozver = 0+$1;
48        $flag->{html_no_pi} = 1;        $flag->{html_no_pi} = 1;
49        $flag->{html_no_id} = 1;        $flag->{html_no_id} = 1;
50          $flag->{html_no_table_abbr} = 1;
51        $flag->{media_type_no_xml} = 1;        $flag->{media_type_no_xml} = 1;
52        $flag->{html_no_latin1} = 1 if $mozver < 3;        $flag->{html_no_latin1} = 1 if $mozver < 3;
53          ## ISSUE: Is NN3 support latin-1 character on Japanese Windoze?          ## ISSUE: Is NN3 support latin-1 character on Japanese Windoze?
# Line 83  Function: Line 84  Function:
84            $flag->{ua_winie40} = 1;            $flag->{ua_winie40} = 1;
85          } elsif ($iever >= 3) {          } elsif ($iever >= 3) {
86            $flag->{html_no_latin1} = 1;            $flag->{html_no_latin1} = 1;
87              ## ISSUE: Is WinIE4 support latin-1 character on Japanese Windoze?              ## ISSUE: Does WinIE4 support latin-1 character on Japanese Windoze?
88            $flag->{ua_winie30} = 1;            $flag->{ua_winie30} = 1;
89              $flag->{js_no_regex} = 1;
90                ## ISSUE: Does WinIE4 support /regex-literal/?
91          } else { # WinIE 2          } else { # WinIE 2
92            $flag->{html_no_div} = 1;            $flag->{html_no_div} = 1;
93            $flag->{stylesheet_no_css} = 1;            $flag->{stylesheet_no_css} = 1;
94            $flag->{http_refresh_no_quoted_url} = 1;            $flag->{http_refresh_no_quoted_url} = 1;
95          }          }
96          $flag->{media_type_no_app_js} = 1;          $flag->{media_type_no_app_js} = 1;
97            $flag->{html_no_table_abbr} = 1;
98          $flag->{stylesheet_non_standard} = 1 if $iever >= 3;          $flag->{stylesheet_non_standard} = 1 if $iever >= 3;
99          $flag->{ua_netscape4} = 0;          $flag->{ua_netscape4} = 0;
100        }        }
# Line 98  Function: Line 102  Function:
102      } elsif ($ua_name =~ m#^Microsoft Internet Explorer\b#) {      } elsif ($ua_name =~ m#^Microsoft Internet Explorer\b#) {
103        $flag->{html_no_id} = 1;        $flag->{html_no_id} = 1;
104        $flag->{html_no_div} = 1;        $flag->{html_no_div} = 1;
105          $flag->{html_no_table_abbr} = 1;
106        $flag->{http_no_see_other} = 1;        $flag->{http_no_see_other} = 1;
107        $flag->{stylesheet_no_css} = 1;        $flag->{stylesheet_no_css} = 1;
108      } elsif ($ua_name =~ /^Infomosaic\b/) {      } elsif ($ua_name =~ /^Infomosaic\b/) {
109        $flag->{media_type_no_parameter} = 1;        $flag->{media_type_no_parameter} = 1;
110        $flag->{html_no_id} = 1;        $flag->{html_no_id} = 1;
111        $flag->{html_no_div} = 1;        $flag->{html_no_div} = 1;
112          $flag->{html_no_table_abbr} = 1;
113        $flag->{stylesheet_no_css} = 1;        $flag->{stylesheet_no_css} = 1;
114      }      }
115    
116        if ($ua_name =~ /[Bb][Oo][Tt]/) {
117          $flag->{is_robot} = 1;
118        }
119    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24