SVN: toys/rsget.pl: Audio Image Makefile RSGet/Main.pm addgetter

[sparky]

Author: sparky
Date: Tue Nov  3 18:15:41 2009
New Revision: 10934

Added:
   toys/rsget.pl/Audio/
   toys/rsget.pl/Image/
Modified:
   toys/rsget.pl/Makefile
   toys/rsget.pl/RSGet/Main.pm
   toys/rsget.pl/addgetter
Log:
- added Audio and Image directories


Modified: toys/rsget.pl/Makefile
==============================================================================
--- toys/rsget.pl/Makefile	(original)
+++ toys/rsget.pl/Makefile	Tue Nov  3 18:15:41 2009
@@ -4,8 +4,8 @@
 VER =
 PKGDIR = rsget.pl-$(VER)
 
-PLUGIN_DIRS = Get Link Video
-DIRS = RSGet,Get,Link,Video,data
+PLUGIN_DIRS = Get Video Audio Image Link
+DIRS = RSGet,Get,Video,Audio,Image,Link,data
 
 all: rsget.pl
 
@@ -35,8 +35,8 @@
 	cp data/* $(DESTDIR)$(DATADIR)/data
 	for DIR in $(PLUGIN_DIRS); do \
 		cp $$DIR/* $(DESTDIR)$(DATADIR)/$$DIR || exit 1; \
+		grep -l "status:\s*BROKEN" $(DESTDIR)$(DATADIR)/$$DIR/* | xargs -r rm -v; \
 	done
-	grep -l "status:\s*BROKEN" $(DESTDIR)$(DATADIR)/{Get,Link,Video}/* | xargs -r rm -v
 
 .PHONY: clean
 clean:

Modified: toys/rsget.pl/RSGet/Main.pm
==============================================================================
--- toys/rsget.pl/RSGet/Main.pm	(original)
+++ toys/rsget.pl/RSGet/Main.pm	Tue Nov  3 18:15:41 2009
@@ -253,7 +253,7 @@
 		unshift @paths, $main::local_path;
 	}
 	foreach my $path ( @paths ) {
-		foreach my $type ( qw(Get Link Video) ) {
+		foreach my $type ( qw(Get Video Audio Image Link) ) {
 			my $dir = "$path/$type";
 			next unless -d $dir;
 			my $count = 0;
@@ -261,7 +261,7 @@
 				$count += RSGet::Plugin::add( $type, $_ );
 			}
 			new RSGet::Line( "INIT: ", "$dir: found $count new plugins\n" )
-				if $count;
+				if verbose( 2 ) or $count;
 		}
 	}
 }

Modified: toys/rsget.pl/addgetter
==============================================================================
--- toys/rsget.pl/addgetter	(original)
+++ toys/rsget.pl/addgetter	Tue Nov  3 18:15:41 2009
@@ -2,7 +2,7 @@
 
 my $fname = shift @ARGV;
 die "$fname exists" if -r $fname;
-$fname =~ m{^(Get|Video|Link)/([A-Z0-9][a-zA-Z0-9_]*)$} or die "invalid";
+$fname =~ m{^(Get|Video|Audio|Image|Link)/([A-Z0-9][a-zA-Z0-9_]*)$} or die "invalid";
 my ( $dir, $name ) = ($1, $2);
 
 open F_IN, '<', "$dir/.template" or die "no template";