Masato Kikuhara
en-sf****@users*****
2005年 6月 30日 (木) 08:37:48 JST
Index: affelio/apps/diary/Diary.pm
diff -u affelio/apps/diary/Diary.pm:1.14 affelio/apps/diary/Diary.pm:1.15
--- affelio/apps/diary/Diary.pm:1.14 Thu Jun 30 08:13:05 2005
+++ affelio/apps/diary/Diary.pm Thu Jun 30 08:37:48 2005
@@ -375,7 +375,7 @@
my $webroot = $self->{afap}->get_site_info('web_root');
return
"Content-type: text/html; charset=UTF-8\n".
- "Location: $webroot/apps/diary/$file"."\n\n";
+ "Location: $webroot/apps/$self->{afap}->{install_name}/$file"."\n\n";
}
##############################################
@@ -571,7 +571,7 @@
my $uname = $self->{afap}->get_owner_info('nickname');
foreach (@entries) {
- my $link = $web_root."apps/diary/show_diary.cgi?id=$_->{id}";
+ my $link = $web_root."apps/$self->{afap}->{install_name}/show_diary.cgi?id=$_->{id}";
push @item_list, { LINK => $link, };
my ($sec, $min, $hour, $mday, $mon, $year) = localtime($_->{timestamp});
push @items, {
@@ -580,7 +580,7 @@
DESCRIPTION => $_->{contents},
DATE => sprintf("%4d-%02d-%02dT%02d:%02d+09:00", $year, $mon, $mday, $hour, $min),
CREATOR => $uname,
- TPING => $web_root."apps/diary/tb.cgi/$_->{id}",
+ TPING => $web_root."apps/$self->{afap}->{install_name}/tb.cgi/$_->{id}",
};
}
@@ -609,8 +609,8 @@
$tmpl->param(
TITLE => $entry->{title},
- TURL => "$self->{afap}->{af}->{site__web_root}/apps/diary/tb/tb.cgi/$id",
- IDENT => "$self->{afap}->{af}->{site__web_root}/apps/diary/show_diary.cgi?id=$id",
+ TURL => "$self->{afap}->{af}->{site__web_root}/apps/$self->{afap}->{install_name}/tb/tb.cgi/$id",
+ IDENT => "$self->{afap}->{af}->{site__web_root}/apps/$self->{afap}->{install_name}/show_diary.cgi?id=$id",
DESCRIPTION => $entry->{contents},
CREATOR => $self->{afap}->{af}->{user__nickname},
DATE => sprintf("%4d-%02d-%02dT%02d:%02d+09:00", $year, $mon, $mday, $hour, $min),
@@ -739,7 +739,7 @@
my %form = (
title => $title,
excerpt => $contents,
- url => "$self->{afap}->{af}->{site__web_root}/apps/diary/show_diary.cgi?id=$id",
+ url => "$self->{afap}->{af}->{site__web_root}/apps/$self->{afap}->{install_name}/show_diary.cgi?id=$id",
blog_name => "$self->{afap}->{af}->{user__nickname}'s affelio diary",
);
my $req = POST($url, [%form]);
Index: affelio/apps/diary/show_trackback.cgi
diff -u affelio/apps/diary/show_trackback.cgi:1.3 affelio/apps/diary/show_trackback.cgi:1.4
--- affelio/apps/diary/show_trackback.cgi:1.3 Sun Jun 26 13:08:34 2005
+++ affelio/apps/diary/show_trackback.cgi Thu Jun 30 08:37:48 2005
@@ -7,7 +7,7 @@
my $tmpl = HTML::Template->new(filename => "./templates/show_trackback.tmpl");
my @trackbacks = $diary->getTrackbacks($id);
-$tmpl->param(PING_URL => $afap->get_site_info("web_root") . "/apps/diary/tb.cgi/$id", TRACKBACKS => \@trackbacks);
+$tmpl->param(PING_URL => $afap->get_site_info("web_root") . "/apps/$diary->{afap}->{install_name}/tb.cgi/$id", TRACKBACKS => \@trackbacks);
print $diary->get_HTML_header;
print $diary->getURLDescription($id);