PyukiWiki_Classic_0.1.9¤Ë¤Ä¤¤¤Æ
Ìܼ¡
¥«¥¹¥¿¥Þ¥¤¥º¿·µ¬¥Ú¡¼¥¸¤òºîÀ®¡¦ÊÔ½¸¤¹¤ëºÝ¤Ëwiki¥³¡¼¥ÉÆþÎÏ¥Õ¥©¡¼¥à¤Ë½é´üÃͤòÀßÄꤷ¤¿¤¤¡ª¡¡2013-8-11
¡Ê£±¡Ë if (not $mymsg ){ $mymsg = "\n\n\n\n#counter"; }
$mymsg =~ s/\n?#freeze\r?\n//g; #¡Ö#freeze¡×¤òºï½ü¤·¤Æ¤¤¤ë $mymsg = &htmlspecialchars($mymsg); $mode{admin} = 1; #koala $frozen = 1; #koala my $edit = $mode{admin} ? 'adminedit' : 'edit'; my $escapedmypage = &htmlspecialchars($::form{mypage}); my $escapedmypassword = &htmlspecialchars($::form{mypassword}); if (not $mymsg ){ $mymsg = "\n\n\n\n#counter"; } if ($::extend_edit) { $body .= <<"EOD"; <div> <a href="javascript:insTag('\\'\\'','\\'\\'','bold');"><b>B</b></a>
¥Ú¡¼¥¸¤Î°õºþ»þ¤Ë¡¢¥á¥Ë¥å¡¼¥Ð¡¼¤ä¥¿¥¤¥È¥ë¥Ð¡¼¡¢¥Õ¥Ã¥¿¡¼¤ò°õºþ¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë
div.header {display: none;} div.navigator {display: none;} td.menubar {display: none;} div.footer {display: none;}
<link rel="stylesheet" href="$skin::default_css" type="text/css" media="screen,print" charset="Shift_JIS" /> <link rel="stylesheet" href="$skin::print_css" type="text/css" media="print" charset="Shift_JIS" />
$::css_dir = "$::skin_dir/css";
$skin::print_css = "$::skin_uri/print.css";
¥Ú¡¼¥¸¥Ø¥Ã¥À¡¼¡Ê°ìÈÖ¾å¤ÎÍó¡Ë¤Î¥Ú¡¼¥¸Ì¾¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¤½¤Î¥Ú¡¼¥¸¤ËÈô¤Ö¤è¤¦¤Ë¤¹¤ë
¡ <h1 class="title"><a title="$::resource{searchthispage}" href="$::script?cmd=search&mymsg=$skin::cookedpage">@{[&::htmlspecialchars($skin::page)]}</a></h1> <a href="$::script?$cookedpage">$::script?$skin::cookedpage</a>
¢ <h1 class="title"><a title="@{[&::htmlspecialchars($skin::page)]}" href="$::script?$skin::cookedpage">@{[&::htmlspecialchars($skin::page)]}</a></h1>
[[]]Æâ²èÁü¥¢¥É¥ì¥¹¤Î½èÍý
$::graph_disp = 0; #koala H24.8.28; [[]]Æâ¤Ç¤Î²èÁü¥¢¥É¥ì¥¹¤Ø¤Î¥ê¥ó¥¯¤Ç¡¢²èÁü¤òɽ¼¨¤¹¤ë¡§£±¡¢É½¼¨¤·¤Ê¤¤¡§£°
sub plugin_img_convert { ¡¦¡¦¡¦ if ($uri =~ /\.(gif|png|jpe?g)$/i) { if ($module == 1) { #koala H24.8.28 FROM¡¡¡¡²¼¤Î£É£Æ¥Ö¥í¥Ã¥¯¤òÄɲà if ($::graph_disp == 0) { return ''; } else { # ɬÍפǤ¢¤ì¤Ð¡¢¤³¤ÎÉôʬ¤ò³ÈÄ¥¤¹¤ë¡£ $res .= "<a href=\"$uri\"><img src=\"$uri\" /></a>\n";¡¡¢«¤â¤È¤â¤È¤Ï¤³¤ì¤Î¤ß } # TO
³Æ¼ï¥Ð¥°¤Î²ò·è
£É£Å°Ê³°¤Î¥Ö¥é¥¦¥¶¤Ç¤¦¤Þ¤¯Æ°ºî¤·¤Ê¤¤µ¡Ç½¤¬¤¢¤ë
Á´³Ñʸ»úźÉÕ¥Õ¥¡¥¤¥ë̾¤Î·ï
sub attach_form { my $page = $::form{mypage}; #split(/,/, shift); # $r_page = rawurlencode($page); # my $r_page = $page; # Á´³Ñ¥Ú¡¼¥¸Ì¾¤Ç¤â¤¦¤Þ¤¯¥ê¥¹¥È¤¬É½¼¨¤µ¤ì¤ë¤è¤¦¤Ë¡¡koala¡¡£È£²£´¡¥£´¡¥£²£° my $r_page = &::encode($page); #¢«¥Ú¡¼¥¸Ì¾¤ò¥³¡¼¥É²½ my $s_page = &::htmlspecialchars($page); my $navi =<<"EOD"; #ahrefÆâ¤Ç¡¢À¸¤Î¥Ú¡¼¥¸Ì¾¡Ö$page¡×¤ò¥³¡¼¥É²½¥Ú¡¼¥¸Ì¾¡Ö$r_page¡×¤ËÊѹ¹ <span class="small"> [<a href="$::script?cmd=attach&mypage=$r_page&pcmd=list&refer=$r_page">$::resource{'attach_msg_listpage'}</a>] [<a href="$::script?cmd=attach&mypage=$r_page&pcmd=list">$::resource{'attach_msg_listall'}</a>] </span><br /> EOD
# $url = "$::script?cmd=attach&pcmd=open" # . "&file=$name&mypage=$page&refer=$page"; # ÆüËܸì¥Ú¡¼¥¸Ì¾¡¦¥Õ¥¡¥¤¥ë̾¤¬ref¤Ç¤¦¤Þ¤¯»²¾È¤Ç¤¤Ê¤¤ÉÔ¶ñ¹ç¤Î½¤Àµ $url = "$::script?cmd=attach&pcmd=open" . "&file=" . &::encode($name) . "&mypage=" . &::encode($page) . "&refer=" . &::encode($page) ;
ÊÔ½¸²èÌ̤ǡ¢ÊÔ½¸¥¦¥¤¥ó¥É¥¦¾åÊý¤ÎÆþÎϻٱ祡¼¡Ê¡Ö£Â¡¡£É¡¡£Õ¡¦¡¦¡¦¡×¡Ë¤¬»È¤¨¤Ê¤¤·ï
<script type="text/javascript" src="js/edit.js"></script>
¡Öls£²¡×¥×¥é¥°¥¤¥ó¤Ç¥ê¥¹¥È³Æ¥Ú¡¼¥¸¤Î¸«½Ð¤·¤Ë¥ê¥ó¥¯¤ÇÈô¤Ù¤Ê¤¤·ï
¡ foreach (@txt) { chomp; if (/^(\*{1,3})(.+)/) { &back_push('ul', length($1), \@tocsaved, \@tocresult); push(@tocresult, qq( <li><a href="$::script?$page#i$tocnum">@{[&escape($2)]}</a></li>\n)); $tocnum++; } }
¢ foreach (@txt) { chomp; if (/^(\*{1,3})(.+)/) { &back_push('ul', length($1), \@tocsaved, \@tocresult); my $r_page=&encode($page); #¢«Äɲáʥ¿¥¤¥È¥ë¤Î¥ê¥ó¥¯¤Î¥Ú¡¼¥¸Ì¾¤ò¥³¡¼¥É²½¡Ë # push(@tocresult, qq( <li><a href="$::script?$page#i$tocnum">@{[&escape($2)]}</a></li>\n)); #Ʊ¾å¡£¥³¡¼¥É²½¤·¤Æ¤¤¤Ê¤¤¥Ú¡¼¥¸Ì¾¤Ø¤Î¥ê¥ó¥¯¤ò¤ä¤á¤Æ¡¢ push(@tocresult, qq( <li><a href="$::script?$r_page#i$tocnum">@{[&escape($2)]}</a></li>\n)); #Ʊ¾å¡£¡¡¥³¡¼¥É²½¤·¤¿¥Ú¡¼¥¸Ì¾¤Ø¤Î¥ê¥ó¥¯¤È¤¹¤ë ¡¡ $tocnum++; } } ¡¡
¡Ö#contents¡×¤ÇƱ°ì¥Ú¡¼¥¸Æâ¤Ë¥Ú¡¼¥¸Ì¾»ØÄꤷ¤¿¤â¤Î¤È̵»ØÄê¤Î¤â¤Î¤ò½ç¤ËµºÜ¤¹¤ë¤È̵»ØÄê¤ÎÊý¤Î¥ê¥ó¥¯À襢¥É¥ì¥¹¤ËÀè¤Î»ØÄê¥Ú¡¼¥¸Ì¾¤¬°ú¤·Ñ¤¬¤ì¤Æ¤·¤Þ¤¦·ï
#contents(ÊÌ¥Ú¡¼¥¸Ì¾)¡¡¢«¡Ê£±¡Ë #contents¡¡¢«¡Ê£²¡Ë
¡Ê£±¡Ë my @args = &func_get_args(shift); my $page; if (@args > 0) { $page = $args[0];
¡Ê£²¡Ë my @args = &func_get_args(shift); my $page; $::pushedpage =""; #¢«Äɲáʣȣ²£´¡¥£µ¡Ë¡¡ # Ʊ°ì¥Ú¡¼¥¸¤Ç¥Ú¡¼¥¸Ì¾»ØÄê¤Î#contents¤Î¤¢¤È¤Ë̵»ØÄê¤Î#contents¤¬Â¸ºß¤¹¤ë¾ì¹ç¤Ë¡¢ # ̵»ØÄê¤ÎÊý¤ÇÀè¤Ë»ØÄꤷ¤¿¥Ú¡¼¥¸Ì¾¤¬°ú¤·Ñ¤¬¤ì¤Æ¤·¤Þ¤¦¤³¤È¤òËɻߤ¹¤ë¤¿¤á¤Ë½é´ü²½ÍѤËÁÞÆþ if (@args > 0) { $page = $args[0];
Á´³Ñ¥Ú¡¼¥¸Ì¾¤Î¥Ú¡¼¥¸Æâ¤Î¥¢¥ó¥«¡¼¡Ê¡Î¡ô¡û¡û¡Ï¡Ë¤Ë¡Ö¥Ú¡¼¥¸Ì¾¡ô¥¢¥ó¥«¡¼Ì¾¡×¤Î¥ê¥ó¥¯¤ÇÈô¤Ù¤Ê¤¤·ï †
$chunk = get_fullname($chunk, $::form{mypage}); $cookedchunk = &rawurlencode($chunk); my @echunk=split('#',$chunk); #H24.8.3ÄɲáÊkoala¡Ë my $encchunk=&::encode(@echunk[0]) . '#' . &::encode(@echunk[1]) ; #H24.8.3ÄɲáÊkoala¡Ë if ($::database{$chunk}) { return qq(<a title="$chunk" href="$::script?$cookedchunk">$escapedchunk</a>); } elsif (($chunk =~ /^([^#]*)#/) && $::database{$1}) { # return qq(<a title="$chunk" href="$::script?$chunk">$escapedchunk</a>); return qq(<a title="$chunk" href="$::script?$encchunk">$escapedchunk</a>); #H24.8.3ÄɲáÊkoala¡Ë ¡¡ } elsif (&is_editable($chunk)) { return qq($escapedchunk<a title="$::resource{editthispage}" class="editlink" href="$::script?cmd=edit&mypage=$cookedchunk">$editchar</a>); } return $escapedchunk; } } ¡¡ sub get_fullname {
¥ê¥ó¥¯¤Î¥Ý¥Ã¥×¥¢¥Ã¥×»ØÄ̵꤬»ë¤µ¤ì¤ë·ï
$::use_popup = 1; # ¥ê¥ó¥¯Àè¤ò 1:¥Ý¥Ã¥×¥¢¥Ã¥×/0:¥Ú¡¼¥¸ÀÚÂØ
index.cgi¤Îsub make_linkÆ⣷£¶£³¹ÔÌܤ¢¤¿¤ê¡¢ if ($chunk =~ /(.+?)>(.+)/ or $chunk =~ /(.+?):(.+)/) { # v0.1.4 $escapedchunk = &htmlspecialchars($1); if ($escapedchunk =~ /\.(gif|png|jpe?g)$/) { $escapedchunk = "<img src=\"$escapedchunk\">"; } $chunk = $2; if ($2 =~ /$ismail/) { $escapedchunk = $chunk if ($escapedchunk =~ /^mailto/); $chunk = "mailto:$chunk" if ($chunk !~ /^mailto:/); return qq(<a href="$chunk">$escapedchunk</a>); } elsif (($chunk =~ /(https?|ftp):.*/) or !$::interwiki{$1}) { $cookedchunk = &rawurlencode($chunk); } } elsif ($chunk =~ /^($ismail)/) { return qq(<a href="mailto:$chunk">$chunk</a>); } if ($chunk =~ /^(https?|ftp):/) { if (&exist_plugin('img') == 1) { $res = &plugin_img_convert("$chunk,module"); return $res if ($res ne ''); } return qq(<a href="$chunk"$target>$escapedchunk</a>); #koala H24.8.23 $targetÄɲà } elsif ($chunk =~ /^$interwiki_name2$/) { my ($intername, $keyword, $anchor) = ($1, $2, $3); if (exists $::interwiki2{$intername}) { my ($code, $url) = %{$::interwiki2{$intername}}; $url =~ s/\$1/&interwiki_convert($code, $keyword)/e; $url = &htmlspecialchars($url.$anchor); return qq(<a href="$url"$target>$escapedchunk</a>); } else { return $escapedchunk; } } elsif ($chunk =~ /^$interwiki_name$/) { my ($intername, $localname) = ($1, $2); my $remoteurl = $::interwiki{$intername}; if ($remoteurl) { $remoteurl =~ s/\b(utf8|euc|sjis|ykwk|asis)\(\$1\)/&interwiki_convert($1, $localname)/e; return qq(<a href="$remoteurl">$escapedchunk</a>); } else { return $escapedchunk; } } ¤Î¥Ö¥í¥Ã¥¯¤Ç¡¢ if ($chunk =~ /^(https?|ftp):/) { if (&exist_plugin('img') == 1) { $res = &plugin_img_convert("$chunk,module"); return $res if ($res ne ''); } return qq(<a href="$chunk"$target>$escapedchunk</a>); #koala H24.8.23 $targetÄɲà ¤ÎÊÖ¤êÃÍÆâ¤Ë¡ðtargetÄɲá£
¡Î¡Îʸ»úÎó¡ä£Õ£Ò£Ì¡Ï¡Ï¤Ç¡¢£Õ£Ò£Ì¤Ë¡Ö¡÷¡×¤ò´Þ¤à¾ì¹ç¤Ë¡¢¥ê¥ó¥¯Àè¤ÎÀèƬ¤Ë¡Ömailto:¡×¤¬ÉÕ¤±¤é¤ì¤Æ¥á¥¢¥É²½¤µ¤ì¤Æ¤·¤Þ¤¦·ï
¡ã½¤ÀµÁ°¡ä if ($2 =~ /$ismail/) { $escapedchunk = $chunk if ($escapedchunk =~ /^mailto/); $chunk = "mailto:$chunk" if ($chunk !~ /^mailto:/); return qq(<a href="$chunk">$escapedchunk</a>); } elsif (($chunk =~ /(https?|ftp):.*/) or !$::interwiki{$1}) { $cookedchunk = &rawurlencode($chunk); }
¡ã½¤Àµ¸å¡ä if (($chunk =~ /(https?|ftp):.*/) or !$::interwiki{$1}) { $cookedchunk = &rawurlencode($chunk); } elsif ($2 =~ /$ismail/) { $escapedchunk = $chunk if ($escapedchunk =~ /^mailto/); $chunk = "mailto:$chunk" if ($chunk !~ /^mailto:/); return qq(<a href="$chunk">$escapedchunk</a>); } #£È£²£µ¡¥£³¡¥£³£°koalaÊѹ¹
Counter: 4337,
today: 5,
yesterday: 1
|