-
Notifications
You must be signed in to change notification settings - Fork 22
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
2310317
commit ecac864
Showing
25 changed files
with
1,570 additions
and
314 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,24 +1,25 @@ | ||
| name: XML-Feed | ||
| version: 0.07 | ||
| abstract: XML Syndication Feed Support | ||
| author: Six Apart <cpan@sixapart.com> | ||
| license: perl | ||
| build_requires: | ||
| HTML::TokeParser: 0 | ||
| LWP: 0 | ||
| distribution_type: module | ||
| generated_by: Module::Install version 0.57 | ||
| license: perl | ||
| name: XML-Feed | ||
| no_index: | ||
| directory: | ||
| - t | ||
| - inc | ||
| - t | ||
| requires: | ||
| Class::ErrorHandler: 0 | ||
| Feed::Find: 0 | ||
| URI::Fetch: 0 | ||
| XML::RSS: 1.01 | ||
| XML::Atom: 0.08 | ||
| LWP: 0 | ||
| HTML::Parser: 0 | ||
| URI: 0 | ||
| DateTime: 0 | ||
| DateTime::Format::Mail: 0 | ||
| DateTime::Format::W3CDTF: 0 | ||
| Feed::Find: 0 | ||
| List::Util: 0 | ||
| no_index: | ||
| directory: | ||
| - t | ||
| - inc | ||
| generated_by: Module::Install version 0.36 | ||
| URI::Fetch: 0 | ||
| XML::Atom: 0.08 | ||
| XML::RSS: 1.01 | ||
| version: 0.08 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,155 @@ | ||
| #line 1 "inc/HTML/TokeParser.pm - /System/Library/Perl/Extras/5.8.6/darwin-thread-multi-2level/HTML/TokeParser.pm" | ||
| package HTML::TokeParser; | ||
|
|
||
| # $Id: TokeParser.pm,v 2.28 2003/10/14 10:11:05 gisle Exp $ | ||
|
|
||
| require HTML::PullParser; | ||
| @ISA=qw(HTML::PullParser); | ||
| $VERSION = sprintf("%d.%02d", q$Revision: 2.28 $ =~ /(\d+)\.(\d+)/); | ||
|
|
||
| use strict; | ||
| use Carp (); | ||
| use HTML::Entities qw(decode_entities); | ||
| use HTML::Tagset (); | ||
|
|
||
| my %ARGS = | ||
| ( | ||
| start => "'S',tagname,attr,attrseq,text", | ||
| end => "'E',tagname,text", | ||
| text => "'T',text,is_cdata", | ||
| process => "'PI',token0,text", | ||
| comment => "'C',text", | ||
| declaration => "'D',text", | ||
| ); | ||
|
|
||
|
|
||
| sub new | ||
| { | ||
| my $class = shift; | ||
| my %cnf; | ||
| if (@_ == 1) { | ||
| my $type = (ref($_[0]) eq "SCALAR") ? "doc" : "file"; | ||
| %cnf = ($type => $_[0]); | ||
| } | ||
| else { | ||
| %cnf = @_; | ||
| } | ||
|
|
||
| my $textify = delete $cnf{textify} || {img => "alt", applet => "alt"}; | ||
|
|
||
| my $self = $class->SUPER::new(%cnf, %ARGS) || return undef; | ||
|
|
||
| $self->{textify} = $textify; | ||
| $self; | ||
| } | ||
|
|
||
|
|
||
| sub get_tag | ||
| { | ||
| my $self = shift; | ||
| my $token; | ||
| while (1) { | ||
| $token = $self->get_token || return undef; | ||
| my $type = shift @$token; | ||
| next unless $type eq "S" || $type eq "E"; | ||
| substr($token->[0], 0, 0) = "/" if $type eq "E"; | ||
| return $token unless @_; | ||
| for (@_) { | ||
| return $token if $token->[0] eq $_; | ||
| } | ||
| } | ||
| } | ||
|
|
||
|
|
||
| sub _textify { | ||
| my($self, $token) = @_; | ||
| my $tag = $token->[1]; | ||
| return undef unless exists $self->{textify}{$tag}; | ||
|
|
||
| my $alt = $self->{textify}{$tag}; | ||
| my $text; | ||
| if (ref($alt)) { | ||
| $text = &$alt(@$token); | ||
| } else { | ||
| $text = $token->[2]{$alt || "alt"}; | ||
| $text = "[\U$tag]" unless defined $text; | ||
| } | ||
| return $text; | ||
| } | ||
|
|
||
|
|
||
| sub get_text | ||
| { | ||
| my $self = shift; | ||
| my @text; | ||
| while (my $token = $self->get_token) { | ||
| my $type = $token->[0]; | ||
| if ($type eq "T") { | ||
| my $text = $token->[1]; | ||
| decode_entities($text) unless $token->[2]; | ||
| push(@text, $text); | ||
| } elsif ($type =~ /^[SE]$/) { | ||
| my $tag = $token->[1]; | ||
| if ($type eq "S") { | ||
| if (defined(my $text = _textify($self, $token))) { | ||
| push(@text, $text); | ||
| next; | ||
| } | ||
| } else { | ||
| $tag = "/$tag"; | ||
| } | ||
| if (!@_ || grep $_ eq $tag, @_) { | ||
| $self->unget_token($token); | ||
| last; | ||
| } | ||
| push(@text, " ") | ||
| if $tag eq "br" || !$HTML::Tagset::isPhraseMarkup{$token->[1]}; | ||
| } | ||
| } | ||
| join("", @text); | ||
| } | ||
|
|
||
|
|
||
| sub get_trimmed_text | ||
| { | ||
| my $self = shift; | ||
| my $text = $self->get_text(@_); | ||
| $text =~ s/^\s+//; $text =~ s/\s+$//; $text =~ s/\s+/ /g; | ||
| $text; | ||
| } | ||
|
|
||
| sub get_phrase { | ||
| my $self = shift; | ||
| my @text; | ||
| while (my $token = $self->get_token) { | ||
| my $type = $token->[0]; | ||
| if ($type eq "T") { | ||
| my $text = $token->[1]; | ||
| decode_entities($text) unless $token->[2]; | ||
| push(@text, $text); | ||
| } elsif ($type =~ /^[SE]$/) { | ||
| my $tag = $token->[1]; | ||
| if ($type eq "S") { | ||
| if (defined(my $text = _textify($self, $token))) { | ||
| push(@text, $text); | ||
| next; | ||
| } | ||
| } | ||
| if (!$HTML::Tagset::isPhraseMarkup{$tag}) { | ||
| $self->unget_token($token); | ||
| last; | ||
| } | ||
| push(@text, " ") if $tag eq "br"; | ||
| } | ||
| } | ||
| my $text = join("", @text); | ||
| $text =~ s/^\s+//; $text =~ s/\s+$//; $text =~ s/\s+/ /g; | ||
| $text; | ||
| } | ||
|
|
||
| 1; | ||
|
|
||
|
|
||
| __END__ | ||
| #line 341 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,17 @@ | ||
| #line 1 "inc/LWP.pm - /Library/Perl/5.8.6/LWP.pm" | ||
| # | ||
| # $Id: LWP.pm,v 1.149 2005/12/08 12:06:22 gisle Exp $ | ||
|
|
||
| package LWP; | ||
|
|
||
| $VERSION = "5.805"; | ||
| sub Version { $VERSION; } | ||
|
|
||
| require 5.005; | ||
| require LWP::UserAgent; # this should load everything you need | ||
|
|
||
| 1; | ||
|
|
||
| __END__ | ||
| #line 658 |
Oops, something went wrong.