bin/cpve_linux.pl

   1 #!/usr/bin/perl -w
   2 #
   3 use strict;
   4 #use Net::SSH::Perl;
   5
   6 my $diff_file = "temp.diff";
   7 my $remote_machine = 'cpvedev@cpvedev';
   8
   9 !system "svn diff > $diff_file" or die "$!";
  10 !system 'scp ' . $diff_file . ' cpvedev@cpvedev:cpve_trunk/' or die "$!";
  11 my $remote_cmd = ''
  12 !system "ssh  -l cpvedev cpvedev \'cd ~/cpve_trunk && svn revert -R .  && patch -p0 < temp.diff\'" or die "$!";