scripts/update_cpve.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use Getopt::Std;
   6
   7 my %options = ();
   8 getopts("n", \%options);
   9 print "-n $options{n}\n" if defined $options{n};
  10
  11 my $ip = (split / /, `ifconfig | grep "inet .*broadcast"`)[1];
  12
  13 if($options{n})
  14 {
  15     print "==== don't build CPVE ======\n";
  16 }
  17 else
  18 {
  19     print "building cpve\n";
  20     chdir '/Users/peli3/CPVE/cpve_trunk' or die ": $!";
  21     !system "scons arch=x86_64 platform=darwin debug=True -j16 osxversion=10.10"    or die "building CPVE failed : $!";
  22
  23     chdir '/Users/peli3/JCC/ecc-p2p' or die ": $!";
  24     print "remove cpve libs\n";
  25     !system "rm -rf ./contrib/cpve/lib/darwin/x86_64/*"     or die "remove libs failed : $!";
  26
  27     print "copy cpve libs\n";
  28     !system "/bin/cp -r /Users/peli3/CPVE/cpve_trunk/target/dist/lib/darwin/x86_64/* ./contrib/cpve/lib/darwin/x86_64/"     or die "copy libs failed: $!";
  29
  30 }
  31
  32 print "building ecc\n";
  33 !system "python runSconsBuild.py JabberMac64Bit  -j 16  -t no --early_cpve"     or die " building ECC failed : $!";
  34
  35 print "copy bin-s bin-c\n";
  36 ###system "rm -rf bin-s binn-c";
  37 !system "/bin/cp -r out/bin ./bin-c" or die "$!";
  38 !system "/bin/cp -r out/bin ./bin-s" or die "$!";
  39
  40 print "copy config files\n";
  41 !system "/bin/cp ./sss.txt  ./bin-s/cucm-credentials.txt" or die ": $!";
  42 !system "/bin/cp ./ccc.txt  ./bin-c/cucm-credentials.txt" or die ": $!";
  43
  44 print "add p2p server ip\n";
  45 open CONF, ">>", './bin-c/cucm-credentials.txt' or  die "error $!";
  46 #print CONF "P2P_SERVER_IP=" . &get_local_ip . "\n";
  47 print CONF "P2P_SERVER_IP=" . $ip . "\n";
  48 close CONF;
  49
  50
  51 print "####### DONE #######\n";
  52
  53 #sub get_local_ip{
  54 #    my @cc = (split / /, `ifconfig | grep "inet .*broadcast"`)[1];
  55 ##    @cc[1]; ## return value
  56 ##    return @cc[1];
  57 #}
  58