TAO/performance-tests/Protocols/toggle_link.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2     & eval 'exec perl -S $0 $argv:q'
   3     if 0;
   4
   5 # -*- perl -*-
   6
   7 use Time::localtime;
   8 use Time::Local;
   9
  10 # amount of delay between running the servers
  11 $sleeptime = 2;
  12 $phasetime = 3;
  13
  14 $project = "pces/sctp";
  15
  16 $L1_DOWN = "tevc -e $project now link1 down &";
  17 $L1_UP =   "tevc -e $project now link1 up &";
  18 $L2_DOWN = "tevc -e $project now link2 down &";
  19 $L2_UP =   "tevc -e $project now link2 up &";
  20
  21 $now = localtime;
  22 $start_seconds = timelocal ($now->sec, $now->min, $now->hour, $now->mday, $now->mon, $now->year);
  23
  24 print_with_time ("L1 UP");
  25 system ($L1_UP);
  26
  27 print_with_time ("L2 DOWN");
  28 system ($L2_DOWN);
  29
  30 select undef, undef, undef, $phasetime;
  31
  32 for (;;)
  33 {
  34     print_with_time ("L2 UP");
  35
  36     system ($L2_UP);
  37
  38     select undef, undef, undef, $sleeptime / 2;
  39
  40     print_with_time ("L1 DOWN");
  41
  42     system ($L1_DOWN);
  43
  44     select undef, undef, undef, $sleeptime;
  45
  46     print_with_time ("L1 UP");
  47
  48     system ($L1_UP);
  49
  50     select undef, undef, undef, $sleeptime / 2;
  51
  52     print_with_time ("L2 Down");
  53
  54     system ($L2_DOWN);
  55
  56     select undef, undef, undef, $sleeptime;
  57 }
  58
  59 sub print_with_time
  60 {
  61     $now = localtime;
  62     $now_seconds = timelocal ($now->sec, $now->min, $now->hour, $now->mday, $now->mon, $now->year);
  63
  64     print "@_ at ", $now_seconds - $start_seconds, "\n";
  65 }