/usr/share/perl5/WWW/Search/AltaVista/AdvancedNews.pm is in libwww-search-perl 2.51.30-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | # by John Heidemann
# Copyright (C) 1996 by USC/ISI
# $Id: AdvancedNews.pm,v 1.4 2008/01/21 02:04:11 Daddy Exp $
#
# Complete copyright notice follows below.
=head1 NAME
WWW::Search::AltaVista::AdvancedNews - class for advanced Alta Vista news searching
=head1 SYNOPSIS
use WWW::Search;
my $oSearch = new WWW::Search('AltaVista::AdvancedNews');
=head1 DESCRIPTION
This class implements the advanced AltaVista news search
(specializing AltaVista and WWW::Search).
It handles making and interpreting AltaVista web searches
F<http://www.altavista.com>.
Details of AltaVista can be found at L<WWW::Search::AltaVista>.
This class exports no public interface; all interaction should
be done through WWW::Search objects.
=head1 AUTHOR
C<WWW::Search> is written by John Heidemann, <johnh@isi.edu>.
=head1 COPYRIGHT
Copyright (c) 1996 University of Southern California.
All rights reserved.
Redistribution and use in source and binary forms are permitted
provided that the above copyright notice and this paragraph are
duplicated in all such forms and that any documentation, advertising
materials, and other materials related to such distribution and use
acknowledge that the software was developed by the University of
Southern California, Information Sciences Institute. The name of the
University may not be used to endorse or promote products derived from
this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
=cut
#'
#####################################################################
package WWW::Search::AltaVista::AdvancedNews;
use strict;
use warnings;
use base 'WWW::Search::AltaVista';
=head2 native_setup_search
This private method does the heavy lifting after native_query() is called.
=cut
sub native_setup_search
{
my($self) = shift;
if (!defined($self->{_options})) {
$self->{_options} = {
pg => 'aq',
'text' => 'yes',
what => 'news',
fmt => 'd',
'search_url' => 'http://www.altavista.com/cgi-bin/query',
};
};
# let AltaVista.pm finish up the hard work.
return $self->SUPER::native_setup_search(@_);
} # native_setup_search
1;
__END__
|