如何创建 Atom

简介

Atom 的作用请自行搜索。

描述

这里我使用 XML::Atom::SimpleFeed 来创建 Atom

XML::Atom::SimpleFeed 有些许瑕疵，如不能设置编码和多了个默认的 xml:lang="en"

我略微修改了下使之符合我的要求。

1. 删除两处 xml:lang="en"
2. 改 encoding="iso-8859-1" 为 encoding="UTF-8"

代码

如下代码来自我基于 Catalyst 的 Eplanet

use lib "E:/t/Eplanet/hackedlib"; # add the hack file's address
use XML::Atom::SimpleFeed;

my $Atom_file = $c->config->{build_root} . "/atom.xml";
my $title = 'Fayland\'s';
my $link = 'http://www.fayland.org/';
my $description = 'What Fayland says';
	
my $atom = XML::Atom::SimpleFeed->new(
	title    => $title,
	link     => $link,
	tagline  => $description,
	author => { name => 'Fayland Lam' },
)
or die;

my @cats = Eplanet::M::CDBI::Cms->retrieve_from_sql(qq{
	1=1 ORDER BY cms_id DESC LIMIT 0, 20
});

foreach my $cat (@cats) {
	my $_title = $cat->get('cms_title');
	my $_link = "http://www.fayland.org/journal/$cat->{'cms_file'}.html";
	my $_description = $cat->{'cms_describe'};
	my $_create_data = $cat->{'cms_cre_data'};
	# convert to the standard w3cdtf
	$_create_data = date2w3cdtf($_create_data);
	# got the modified data
	my $_modified_data = $cat->{'cms_mod_data'};
	# if not exists, use create data instead
	if ($_modified_data) {
		$_modified_data = date2w3cdtf($_modified_data);
	} else {
		$_modified_data = $_create_data;
	}
		
	$atom->add_entry(
		title    => $_title,
		link     => $_link,
		author   => { name => "Fayland Lam" },
		issued   => $_create_data,
		created  => $_create_data,
		modified => $_modified_data,
		content  => $_description,
	)
	or die;
}

$atom->save_file($Atom_file);

sub date2w3cdtf {
	my $data = shift;
	# the original data foramt like 2005-03-29 23:02:14 & it's a localtime
	# so we convert localtime to $time and got the gmtime

	my ($year, $mon, $mday, $hour, $min, $sec) = ($data =~ /^(\d+)-(\d+)-(\d+)\s(\d+):(\d+):(\d+)$/);
	$mon--;
	use Time::Local;
	my $time = timelocal($sec,$min,$hour,$mday,$mon,$year);
	( $sec, $min, $hour, $mday, $mon, $year) = gmtime($time);
	$year += 1900; $mon++;

	# at last we return the w3c dtf
	my $timestring = sprintf( "%4d-%02d-%02dT%02d:%02d:%02dZ",
        $year, $mon, $mday, $hour, $min, $sec );
 	return ($timestring);
}