[Webfetch-commits] SF.net SVN: webfetch:[36] branches/v0.11/lib/WebFetch/Input

[<ik...@us...>]

Revision: 36
          http://webfetch.svn.sourceforge.net/webfetch/?rev=36&view=rev
Author:   ikluft
Date:     2009-08-26 21:28:38 +0000 (Wed, 26 Aug 2009)

Log Message:
-----------
clean up

Modified Paths:
--------------
    branches/v0.11/lib/WebFetch/Input/Atom.pm
    branches/v0.11/lib/WebFetch/Input/PerlStruct.pm
    branches/v0.11/lib/WebFetch/Input/RSS.pm

Modified: branches/v0.11/lib/WebFetch/Input/Atom.pm
===================================================================
--- branches/v0.11/lib/WebFetch/Input/Atom.pm	2009-08-26 21:27:09 UTC (rev 35)
+++ branches/v0.11/lib/WebFetch/Input/Atom.pm	2009-08-26 21:28:38 UTC (rev 36)
@@ -28,7 +28,7 @@
 # no user-servicable parts beyond this point
 
 # register capabilities with WebFetch
-__PACKAGE__->module_register( "input:atom" );
+__PACKAGE__->module_register( "cmdline", "input:atom" );
 
 # called from WebFetch main routine
 sub fetch
@@ -46,7 +46,6 @@
 
 	# set up Webfetch Embedding API data
 	$self->{data} = {}; 
-	$self->{actions} = {}; 
 	$self->{data}{fields} = [ "id", "updated", "title", "author", "link",
 		"summary", "content", "xml" ];
 	# defined which fields match to which "well-known field names"
@@ -102,8 +101,8 @@
 		# save the data record
 		my $id = extract_value( $entry->id() );
 		my $title = extract_value( $entry->title() );
-		my $author = extract_value( $entry->author() );
-		my $link = extract_value( $entry->link() );
+		my $author = extract_value( $entry->author->name );
+		my $link = extract_value( $entry->link->href );
 		my $updated = extract_value( $entry->updated() );
 		my $summary = extract_value( $entry->summary() );
 		my $content = extract_value( $entry->content() );

Modified: branches/v0.11/lib/WebFetch/Input/PerlStruct.pm
===================================================================
--- branches/v0.11/lib/WebFetch/Input/PerlStruct.pm	2009-08-26 21:27:09 UTC (rev 35)
+++ branches/v0.11/lib/WebFetch/Input/PerlStruct.pm	2009-08-26 21:28:38 UTC (rev 36)
@@ -59,7 +59,8 @@
 		push ( @content_links, $subparts );
 	}
 
-	# TODO: build data and actions structures
+	# build data structure
+	$self->{data} = {};
 }
 
 

Modified: branches/v0.11/lib/WebFetch/Input/RSS.pm
===================================================================
--- branches/v0.11/lib/WebFetch/Input/RSS.pm	2009-08-26 21:27:09 UTC (rev 35)
+++ branches/v0.11/lib/WebFetch/Input/RSS.pm	2009-08-26 21:28:38 UTC (rev 36)
@@ -46,7 +46,6 @@
 
 	# set up Webfetch Embedding API data
 	$self->{data} = {}; 
-	$self->{actions} = {}; 
 	$self->{data}{fields} = [ "pubDate", "title", "link", "category",
 		"description" ];
 	# defined which fields match to which "well-known field names"
@@ -55,7 +54,7 @@
 		"url" => "link",
 		"date" => "pubDate",
 		"summary" => "description",
-		"category" => "category"
+		"category" => "category",
 	};
 	$self->{data}{records} = [];
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.