Changeset 29077
- Timestamp:
- Aug 30, 2010, 9:05:36 AM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/czartool/Burntool.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/czartool/Burntool.pm
r29048 r29077 16 16 my $self = {}; 17 17 $self->{_verbose} = 0; 18 19 # get today's date20 my ($day, $month, $year) = (localtime)[3,4,5];21 $self->{_today} = sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day);22 18 23 19 bless $self, $class; … … 43 39 else {return 0;} 44 40 41 # get today's date 42 my ($day, $month, $year) = (localtime)[3,4,5]; 43 my $today = sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day); 45 44 46 45 if ($self->{_verbose}) {print "Checking $target for $self->{_today}\n";} 47 my $command = "automate_stacks.pl --check_chips --burntool_stats --this_target_only $target --date $ self->{_today}";46 my $command = "automate_stacks.pl --check_chips --burntool_stats --this_target_only $target --date $today"; 48 47 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = 49 48 run(command => $command, verbose => $self->{_verbose});
Note:
See TracChangeset
for help on using the changeset viewer.
