Artifact
229dc9c405ebb9e2c4c937b957e136e497fbf2f7
File
utils/runner
— part of check-in
[ae6dbecf17]
at
2011-05-01 23:05:22
on branch trunk
— Importing 1.0.1 version of megatest, (nb// work in progress, please wait for next release)
(user:
matt
size: 500)
0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 70 65 72 6c 20 #!/usr/bin/perl
0010: 2d 77 0a 0a 24 73 74 61 72 74 68 72 3d 60 64 61 -w..$starthr=`da
0020: 74 65 20 2b 25 6b 60 3b 0a 24 68 72 73 70 65 72 te +%k`;.$hrsper
0030: 20 3d 20 31 3b 0a 24 6e 65 78 74 68 72 3d 24 73 = 1;.$nexthr=$s
0040: 74 61 72 74 68 72 20 2b 20 24 68 72 73 70 65 72 tarthr + $hrsper
0050: 3b 0a 0a 24 6c 74 72 3d 27 61 27 3b 0a 0a 77 68 ;..$ltr='a';..wh
0060: 69 6c 65 20 28 31 29 20 7b 0a 20 20 24 72 75 6e ile (1) {. $run
0070: 6e 61 6d 65 20 3d 20 60 64 61 74 65 20 2b 25 47 name = `date +%G
0080: 57 57 25 56 2e 25 75 60 3b 0a 20 20 63 68 6f 6d WW%V.%u`;. chom
0090: 70 20 24 72 75 6e 6e 61 6d 65 3b 0a 20 20 24 72 p $runname;. $r
00a0: 75 6e 6e 61 6d 65 20 3d 20 24 72 75 6e 6e 61 6d unname = $runnam
00b0: 65 20 2e 20 24 6c 74 72 3b 0a 20 20 24 63 6d 64 e . $ltr;. $cmd
00c0: 20 3d 20 22 6d 65 67 61 74 65 73 74 20 2d 72 75 = "megatest -ru
00d0: 6e 61 6c 6c 20 3a 64 61 74 61 70 61 74 68 20 74 nall :datapath t
00e0: 65 73 74 69 6e 67 20 3a 66 73 6e 61 6d 65 20 6c esting :fsname l
00f0: 6f 63 61 6c 20 3a 73 79 73 6e 61 6d 65 20 75 62 ocal :sysname ub
0100: 75 6e 74 75 20 3a 72 75 6e 6e 61 6d 65 20 24 72 untu :runname $r
0110: 75 6e 6e 61 6d 65 22 3b 0a 20 20 70 72 69 6e 74 unname";. print
0120: 20 22 52 75 6e 6e 69 6e 67 20 24 63 6d 64 5c 6e "Running $cmd\n
0130: 22 3b 0a 20 20 73 79 73 74 65 6d 20 24 63 6d 64 ";. system $cmd
0140: 3b 0a 20 20 24 63 75 72 72 68 72 20 3d 20 60 64 ;. $currhr = `d
0150: 61 74 65 20 2b 25 6b 60 3b 0a 20 20 69 66 20 28 ate +%k`;. if (
0160: 24 63 75 72 72 68 72 20 3e 20 24 6e 65 78 74 68 $currhr > $nexth
0170: 72 29 20 7b 0a 20 20 20 20 24 6c 74 72 20 3d 20 r) {. $ltr =
0180: 63 68 72 28 6f 72 64 28 24 6c 74 72 29 2b 31 29 chr(ord($ltr)+1)
0190: 3b 0a 20 20 20 20 24 6e 65 78 74 68 72 3d 24 6e ;. $nexthr=$n
01a0: 65 78 74 68 72 20 2b 20 24 68 72 73 70 65 72 3b exthr + $hrsper;
01b0: 0a 20 20 7d 0a 20 20 69 66 20 28 24 6e 65 78 74 . }. if ($next
01c0: 68 72 20 3e 20 32 33 29 20 7b 0a 20 20 20 20 24 hr > 23) {. $
01d0: 6e 65 78 74 68 72 20 3d 20 30 3b 0a 20 20 7d 0a nexthr = 0;. }.
01e0: 20 20 73 6c 65 65 70 20 31 30 3b 0a 7d 0a 0a 20 sleep 10;.}..
01f0: 20 20 20 0a .