ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/JSOC/base/util/scripts/sumaintain.pl
Revision: 1.1
Committed: Mon May 23 17:17:40 2011 UTC (12 years, 4 months ago) by arta
Content type: text/plain
Branch: MAIN
CVS Tags: NetDRMS_Ver_6-4, NetDRMS_Ver_8-0, NetDRMS_Ver_6-2, NetDRMS_Ver_6-3, NetDRMS_Ver_6-0, NetDRMS_Ver_6-1, Ver_6-0, Ver_6-1, Ver_6-2, Ver_6-3, Ver_6-4, NetDRMS_Ver_2-7, NetDRMS_Ver_8-8, Ver_8-5, NetDRMS_Ver_7-0, NetDRMS_Ver_8-1, Ver_5-14, Ver_5-13, Ver_7-0, Ver_LATEST, NetDRMS_Ver_LATEST, NetDRMS_Ver_9-9, NetDRMS_Ver_8-12, NetDRMS_Ver_8-10, NetDRMS_Ver_8-11, NetDRMS_Ver_9-1, NetDRMS_Ver_9-0, NetDRMS_Ver_9-3, NetDRMS_Ver_9-2, NetDRMS_Ver_9-5, NetDRMS_Ver_9-4, NetDRMS_Ver_8-2, NetDRMS_Ver_8-3, NetDRMS_Ver_2-6, NetDRMS_Ver_9-41, Ver_9-41, Ver_DRMSLATEST, NetDRMS_Ver_8-4, NetDRMS_Ver_8-5, NetDRMS_Ver_8-6, Ver_8-8, NetDRMS_Ver_8-7, Ver_8-2, Ver_9-3, Ver_8-0, Ver_8-1, Ver_8-6, Ver_8-7, Ver_8-4, Ver_8-11, Ver_7-1, Ver_9-1, Ver_8-3, NetDRMS_Ver_7-1, Ver_9-5, Ver_9-4, Ver_8-10, Ver_9-2, Ver_8-12, Ver_9-0, HEAD
Log Message: 
Fix improper usage of XASSERT.

File Contents

# Content
1 #!/home/jsoc/bin/linux_x86_64/perl -w
2
3 use Inline C => Config => LIBS => '-L/home/arta/cvs/JSOC/lib/linux_x86_64/ -ldrmsserver.a', INC => '-I/home/arta/cvs/JSOC/include';
4 use Inline C => << 'END_C_CODE';
5
6
7 #include "jsoc_main.h"
8
9 char *GetSUs(char *query)
10 {
11 DRMS_RecordSet_t *recset = NULL;
12 int drmsstatus = DRMS_SUCCESS;
13 int irec;
14
15 recset = drms_open_records(drms_env, query, &drmsstatus);
16
17 if (recset && recset->n > 0)
18 {
19
20 }
21
22 }
23
24 END_C_CODE
25
26 $sulist = GetSUs("hmi.M_45s[2010.11.20/1m]");
27
28 print "$sulist\n";
29 exit(0);