Kousuke Taniguchi
tinse****@u01*****
2003年 6月 24日 (火) 23:48:07 JST
Forktinsep19です。
すいません。なんか凄い形式でメール送っちゃってました。
送り直します。
diff -urN Wiki.orig/Keyword.pm Wiki/Keyword.pm
--- Wiki.orig/Keyword.pm 2003-06-20 17:43:38.000000000 +0900
+++ Wiki/Keyword.pm 2003-06-23 23:11:14.000000000 +0900
@@ -12,9 +12,11 @@
sub new {
my $class = shift;
my $wiki = shift;
-
+ my $interwiki = shift;
+
my $self = {};
$self->{wiki} = $wiki;
+ $self->{interwiki} = $interwiki;
$self->{keywords} = [];
bless $self,$class;
@@ -99,6 +101,13 @@
my $label = $1;
my $url = $2;
$self->url_anchor($url,$label);
+ #InterWikiName
+ } elsif($self->{interwiki}->exists_interwiki($source)){
+ my $pre = $self->{interwiki}->{g_pre};
+ my $post = $self->{interwiki}->{g_post};
+ my $label = $self->{interwiki}->{g_label};
+ my $url = $self->{interwiki}->{g_url};
+ $self->url_anchor($url,$label);
# ページ別名リンク
} elsif($source =~ /\[\[([^\[]+?)\|(.+?)\]\]/){
diff -urN Wiki.orig/Parser.pm Wiki/Parser.pm
--- Wiki.orig/Parser.pm 2003-06-20 17:43:26.000000000 +0900
+++ Wiki/Parser.pm 2003-06-23 23:09:06.000000000 +0900
@@ -17,8 +17,8 @@
my $self = {};
$self->{wiki} = $wiki;
- $self->{keyword} = Wiki::Keyword->new($wiki);
$self->{interwiki} = Wiki::InterWiki->new($wiki);
+ $self->{keyword} = Wiki::Keyword->new($wiki,$self->{interwiki});
$self->{dl_flag} = 0;
$self->{dt} = "";