# Copyright (c) 2008 bivio Software, Inc. All Rights Reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: TextPlain.pm,v 1.2 2008/06/17 02:06:43 nagler Exp $ package Bivio::Search::Parser::RealmFile::TextPlain; use strict; use Bivio::Base 'SearchParser.RealmFile'; our($VERSION) = sprintf('%d.%02d', q$Revision: 1.2 $ =~ /\d+/g); sub CONTENT_TYPE_LIST { return qw(text/plain text/tab-separated-values text/csv); } sub handle_realm_file_new_text { my($proto, $parseable) = @_; my($ct) = $parseable->get('content_type'); return $proto->new({ type => $ct eq 'application/octet-stream' ? 'text/plain' : $ct, text => $parseable->get_content, }); } 1;