/[pub]/suikawiki/script/wiki.cgi
Suika

Diff of /suikawiki/script/wiki.cgi

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

revision 1.4 by wakaba, Mon Feb 4 15:03:23 2002 UTC revision 1.5 by wakaba, Mon Feb 4 15:22:00 2002 UTC
# Line 565  sub inline { Line 565  sub inline {
565      $line =~ s|''([^']+?)''|<em>$1</em>|g;                $line =~ s|''([^']+?)''|<em>$1</em>|g;          
566      $line =~ s!      $line =~ s!
567                  (                  (
568                      ((mailto|http|https|ftp):[\x21-\x7E]*) # Direct http://...                      (<(mailto|http|https|ftp|urn):[\x21-\x7E]*)> # Direct http://...
569                          |                          |
570                      ($WikiName)                         # LocalLinkLikeThis                      ($WikiName)                         # LocalLinkLikeThis
571                          |                          |
# Line 670  EOD Line 670  EOD
670  # URLやページの名前からリンクを作る  # URLやページの名前からリンクを作る
671  sub make_link {  sub make_link {
672      my $name = shift;      my $name = shift;
673      if ($name =~ /^(http|https|ftp).*?(\.gif|\.png|\.jpeg|\.jpg)?$/) {      if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) {
674          if ($2) {          if ($2) {
675              return qq|<a href="$name"><img border="0" src="$name" /></a>|;              return qq|<a href="$name"><img border="0" src="$name" /></a>|;
676          } else {          } else {
677              return qq|<a href="$name">$name</a>|;              return qq|&lt;<a href="$name">$name</a>&gt;|;
678          }          }
679      } elsif ($name =~ /^mailto:(.*)/) {      } elsif ($name =~ /^mailto:(.*)/) {
680          my $address = $1;          my $address = $1;
681          return qq|<a href="$name">$address</a>|;          return qq|&lt;<a href="$name">$address</a>&gt;|;
682        } elsif ($name =~ /^urn:[0-9A-Za-z_:-]+/) {
683            return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;
684      } elsif ($database{$name}) {      } elsif ($database{$name}) {
685          my $percent_name = &encode_percent($name);          my $percent_name = &encode_percent($name);
686          return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|;          return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|;
# Line 834  sub print_sample { Line 836  sub print_sample {
836  ----  ----
837  *大見出し2  *大見出し2
838  **小見出し2-1  **小見出し2-1
839  http://www.hyuki.com/  &lt;http://suika.fam.cx/&gt;
840  **小見出し2-2  **小見出し2-2
841    
842  [[結城浩]]  [[結城浩]]
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24