Podcast Synch Batch File - Revision history

Rabbi Bob at 11:01, 7 December 2008

2008-12-07T11:01:51Z

@@ Line 1: / Line 1: @@
 Not finding a good way to manage my podcasts on my Sansa e250 and I'm already manually dumping files from iTunes anyway (my choice).
 Next step I plan to write something that checks:
@@ Line 20: / Line 12: @@
 * <s>Read the Sansa On The Go Playlist and delete files that are found</s>
 * <s>Make dest drive setting value</s>
-* <s>Check ID3 tag and set if blank</s> - see [[&johncdvorak]]
+* '''REMOVED''' <s>Check ID3 tag and set if blank</s> - see [[&johncdvorak]]
 =Script Test=
 [[Image:SubDir.jpg]]
@@ Line 260: / Line 248: @@
+     }
 </pre>
 [[Category:Perl]]
 [[Category:Podcasts]]

Rabbi Bob: /* Perl Script */

2008-12-07T10:56:50Z

Perl Script

Show changes

Rabbi Bob: /* Perl Script */

2008-09-26T23:46:13Z

Perl Script

← Older revision		Revision as of 23:46, 26 September 2008
Line 71:		Line 71:
	my $tag=();		my $tag=();

			print color 'bold blue on_white';
			print "Reading On The Go.plp for files to remove from portable:\n";
			print color 'reset';
			&OnTheGo;

	print color 'bold blue on_white';		print color 'bold blue on_white';
	print "Checking source files to move to destination:\n";		print "Checking source files to move to destination:\n";
	print color 'reset';		print color 'reset';

	&movefiles($podcastsource); #Check what is in the source and not in the dest - copy to dest		&movefiles($podcastsource); #Check what is in the source and not in the dest - copy to dest

	~~print color 'bold blue on_white';~~
	~~print "Reading On The Go.plp for files to remove from portable:\n";~~
	~~print color 'reset';~~

	~~&OnTheGo;~~

	print color 'bold blue on_white';		print color 'bold blue on_white';
	print "Checking for files removed from source:\n";		print "Checking for files removed from source:\n";
	print color 'reset';		print color 'reset';

	&smash($podcastdest); #Check what is in the dest and not in the source - del from dest		&smash($podcastdest); #Check what is in the dest and not in the source - del from dest

Line 158:		Line 154:
	{		{
	$file="$podcastsource/$file";		$file="$podcastsource/$file";
	~~unlink ($file) or warn "Cannot del $file: $!";~~
	print color 'bold yellow on_magenta';		print color 'bold yellow on_magenta';
	print "$2\n";		unlink ($file) or warn "Cannot del $file: $!";
			print "Deleted $file\n";
			unlink ($tmp) or warn "Cannot del $tmp: $!";
			print "Deleted $tmp\n";
	print color 'reset';		print color 'reset';
	}		}
Line 166:		Line 164:
	}		}
	}		}

	&deleteplaylist;		&deleteplaylist;
	}		}
Line 284:		Line 281:
	foreach $file (@files)		foreach $file (@files)
	{		{
	~~#print "$file\n";~~
	if ($dircontents =~ m/($podcastdest)\/(.+)/)		if ($dircontents =~ m/($podcastdest)\/(.+)/)
	{		{
Line 305:		Line 301:
	if(-w $LOGFILE_IN)		if(-w $LOGFILE_IN)
	{		{
	~~print "!!!!!!!!!!!!!\n";~~
	close LOGFILE_IN or warn "Cannot CLOSE $LOGFILE_IN: $!";;		close LOGFILE_IN or warn "Cannot CLOSE $LOGFILE_IN: $!";;
	unlink $LOGFILE_IN or warn "Cannot del $LOGFILE_IN: $!"; #remove the list		unlink $LOGFILE_IN or warn "Cannot del $LOGFILE_IN: $!"; #remove the list
			print color 'bold yellow on_magenta';
			print "Cleared $LOGFILE_IN\n";
			print color 'reset';
	}		}
	}		}

Rabbi Bob: /* Perl Script */

2008-01-22T13:03:45Z

Perl Script

← Older revision		Revision as of 13:03, 22 January 2008
Line 32:		Line 32:

	=Perl Script=		=Perl Script=

			Next time I look at this I will most likely remove the MP3:: info and routines during cleanup. The script has gotten very messy while playing with this.

	<pre>use File::Copy;		<pre>use File::Copy;
	use Win32::Console::ANSI;		use Win32::Console::ANSI;

Rabbi Bob: /* Perl Script */

2008-01-22T13:02:21Z

Perl Script

← Older revision		Revision as of 13:02, 22 January 2008
Line 308:		Line 308:
	}		}
	}		}
			</pre>
	[[Category:Perl]]		[[Category:Perl]]
	[[Category:Podcasts]]		[[Category:Podcasts]]

Rabbi Bob: /* Perl Script */ Updated script - now deletes playlist

2008-01-22T13:02:00Z

Perl Script: Updated script - now deletes playlist

Show changes

Rabbi Bob at 08:56, 30 October 2007

2007-10-30T08:56:36Z

← Older revision		Revision as of 08:56, 30 October 2007
Line 21:		Line 21:
	* <s>Make dest drive setting value</s>		* <s>Make dest drive setting value</s>
	* <s>Check ID3 tag and set if blank</s> - see [[&johncdvorak]]		* <s>Check ID3 tag and set if blank</s> - see [[&johncdvorak]]

			=Autoplay Handler=
			Added an AutoPlay handler (directions [http://windowsxp.mvps.org/addautoplay.htm here]). Now when connected, synchronization is possible from the popup window.

			[[Image:EventAutoHandler sansa.jpg]]

Rabbi Bob at 11:47, 10 June 2007

2007-06-10T11:47:36Z

← Older revision		Revision as of 11:47, 10 June 2007
Line 270:		Line 270:
	}		}
	</pre>		</pre>

			[[Category:Perl]]
			[[Category:Podcasts]]

Rabbi Bob at 12:06, 9 June 2007

2007-06-09T12:06:13Z

@@ Line 12: / Line 12: @@
 Next step I plan to write something that checks:
 * <s>Does file exist in both places - don't copy</s>
 * <s>Does file exist in dest and not in source - del dest</s>
 * <s>Does file exist in source and not in dest - copy source</s>
 * <s>Implement create directory if not exist routine</s>
-* Cleanup the code
+* <s>Read the Sansa On The Go Playlist and delete files that are found</s>
-* Make dest drive setting value
+* <s>Make dest drive setting value</s>
@@ Line 25: / Line 27: @@
 =Perl Script=
-<pre>
+<pre>use File::Copy;
 use Win32::Console::ANSI;
 use Term::ANSIColor;
 use Cwd;
@@ Line 41: / Line 43: @@
 my $dircontents=();
 my $destdir=();
 print color 'bold blue on_white';
@@ Line 60: / Line 64: @@
 &smash($podcastdest);  #Check what is in the dest and not in the source - del from dest
@@ Line 165: / Line 215: @@
                  print color 'reset';
                  copy($filetobecopied, $oldfile) or die "File cannot be copied.";
+                 }
+             }

Rabbi Bob: /* Perl Script */ added functionality

2007-06-08T11:47:29Z

Perl Script: added functionality

Show changes