2 ###############################################################################
4 # FreeStyleWiki ¥Õ¥í¥ó¥È¥¨¥ó¥ÉCGI¥¹¥¯¥ê¥×¥È
6 ###############################################################################
8 if(exists $ENV{MOD_PERL}){
9 # ¥«¥ì¥ó¥È¥Ç¥£¥ì¥¯¥È¥ê¤ÎÊѹ¹
10 chdir($ENV{FSWIKI_HOME});
13 # ModPerl::Registry(Prefork)¤Ç¤Ï¼Â¹Ô»þ¤ËÊѹ¹¤µ¤ì¤Æ¤¤¤ë²ÄǽÀ¤¬¤¢¤ë
14 if(exists $ENV{MOD_PERL}){
15 chdir($ENV{FSWIKI_HOME});
18 #==============================================================================
19 # ¥â¥¸¥å¡¼¥ë¤Î¥¤¥ó¥¯¥ë¡¼¥É
20 #==============================================================================
23 # ModPerl::Registry(Prefork)¤Ç¤Ï@INC¤¬½é´ü²½¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤¬¤¢¤ë
24 unshift @INC, './lib' if(exists $ENV{MOD_PERL});
26 #use CGI::Carp qw(fatalsToBrowser);
33 # ¤³¤ì¤ò¤ä¤é¤Ê¤¤¤ÈApache::Registory¤ÇÆ°¤«¤Ê¤¤
34 if(exists $ENV{MOD_PERL}){
35 eval("use Digest::Perl::MD5;");
36 eval("use plugin::core::Diff;");
37 eval("use plugin::pdf::PDFMaker;");
38 &Jcode::load_module("Jcode::Unicode") unless $Jcode::USE_ENCODE;
41 #==============================================================================
42 # CGI¤ÈWiki¤Î¥¤¥ó¥¹¥¿¥ó¥¹²½
43 #==============================================================================
44 my $wiki = Wiki->new('setup.dat');
45 my $cgi = $wiki->get_CGI();
49 # SessionÍѥǥ£¥ì¥¯¥È¥ê¤ÏFarm¤Ç¤â¶¦Ä̤˻ÈÍѤ¹¤ë
50 $wiki->config('session_dir',$wiki->config('log_dir'));
52 #==============================================================================
53 # Farm¤È¤·¤ÆÆ°ºî¤¹¤ë¾ì¹ç
54 #==============================================================================
55 my $path_info = $cgi->path_info();
57 if(length($path_info) > 0){
58 # Farm¤¬¤¢¤ë¤«³Îǧ¤¹¤ë
59 unless($path_info =~ m<^(/[A-Za-z0-9]+)*/?$> and -d $wiki->config('data_dir').$path_info){
60 CORE::die("Wiki¤¬Â¸ºß¤·¤Þ¤»¤ó¡£");
63 # PATH_INFO¤ÎºÇ¸å¤¬/¤À¤Ã¤¿¤é/¤Ê¤·¤ÎURL¤ËžÁ÷¤¹¤ë
64 if($path_info =~ m|/$|) {
66 $wiki->redirectURL($cgi->url().$path_info);
68 $path_info =~ m</([^/]+)$>;
69 $wiki->config('script_name', $1);
70 $wiki->config('data_dir' , $wiki->config('data_dir' ).$path_info);
71 $wiki->config('config_dir' , $wiki->config('config_dir').$path_info);
72 $wiki->config('backup_dir' , $wiki->config('backup_dir').$path_info);
73 $wiki->config('log_dir' , $wiki->config('log_dir' ).$path_info);
75 if(!($wiki->config('theme_uri') =~ /^(\/|http:|https:|ftp:)/)){
76 my @paths = split(/\//,$path_info);
77 $path_count = $#paths;
78 for(my $i=0;$i<$path_count;$i++){
79 $wiki->config('theme_uri','../'.$wiki->config('theme_uri'));
84 #==============================================================================
85 # ÀßÄê¤òÈ¿±Ç¡Ê¤â¤¦¤Á¤ç¤Ã¤È¥¹¥Þ¡¼¥È¤Ë¤ä¤ê¤¿¤¤¤Í¡Ë
86 #==============================================================================
87 my $config = &Util::load_config_hash($wiki,$wiki->config('config_file'));
88 foreach my $key (keys(%$config)){
89 $wiki->config($key,$config->{$key});
91 # ¸ÄÊ̤ËÀßÄ꤬ɬÍפʤâ¤Î¤À¤±¾å½ñ¤
93 $wiki->config('theme_uri')."/".$config->{theme}."/".$config->{theme}.".css");
94 $wiki->config('site_tmpl',
95 $wiki->config('tmpl_dir')."/site/".$config->{site_tmpl_theme}."/".$config->{site_tmpl_theme}.".tmpl");
96 $wiki->config('site_handyphone_tmpl',
97 $wiki->config('tmpl_dir')."/site/".$config->{site_tmpl_theme}."/".$config->{site_tmpl_theme}."_handyphone.tmpl");
99 #==============================================================================
100 # ¥¿¥¤¥à¥¢¥¦¥È¤·¤Æ¤¤¤ë¥»¥Ã¥·¥ç¥ó¤òÇË´þ
101 #==============================================================================
102 $cgi->remove_session($wiki);
104 #==============================================================================
105 # ¥æ¡¼¥¶¾ðÊó¤ÎÆɤ߹þ¤ß
106 #==============================================================================
107 my $users = &Util::load_config_hash($wiki,$wiki->config('userdat_file'));
108 foreach my $id (keys(%$users)){
109 my ($pass,$type) = split(/\t/,$users->{$id});
110 $wiki->add_user($id,$pass,$type);
113 #==============================================================================
114 # ¥×¥é¥°¥¤¥ó¤Î¥¤¥ó¥¹¥È¡¼¥ë¤È½é´ü²½
115 #==============================================================================
116 my @plugins = split(/\n/,&Util::load_config_text($wiki,$wiki->config('plugin_file')));
117 my $plugin_error = '';
118 foreach(sort(@plugins)){
119 $plugin_error .= $wiki->install_plugin($_);
121 # ¥×¥é¥°¥¤¥ó¤´¤È¤Î½é´ü²½½èÍý¤òµ¯Æ°
122 $wiki->do_hook("initialize");
124 #==============================================================================
125 # ¥¢¥¯¥·¥ç¥ó¥Ï¥ó¥É¥é¤Î¸Æ¤Ó½Ð¤·
126 #==============================================================================
127 my $action = $cgi->param("action");
128 my $content = $wiki->call_handler($action);
130 # ¥×¥é¥°¥¤¥ó¤Î¥¤¥ó¥¹¥È¡¼¥ë¤Ë¼ºÇÔ¤·¤¿¾ì¹ç
131 $content = $plugin_error . $content if $plugin_error ne '';
133 #==============================================================================
135 #==============================================================================
137 my $is_handyphone = &Util::handyphone();
138 my $template_name = "";
140 if ($is_handyphone) {
141 $template_name = 'site_handyphone_tmpl';
143 $template_name = 'site_tmpl';
146 # ¥È¥Ã¥×¥Ú¡¼¥¸¤«¤É¤¦¤«¤òȽÄê
148 if($cgi->param("page") eq $wiki->config("frontpage")){
152 # ¥Ú¡¼¥¸¤Î¥¿¥¤¥È¥ë¤ò·èÄê
154 if($cgi->param('action') eq "" && $wiki->page_exists($cgi->param('page')) && $wiki->is_installed('search')){
155 $title = "<a href=\"".$wiki->create_url({action=>"SEARCH",word=>$wiki->get_title()})."\">".
156 &Util::escapeHTML($wiki->get_title())."</a>";
158 $title = &Util::escapeHTML($wiki->get_title());
161 #------------------------------------------------------------------------------
163 #------------------------------------------------------------------------------
164 my $header_tmpl = HTML::Template->new(filename => $wiki->config('tmpl_dir')."/header.tmpl",
165 die_on_bad_params => 0,
166 case_sensitive => 1);
169 foreach(sort {$b->{weight}<=>$a->{weight}} @{$wiki->{menu}}){
170 if($_->{href} ne ""){
174 $header_tmpl->param(MENU => \@menu,
176 my $header = $header_tmpl->output();
178 #------------------------------------------------------------------------------
180 #------------------------------------------------------------------------------
181 my $footer_tmpl = HTML::Template->new(filename => $wiki->config('tmpl_dir')."/footer.tmpl",
182 die_on_bad_params => 0,
183 case_sensitive => 1);
185 # ¥³¥Ô¡¼¥é¥¤¥È¤òɽ¼¨¤¹¤ë¤«¤É¤¦¤«
186 my $admin_name = $wiki->config('admin_name');
187 my $admin_mail = $wiki->config('admin_mail_pub');
188 my $out_copyright = 1;
189 if($admin_name eq ""){ $admin_name = $admin_mail; }
190 if($admin_name eq "" && $admin_mail eq ""){ $out_copyright = 0; }
192 $footer_tmpl->param(ADMIN_NAME => $admin_name,
193 ADMIN_MAIL => $admin_mail,
194 OUT_COPYRIGHT => $out_copyright,
196 VERSION => Wiki->VERSION,
199 if(exists $ENV{MOD_PERL}){
200 $footer_tmpl->param(MOD_PERL=>$ENV{MOD_PERL});
203 my $footer = $footer_tmpl->output();
205 #------------------------------------------------------------------------------
206 # ¥µ¥¤¥È¥Æ¥ó¥×¥ì¡¼¥È¤Î½èÍý
207 #------------------------------------------------------------------------------
208 # ¥Æ¥ó¥×¥ì¡¼¥È¤ÎÆɤ߹þ¤ß
209 my $template = HTML::Template->new(filename => $wiki->config($template_name),
210 die_on_bad_params => 0,
211 case_sensitive => 1);
213 # »²¾È¸¢¸Â¤¬¤¢¤ë¤«¤É¤¦¤«
215 if($action ne '' || ($action eq '' && $wiki->can_show($cgi->param('page')))){
219 # head¥¿¥°Æâ¤Ëɽ¼¨¤¹¤ë¾ðÊó¤òºîÀ®
221 foreach (@{$wiki->{'head_info'}}){
222 $head_info .= $_."\n";
225 # ¥Æ¥ó¥×¥ì¡¼¥È¤Ë¥Ñ¥é¥á¡¼¥¿¤ò¥»¥Ã¥È
226 $template->param(SITE_TITLE => &Util::escapeHTML($wiki->get_title()." - ".$wiki->config('site_title')),
232 EDIT_MODE => $action,
233 CAN_SHOW => $can_show,
234 HEAD_INFO => $head_info,
235 SITE_NAME => $wiki->config('site_title'));
237 my $login = $wiki->get_login_info();
239 IS_ADMIN => defined($login) && $login->{type}==0,
240 IS_LOGIN => defined($login)
243 if ($is_handyphone) {
245 $output = $template->output;
246 &Jcode::convert(\$output,"sjis");
249 my $usercss = &Util::load_config_text($wiki,$wiki->config('usercss_file'));
251 if($config->{'theme'} eq ''){
252 # ¥Æ¡¼¥Þ¤¬»ÈÍѤµ¤ì¤Æ¤ª¤é¤º¡¢³°ÉôCSS¤¬»ØÄꤵ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¤½¤ì¤ò»ÈÍÑ
253 if($config->{'outer_css'} ne ''){
254 $wiki->config('css',$config->{'outer_css'});
255 # ¥Æ¡¼¥Þ¤â³°ÉôCSS¤â»ØÄꤵ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¥¹¥¿¥¤¥ë¥·¡¼¥È¤ò»ÈÍѤ·¤Ê¤¤
257 $wiki->config('css','');
261 $template->param(HAVE_USER_CSS => $usercss ne "",
262 THEME_CSS => $wiki->config('css'),
263 USER_CSS => &Util::escapeHTML($usercss),
264 THEME_URI => $wiki->config('theme_uri'));
266 # ¥Ú¡¼¥¸Ì¾¤òEXIST_PAGE_¥Ú¡¼¥¸Ì¾¤È¤¤¤¦¥Ñ¥é¥á¡¼¥¿¤Ë¥»¥Ã¥È
267 # ¤¿¤À¤·¡¢¥¹¥é¥Ã¥·¥å¤ò´Þ¤à¥Ú¡¼¥¸Ì¾¤Ï¥»¥Ã¥È¤·¤Ê¤¤
268 my @pagelist = $wiki->get_page_list();
269 foreach my $page (@pagelist){
270 if(index($page,"/")==-1 && $wiki->can_show($page)){
271 $template->param("EXIST_PAGE_".$page=>1);
275 $output = $template->output;
278 # <!--FSWIKI_INCLUDE PAGE="¥Ú¡¼¥¸Ì¾"-->
279 # ¥Ú¡¼¥¸Ì¾¤ÇWikiName¤ò»ØÄꤹ¤ë¡£
280 my $fswiki_include_tag = '<!--\s*FSWIKI_INCLUDE\s+PAGE\s*=\s*"([^"]*)"\s*-->';
281 while($output =~ /$fswiki_include_tag/o){
282 if($wiki->page_exists($1) && $wiki->can_show($1)){
283 $output =~ s/$fswiki_include_tag/$wiki->process_wiki($wiki->get_page($1))/oe;
285 $output =~ s/$fswiki_include_tag//o;
290 #------------------------------------------------------------------------------
292 #------------------------------------------------------------------------------
295 print "Content-Type: text/html;charset=Shift_JIS\n";
297 print "Content-Type: text/html;charset=EUC-JP\n";
299 print "Pragma: no-cache\n";
300 print "Cache-Control: no-cache\n\n";
307 $ENV{'PATH_INFO'} = undef;
308 $wiki->_process_before_exit();
310 if($msg && index($msg, 'safe_die')<0){
311 $msg = Util::escapeHTML($msg);
312 print "Content-Type: text/html\n\n";
313 print "<html><head><title>Software Error</title></head>";
314 print "<body><h1>Software Error:</h1><p>$msg</p></body></html>";