billboarddailynews

[llornkcor]

Fixed this one... new Billboard page.
And a compliment to the new handler submit system... cool !!!

LP

--
llornkcor rocknroll
SpiritShip MultiMedia Recording Studio
http://www.llornkcor.com

# -*- mode: Perl; -*-

# AUTHOR: llornkcor rocknroll
# EMAIL: [EMAIL PROTECTED]
# ONE LINE DESCRIPTION: Daily News From Billboard Music Magazine Online
# URL: http://www.billboard.com
# TAG SYNTAX:
# <input name=billboarddailynews>
# LICENSE: GPL
# NOTES:

package NewsClipper::Handler::Acquisition::billboarddailynews;

use strict;
use NewsClipper::Handler;
use NewsClipper::Types;
use vars qw( @ISA $VERSION );
@ISA = qw(NewsClipper::Handler);

# DEBUG for this package is the same as the main.
use constant DEBUG => main::DEBUG;

sub dprint;
*dprint = &main::dprint;

use NewsClipper::AcquisitionFunctions qw( GetLinks );

$VERSION = 0.12;

# ------------------------------------------------------------------------------

# This function is used to get the raw data from the URL.
sub Get
{
  my $self = shift;
  my $attributes = shift;

  my $url = 'http://www.billboard.com/daily/';

  my $startPattern = '<!-- Begin copy for daily index here; remember to change date and time -->';

  my $endPattern = "<!-- Today\/yesterday\'s daily ends here -->";

  my $data = GetLinks($url,$startPattern,$endPattern);
  return undef unless defined $data;


my $pattern1='Read The Full Story</A>';

  @$data = grep {!/$pattern1/} @$data;


  return $data;
}

# ------------------------------------------------------------------------------

sub GetDefaultHandlers
{
  my $self = shift;
  my $inputAttributes = shift;

  my @returnVal = (
    {'name' => 'limit', 'number' => 10},
    {'name' => 'array'}
  );

  return @returnVal;
}

# ------------------------------------------------------------------------------

sub GetUpdateTimes
{
  return ['9, 11, 13, 15, 20','17 EDT'];
#
}

1;