X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=bin%2Fcpve_linux.pl;fp=bin%2Fcpve_linux.pl;h=d88fca13588d00e3d1a35efadf9312fb6548ed22;hb=13a31c5cdbb0bc24b8cd51776d32d73561294622;hp=0000000000000000000000000000000000000000;hpb=0ac7e1ca2a56397b76df4d4970c8326d3f11518d;p=dotfiles.git

diff --git a/bin/cpve_linux.pl b/bin/cpve_linux.pl
new file mode 100755
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 "$!";