現在位置: Top / RNAの改造

RNAの改造

lib/RNA/AntennaTree.pmの740行目あたり

	my $cate = '';
	my $url = $item->{channel}->{ag}->{sourceURL};
	if ($url =~ m/http:\/\/hkd.*/) {$cate = '[O] '}
	if ($url =~ m/http:\/\/www2.*/) {$cate = '[A] '}
   
	my %text_hash = (
		RNAItemTitle => encode($item->{channel}->{title}),
		RNAItemLink => encode($item->{channel}->{link}),
		RNAItemDescription => encode($item->{channel}->{description}),
		RNAItemCreator => encode($item->{channel}->{dc}->{creator}),
		#RNAItemDate => encode($item->{channel}->{dc}->{date}),
		RNAItemSubject => encode($item->{channel}->{dc}->{subject}),
		RNAItemSourceTitle => encode($item->{channel}->{ag}->{source}),
		RNAItemSourceLink => encode($item->{channel}->{ag}->{sourceURL}),
		RNAItemCategory =>  encode($cate),
		RNAItemTimezone   => $tz_str
	);