Rename scripts to bin

[dotfiles.git] / bin / cpve_linux.pl

diff --git a/bin/cpve_linux.pl b/bin/cpve_linux.pl
new file mode 100755 (executable)
index 0000000..d88fca1
--- /dev/null
+++ b/bin/cpve_linux.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+#
+use strict;
+#use Net::SSH::Perl;
+
+my $diff_file = "temp.diff";
+my $remote_machine = 'cpvedev@cpvedev';
+
+!system "svn diff > $diff_file" or die "$!";
+!system 'scp ' . $diff_file . ' cpvedev@cpvedev:cpve_trunk/' or die "$!";
+my $remote_cmd = ''
+!system "ssh  -l cpvedev cpvedev \'cd ~/cpve_trunk && svn revert -R .  && patch -p0 < temp.diff\'" or die "$!";