plugins/view/image.pm

use strict;
package SuikaWiki::Plugin::Registry;


our %Info;
$Info{q#Image#}->{Name} = q#Image#;
$Info{q#Image#}->{q#Version#} = q#2004.1205.0529#;
$Info{q#Image#}->{q#InterfaceVersion#} = q#2.9.1#;
$Info{q#Image#}->{q#mkpluginVersion#} = q#2.1.21#;
$Info{q#Image#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Image1041105052955rKge#;
$Info{q#Image#}->{q#Date.RCS#} = q#$Date: 2004/02/08 08:44:13 $#;
$Info{q#Image#}->{Description} = [[q#Image support#, q#en#, q##]];
$Info{q#Image#}->{License} = [[q#%%GPL%%#, q##, q##]];
$Info{q#Image#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];

push @SuikaWiki::View::Implementation::CommonViewDefs, {
  condition => {q#mode#, q#image_png#, q#http_method#, [q#GET#, q#HEAD#]},
  object_class => q#SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_png1041105052955T1dG#,
};
package SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_png1041105052955T1dG;


our @ISA = q#SuikaWiki::View::template#;

sub main ($$$) {
  my ($self, $opt, $opt2) = @_;
  require SuikaWiki::Output::HTTP;
  $opt2->{output} = SuikaWiki::Output::HTTP->new
    (wiki => $self->{view}->{wiki},
     view => $self->{view}, viewobj => $self);
  for (@{$self->{view}->{wiki}->{var}->{client}->{used_for_negotiate}},
       'Accept-Language') {
    $opt2->{output}->add_negotiate_header_field ($_);
  }
  
  $opt2->{template} = q#%read (Type => {image/png}, return-type => ToOctetStream,
when-no-converter => 406);#;
  $opt2->{o} = bless {
                      ## SuikaWiki 3 WikiPlugin interface
                        wiki => $self->{view}->{wiki},
                        plugin => $self->{view}->{wiki}->{plugin},
                        var => {},
                      }, 'SuikaWiki::Plugin';  
  $opt2->{output}->{status_code} = 200;
  
  $opt2->{output}->{entity}->{media_type} = q#image/png#;

  
  $opt2->{output}->set_expires (%{$self->{view}->{wiki}->{config}->{entity}->{expires}->{q#image#}});
  $opt2->{output}->{entity}->{body_is_octet_stream} = 1;
  
  $self->{view}->{wiki}->init_db;
  $self->main_pre ($opt, $opt2);
  
  
  use Message::Util::Error;
  try {
    $opt2->{output}->{entity}->{body} 
      = 
        (SuikaWiki::Plugin->formatter ('view')
        ->replace ($opt2->{template}, param => $opt2->{o}));
  } $self->{view}->{wiki}->{config}->{catch}->{ formatter_view };
  $opt2->{output}->output (output => 'http-cgi');
  
  $self->main_post ($opt, $opt2);
}

push @SuikaWiki::View::Implementation::CommonViewDefs, {
  condition => {q#mode#, q#image_jpeg#, q#http_method#, [q#GET#, q#HEAD#]},
  object_class => q#SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_jpeg10411050529556qot#,
};
package SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_jpeg10411050529556qot;


our @ISA = q#SuikaWiki::View::template#;

sub main ($$$) {
  my ($self, $opt, $opt2) = @_;
  require SuikaWiki::Output::HTTP;
  $opt2->{output} = SuikaWiki::Output::HTTP->new
    (wiki => $self->{view}->{wiki},
     view => $self->{view}, viewobj => $self);
  for (@{$self->{view}->{wiki}->{var}->{client}->{used_for_negotiate}},
       'Accept-Language') {
    $opt2->{output}->add_negotiate_header_field ($_);
  }
  
  $opt2->{template} = q#%read (Type => {image/jpeg}, return-type => ToOctetStream,
when-no-converter => 406);#;
  $opt2->{o} = bless {
                      ## SuikaWiki 3 WikiPlugin interface
                        wiki => $self->{view}->{wiki},
                        plugin => $self->{view}->{wiki}->{plugin},
                        var => {},
                      }, 'SuikaWiki::Plugin';  
  $opt2->{output}->{status_code} = 200;
  
  $opt2->{output}->{entity}->{media_type} = q#image/jpeg#;

  
  $opt2->{output}->set_expires (%{$self->{view}->{wiki}->{config}->{entity}->{expires}->{q#image#}});
  $opt2->{output}->{entity}->{body_is_octet_stream} = 1;
  
  $self->{view}->{wiki}->init_db;
  $self->main_pre ($opt, $opt2);
  
  
  use Message::Util::Error;
  try {
    $opt2->{output}->{entity}->{body} 
      = 
        (SuikaWiki::Plugin->formatter ('view')
        ->replace ($opt2->{template}, param => $opt2->{o}));
  } $self->{view}->{wiki}->{config}->{catch}->{ formatter_view };
  $opt2->{output}->output (output => 'http-cgi');
  
  $self->main_post ($opt, $opt2);
}

push @SuikaWiki::View::Implementation::CommonViewDefs, {
  condition => {q#mode#, q#image_x_icon#, q#http_method#, [q#GET#, q#HEAD#]},
  object_class => q#SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_x_icon1041105052955p_i1#,
};
package SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_x_icon1041105052955p_i1;


our @ISA = q#SuikaWiki::View::template#;

sub main ($$$) {
  my ($self, $opt, $opt2) = @_;
  require SuikaWiki::Output::HTTP;
  $opt2->{output} = SuikaWiki::Output::HTTP->new
    (wiki => $self->{view}->{wiki},
     view => $self->{view}, viewobj => $self);
  for (@{$self->{view}->{wiki}->{var}->{client}->{used_for_negotiate}},
       'Accept-Language') {
    $opt2->{output}->add_negotiate_header_field ($_);
  }
  
  $opt2->{template} = q#%read (Type => {image/vnd.microsoft.icon}, return-type => ToOctetStream,
when-no-converter => 406);#;
  $opt2->{o} = bless {
                      ## SuikaWiki 3 WikiPlugin interface
                        wiki => $self->{view}->{wiki},
                        plugin => $self->{view}->{wiki}->{plugin},
                        var => {},
                      }, 'SuikaWiki::Plugin';  
  $opt2->{output}->{status_code} = 200;
  
  $opt2->{output}->{entity}->{media_type} = q#image/vnd.microsoft.icon#;

  
  $opt2->{output}->set_expires (%{$self->{view}->{wiki}->{config}->{entity}->{expires}->{q#image#}});
  $opt2->{output}->{entity}->{body_is_octet_stream} = 1;
  
  $self->{view}->{wiki}->init_db;
  $self->main_pre ($opt, $opt2);
  
  
  use Message::Util::Error;
  try {
    $opt2->{output}->{entity}->{body} 
      = 
        (SuikaWiki::Plugin->formatter ('view')
        ->replace ($opt2->{template}, param => $opt2->{o}));
  } $self->{view}->{wiki}->{config}->{catch}->{ formatter_view };
  $opt2->{output}->output (output => 'http-cgi');
  
  $self->main_post ($opt, $opt2);
}

package SuikaWiki::Plugin::Resource;

our $BaseResource;
$BaseResource->{q#en#}->{q##}->{q#Mode:image_x_icon#} = q#Windows Icon#;
$BaseResource->{q#und#}->{q##}->{q#Mode#} = q#image_jpeg#;
$BaseResource->{q#und#}->{q##}->{q#lang#} = q#en#;
$BaseResource->{q#en#}->{q##}->{q#Mode:image_png#} = q#PNG image#;
package SuikaWiki::Plugin::Registry;

$Info{q#Image#}->{provide} = {q#viewdef#, [{q#Description#, [q#Portable Network Graphics (PNG) format image#, q#en#, q##], q#Name#, q#image_png#}, {q#Description#, [q#JPEG (JFIF) format image#, q#en#, q##], q#Name#, q#image_jpeg#}, {q#Description#, [q#Windows icon format image#, q#en#, q##], q#Name#, q#image_x_icon#}]};

1;
1	wakaba	1.1	use strict;
2			package SuikaWiki::Plugin::Registry;
3
4
5			our %Info;
6			$Info{q#Image#}->{Name} = q#Image#;
7			$Info{q#Image#}->{q#Version#} = q#2004.1205.0529#;
8			$Info{q#Image#}->{q#InterfaceVersion#} = q#2.9.1#;
9			$Info{q#Image#}->{q#mkpluginVersion#} = q#2.1.21#;
10			$Info{q#Image#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Image1041105052955rKge#;
11			$Info{q#Image#}->{q#Date.RCS#} = q#$Date: 2004/02/08 08:44:13 $#;
12			$Info{q#Image#}->{Description} = [[q#Image support#, q#en#, q##]];
13			$Info{q#Image#}->{License} = [[q#%%GPL%%#, q##, q##]];
14			$Info{q#Image#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];
15
16			push @SuikaWiki::View::Implementation::CommonViewDefs, {
17			condition => {q#mode#, q#image_png#, q#http_method#, [q#GET#, q#HEAD#]},
18			object_class => q#SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_png1041105052955T1dG#,
19			};
20			package SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_png1041105052955T1dG;
21
22
23			our @ISA = q#SuikaWiki::View::template#;
24
25			sub main ($$$) {
26			my ($self, $opt, $opt2) = @_;
27			require SuikaWiki::Output::HTTP;
28			$opt2->{output} = SuikaWiki::Output::HTTP->new
29			(wiki => $self->{view}->{wiki},
30			view => $self->{view}, viewobj => $self);
31			for (@{$self->{view}->{wiki}->{var}->{client}->{used_for_negotiate}},
32			'Accept-Language') {
33			$opt2->{output}->add_negotiate_header_field ($_);
34			}
35
36			$opt2->{template} = q#%read (Type => {image/png}, return-type => ToOctetStream,
37			when-no-converter => 406);#;
38			$opt2->{o} = bless {
39			## SuikaWiki 3 WikiPlugin interface
40			wiki => $self->{view}->{wiki},
41			plugin => $self->{view}->{wiki}->{plugin},
42			var => {},
43			}, 'SuikaWiki::Plugin';
44			$opt2->{output}->{status_code} = 200;
45
46			$opt2->{output}->{entity}->{media_type} = q#image/png#;
47
48
49			$opt2->{output}->set_expires (%{$self->{view}->{wiki}->{config}->{entity}->{expires}->{q#image#}});
50			$opt2->{output}->{entity}->{body_is_octet_stream} = 1;
51
52			$self->{view}->{wiki}->init_db;
53			$self->main_pre ($opt, $opt2);
54
55
56			use Message::Util::Error;
57			try {
58			$opt2->{output}->{entity}->{body}
59			=
60			(SuikaWiki::Plugin->formatter ('view')
61			->replace ($opt2->{template}, param => $opt2->{o}));
62			} $self->{view}->{wiki}->{config}->{catch}->{ formatter_view };
63			$opt2->{output}->output (output => 'http-cgi');
64
65			$self->main_post ($opt, $opt2);
66			}
67
68			push @SuikaWiki::View::Implementation::CommonViewDefs, {
69			condition => {q#mode#, q#image_jpeg#, q#http_method#, [q#GET#, q#HEAD#]},
70			object_class => q#SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_jpeg10411050529556qot#,
71			};
72			package SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_jpeg10411050529556qot;
73
74
75			our @ISA = q#SuikaWiki::View::template#;
76
77			sub main ($$$) {
78			my ($self, $opt, $opt2) = @_;
79			require SuikaWiki::Output::HTTP;
80			$opt2->{output} = SuikaWiki::Output::HTTP->new
81			(wiki => $self->{view}->{wiki},
82			view => $self->{view}, viewobj => $self);
83			for (@{$self->{view}->{wiki}->{var}->{client}->{used_for_negotiate}},
84			'Accept-Language') {
85			$opt2->{output}->add_negotiate_header_field ($_);
86			}
87
88			$opt2->{template} = q#%read (Type => {image/jpeg}, return-type => ToOctetStream,
89			when-no-converter => 406);#;
90			$opt2->{o} = bless {
91			## SuikaWiki 3 WikiPlugin interface
92			wiki => $self->{view}->{wiki},
93			plugin => $self->{view}->{wiki}->{plugin},
94			var => {},
95			}, 'SuikaWiki::Plugin';
96			$opt2->{output}->{status_code} = 200;
97
98			$opt2->{output}->{entity}->{media_type} = q#image/jpeg#;
99
100
101			$opt2->{output}->set_expires (%{$self->{view}->{wiki}->{config}->{entity}->{expires}->{q#image#}});
102			$opt2->{output}->{entity}->{body_is_octet_stream} = 1;
103
104			$self->{view}->{wiki}->init_db;
105			$self->main_pre ($opt, $opt2);
106
107
108			use Message::Util::Error;
109			try {
110			$opt2->{output}->{entity}->{body}
111			=
112			(SuikaWiki::Plugin->formatter ('view')
113			->replace ($opt2->{template}, param => $opt2->{o}));
114			} $self->{view}->{wiki}->{config}->{catch}->{ formatter_view };
115			$opt2->{output}->output (output => 'http-cgi');
116
117			$self->main_post ($opt, $opt2);
118			}
119
120			push @SuikaWiki::View::Implementation::CommonViewDefs, {
121			condition => {q#mode#, q#image_x_icon#, q#http_method#, [q#GET#, q#HEAD#]},
122			object_class => q#SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_x_icon1041105052955p_i1#,
123			};
124			package SuikaWiki::Plugin::plugin::Image1041105052955rKge::image_x_icon1041105052955p_i1;
125
126
127			our @ISA = q#SuikaWiki::View::template#;
128
129			sub main ($$$) {
130			my ($self, $opt, $opt2) = @_;
131			require SuikaWiki::Output::HTTP;
132			$opt2->{output} = SuikaWiki::Output::HTTP->new
133			(wiki => $self->{view}->{wiki},
134			view => $self->{view}, viewobj => $self);
135			for (@{$self->{view}->{wiki}->{var}->{client}->{used_for_negotiate}},
136			'Accept-Language') {
137			$opt2->{output}->add_negotiate_header_field ($_);
138			}
139
140			$opt2->{template} = q#%read (Type => {image/vnd.microsoft.icon}, return-type => ToOctetStream,
141			when-no-converter => 406);#;
142			$opt2->{o} = bless {
143			## SuikaWiki 3 WikiPlugin interface
144			wiki => $self->{view}->{wiki},
145			plugin => $self->{view}->{wiki}->{plugin},
146			var => {},
147			}, 'SuikaWiki::Plugin';
148			$opt2->{output}->{status_code} = 200;
149
150			$opt2->{output}->{entity}->{media_type} = q#image/vnd.microsoft.icon#;
151
152
153			$opt2->{output}->set_expires (%{$self->{view}->{wiki}->{config}->{entity}->{expires}->{q#image#}});
154			$opt2->{output}->{entity}->{body_is_octet_stream} = 1;
155
156			$self->{view}->{wiki}->init_db;
157			$self->main_pre ($opt, $opt2);
158
159
160			use Message::Util::Error;
161			try {
162			$opt2->{output}->{entity}->{body}
163			=
164			(SuikaWiki::Plugin->formatter ('view')
165			->replace ($opt2->{template}, param => $opt2->{o}));
166			} $self->{view}->{wiki}->{config}->{catch}->{ formatter_view };
167			$opt2->{output}->output (output => 'http-cgi');
168
169			$self->main_post ($opt, $opt2);
170			}
171
172			package SuikaWiki::Plugin::Resource;
173
174			our $BaseResource;
175			$BaseResource->{q#en#}->{q##}->{q#Mode:image_x_icon#} = q#Windows Icon#;
176			$BaseResource->{q#und#}->{q##}->{q#Mode#} = q#image_jpeg#;
177			$BaseResource->{q#und#}->{q##}->{q#lang#} = q#en#;
178			$BaseResource->{q#en#}->{q##}->{q#Mode:image_png#} = q#PNG image#;
179			package SuikaWiki::Plugin::Registry;
180
181			$Info{q#Image#}->{provide} = {q#viewdef#, [{q#Description#, [q#Portable Network Graphics (PNG) format image#, q#en#, q##], q#Name#, q#image_png#}, {q#Description#, [q#JPEG (JFIF) format image#, q#en#, q##], q#Name#, q#image_jpeg#}, {q#Description#, [q#Windows icon format image#, q#en#, q##], q#Name#, q#image_x_icon#}]};
182
183			1;