JSOC/proj/lev1/scripts/patch01_hmi_temperature.pl - view

Return to patch01_hmi_temperature.pl CVS log

Up to [Development] / JSOC / proj / lev1 / scripts

File: [Development] / JSOC / proj / lev1 / scripts / patch01_hmi_temperature.pl (download)
Revision: 1.1, Thu Dec 2 20:41:57 2010 UTC (12 years, 6 months ago) by carl
Branch: MAIN
CVS Tags: Ver_LATEST, Ver_9-5, Ver_9-41, Ver_9-4, Ver_9-3, Ver_9-2, Ver_9-1, Ver_9-0, Ver_8-8, Ver_8-7, Ver_8-6, Ver_8-5, Ver_8-4, Ver_8-3, Ver_8-2, Ver_8-12, Ver_8-11, Ver_8-10, Ver_8-1, Ver_8-0, Ver_7-1, Ver_7-0, Ver_6-4, Ver_6-3, Ver_6-2, Ver_6-1, Ver_6-0, Ver_5-14, Ver_5-13, Ver_5-12, HEAD

Added script to run to update 10 records in hmi.temperature_summary_300s series so that lev1 build can continue.
This was approved by Jim and Rock as a workaround for missing packets in the dayfiles for apid 19 for November
29 from 19:55-20:40. This cause 10 records to be missing from hmi.temperature_summary_300s.

#!/usr/bin/perl
#NAME:patch01_hmi_temperature.pl
#patch01 for hmi.temperature_summary_300s series to add records in for times shown below.
#approved by Rock on 12/2/2010 to run on series.
#the script creates records and sets only T_START value and NUMPTS values to zero.
my $series= "hmi.temperature_summary_300s";
my $tstart="";
my @tstart_array;
push (@tstart_array, "2010.11.29_19:55:00_UTC");
push (@tstart_array, "2010.11.29_20:00:00_UTC");
push (@tstart_array, "2010.11.29_20:05:00_UTC");
push (@tstart_array, "2010.11.29_20:10:00_UTC");
push (@tstart_array, "2010.11.29_20:15:00_UTC");
push (@tstart_array, "2010.11.29_20:20:00_UTC");
push (@tstart_array, "2010.11.29_20:25:00_UTC");
push (@tstart_array, "2010.11.29_20:30:00_UTC");
push (@tstart_array, "2010.11.29_20:35:00_UTC");
push (@tstart_array, "2010.11.29_20:40:00_UTC");

foreach $tstart (@tstart_array)
{
print "-->Writing to series <$series> for T_START <$tstart>\n";
$log=`/home/carl/cvs/JSOC/bin/linux_x86_64/set_keys -c  ds=$series  T_START=$tstart NUMPTS=0`;
print "-->Running set_keys -c ds=$series T_START=$tstart NUMPTS=0 \n-->Log Errors:<$log>\n";
}

Karen Tian