← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/bioperl/gutsy

« back to all changes in this revision

Viewing changes to Bio/DB/Biblio/biofetch.pm

  • Committer: Bazaar Package Importer
  • Author(s): Matt Hope
  • Date: 2004-04-18 14:24:11 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040418142411-gr92uexquw4w8liq
Tags: 1.4-1
* New upstream release
* Examples and working code are installed by default to usr/bin,
  this has been moved to usr/share/doc/bioperl/bin

Show diffs side-by-side

added added

removed removed

Lines of Context:
Bio/DB/Biblio/biofetch.pm
1
 
# $Id: biofetch.pm,v 1.1.2.2 2002/03/14 13:21:58 heikki Exp $
 
1
# $Id: biofetch.pm,v 1.6 2003/06/04 08:36:37 heikki Exp $
2
2
#
3
3
# BioPerl module Bio::DB::Biblio::biofetch.pm
4
4
#
50
50
email or the web:
51
51
 
52
52
  bioperl-bugs@bioperl.org
53
 
  http://bioperl.org/bioperl-bugs/
 
53
  http://bugzilla.bioperl.org/
54
54
 
55
55
=head1 AUTHOR
56
56
 
92
92
 
93
93
 
94
94
package Bio::DB::Biblio::biofetch;
95
 
use vars qw(@ISA $VERSION %HOSTS  %FORMATMAP  $DEFAULTFORMAT 
 
95
use vars qw(@ISA %HOSTS  %FORMATMAP  $DEFAULTFORMAT 
96
96
            $Revision $DEFAULT_SERVICE $DEFAULT_NAMESPACE);
97
97
use strict;
98
98
 
104
104
 
105
105
BEGIN {
106
106
 
107
 
    # set the version for version checking
108
 
    $VERSION = do { my @r = (q$Revision: 1.1.2.2 $ =~ /\d+/g); sprintf "%d.%-02d", @r };
109
 
    $Revision = q$Id: biofetch.pm,v 1.1.2.2 2002/03/14 13:21:58 heikki Exp $;
 
107
    $Revision = q$Id: biofetch.pm,v 1.6 2003/06/04 08:36:37 heikki Exp $;
110
108
 
111
109
    # you can add your own here theoretically.
112
110
    %HOSTS = (
231
229
        ($rformat,$ioformat) = $self->request_format();
232
230
        $self->postprocess_data('type'=> 'string',
233
231
                                'location' => $content);
234
 
        print STDERR "str is $$content\n" if ( $self->verbose > 0);
235
232
        $stream = new Bio::Biblio::IO('-format' => $ioformat,
236
233
#                                     '-data'   => "<tag>". $$content. "</tag>");
237
234
                                      '-data'   => $$content