Yoshihisa Fukuhara
higef****@users*****
2006年 3月 1日 (水) 22:09:34 JST
Index: affelio/apps/diary/Diary/WriteDiary.pm
diff -u affelio/apps/diary/Diary/WriteDiary.pm:1.3 affelio/apps/diary/Diary/WriteDiary.pm:1.4
--- affelio/apps/diary/Diary/WriteDiary.pm:1.3 Wed Mar 1 18:33:59 2006
+++ affelio/apps/diary/Diary/WriteDiary.pm Wed Mar 1 22:09:34 2006
@@ -212,21 +212,22 @@
##############################################
sub sendTrackbackPing {
- my ($diary, $url, $title, $contents, $id) = @_;
- $id = $diary->getColumn("SELECT MAX(id) FROM $diary->{entry_table}") unless ($id);
- my %form = (
- title => $title,
- excerpt => "",#Jcode::convert($contents, 'utf8', 'auto'),
- url => $diary->{afap}->get_site_info('web_root')."/apps/$diary->{afap}->{install_name}/index.cgi?id=$id",
- blog_name => $diary->{afap}->get_app_info("install_title")."/".$diary->{afap}->get_owner_info('nickname'),
+ use utf8;
+ my ($diary, $url, $title, $contents, $id) = @_;
+ $id = $diary->getColumn("SELECT MAX(id) FROM $diary->{entry_table}") unless ($id);
+ my %form = (
+ title => $title,
+ excerpt => substr($contents,0,50),
+ url => $diary->{afap}->get_site_info('web_root')."/apps/$diary->{afap}->{install_name}/index.cgi?id=$id",
+ blog_name => $diary->{afap}->get_app_info("install_title")."/".$diary->{afap}->get_owner_info('nickname'),
);
- my $req = POST($url, [%form]);
- my $ua = new LWP::UserAgent;
- my $res = $ua->request($req);
- my $str = $res->as_string;
- if ($str =~ /<error>[^1]*1[^<]*<\/error>/) {
- $diary->errorExit('Failed to send trackback ping');
- }
+ my $req = POST($url, [%form]);
+ my $ua = new LWP::UserAgent;
+ my $res = $ua->request($req);
+ my $str = $res->as_string;
+ if ($str =~ /<error>[^1]*1[^<]*<\/error>/) {
+ $diary->errorExit('Failed to send trackback ping');
+ }
}
##############################################