jm@foo

MT4.1 CustomFields ���

Movable Type��4.1�ˤʤä�ɸ���CustomFields�����ݡ��Ȥ����褦�ˤʤä���
��Ǥ�����
����CustomFields�Τ������ǥǡ����١������ζ����Ȥ����򤹤���̤����ä������������ʤ�����ɡ������ʤ�ȥ��˥�����¿��Υǡ������Ϥ��׵ᤵ�����̤������������������������󤻤�4.1��ư�����äȽŤ���20�Ĥ��餤�Υ���ȥ꡼��������ȸ���줿�����Ǥ�ɤ�����ư�����ư쵤�����դ�������
�Ȥ����櫓�ǰʲ���Movable Type Perl API��CustomFields�򰷤���⡣
�ޤ������ʥɥ�����Ȥ򸫤Ĥ��Ƥ��ʤ��Τǡ����������Ȥ����ʤΤ�������������˻�Ƥߤ�������

addons/Commercial.pack/lib/CustomFields/XMLRPCServer.pm
�����礦�ɤ�������ץ�ˤʤäƤ��롣

�㤨�С�
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use lib qw(lib extlib);
use Data::Dumper;
use MT::Entry;
my $q = new CGI;
my @keywords = $q->keywords;
my $id = shift @keywords;
my $entry = MT::Entry->load($id);
print $q->header(
-type => 'text/plain',
-charset => 'UTF-8',
);
print Dumper $entry;
�Ƥʴ����ǥ���ȥ꡼��dump���������CGI��4.1�Υ���ȥ꡼���ɤ�ȡ�CustomFields���դ�­�����ǡ����ϥ��ꥢ�饤������Ƥ��Ƥ��Τޤޤ��ɤ�ʤ���
���ä���entry������ɤ������Ȥ�get_meta��Ƥ֤ȡ����󥷥ꥢ�饤��������ɤ��褦�ˤʤ롣����ʴ�����
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use lib qw(lib extlib addons/Commercial.pack/lib);
use Data::Dumper;
use MT::Entry;
use CustomFields::Util qw( get_meta save_meta );
my $q = new CGI;
my @keywords = $q->keywords;
my $id = shift @keywords;
my $entry = MT::Entry->load($id);
my $meta = get_meta($entry);
print $q->header(
-type => 'text/plain',
-charset => 'UTF-8',
);
print Dumper $entry;

�ǡ��ɤ�����ʤ�٤Ĥ�use CustomFields::Util���ʤ��Ƥ�
my $entry = MT::Entry->load($id);
my $meta = $entry->meta('customfields');
�äƤ��������ɤ��褦�ˤʤ�ߤ�������

�դ�դࡣ