From 629ee71e8f78487407f76aa7f1ff19c341c7cbb2 Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Tue, 18 Jul 2006 16:57:16 +0000
Subject: [PATCH] add syncrss.pl script for use with mod_rss

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@1954 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 scripts/rss/syncrss.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 scripts/rss/syncrss.pl

diff --git a/scripts/rss/syncrss.pl b/scripts/rss/syncrss.pl
new file mode 100755
index 0000000000..169682c954
--- /dev/null
+++ b/scripts/rss/syncrss.pl
@@ -0,0 +1,23 @@
+#!/usr/local/bin/perl
+
+my $home = shift;
+
+$home or die "Usage: $0 <dir>\n";
+chdir($home);
+
+my $hash = {
+	    'freeswitch.rss' => 'http://www.freeswitch.org/xml.php'
+	   };
+
+
+foreach (keys %{$hash}) {
+  my ($dl) = $hash->{$_} =~ /\/([^\/]+)$/;
+
+  my $cmd = "rm -f $_ $dl ; wget $hash->{$_}";
+  if ($dl ne $_) {
+    $cmd .= "; /bin/mv $dl $_";
+  }
+  $cmd .= "\n";
+  print $cmd;
+  system($cmd);
+}