package Util::SwiftTags; ############################################################################## # # DESCRIPTION: This object defines Swift event tags. # # # HISTORY: $Log: SwiftTags.pm,v $ # HISTORY: Revision 1.5 2005/06/01 13:31:18 apsop # HISTORY: Add ATT_NO_GTI tag. # HISTORY: # HISTORY: Revision 1.4 2005/04/19 15:06:29 apsop # HISTORY: Add XRT_NO_HDFILE message. # HISTORY: # HISTORY: Revision 1.3 2005/04/01 14:51:53 apsop # HISTORY: Update header comment section # HISTORY: # # VERSION: 0.0 # ############################################################################## use strict; use base qw(Exporter); use vars qw(@EXPORT); @EXPORT = qw( SWIFT_TASK_ERROR HEATOOL_ERROR SIMPLEFITS_ERROR BAD_GTI NO_ATTITUDE ATT_NO_GTI BAT_TASK_ERROR BAT_NO_CENTROID BAT_TDRSS_GTIS BAT_NO_GTIS XRT_TASK_ERROR UVOT_TASK_ERROR ZERO_TIME_REMOVED XRT_NO_HDFILE ); use constant SWIFT_TASK_ERROR => 'swift.task.error'; use constant HEATOOL_ERROR => 'heatool.error'; use constant SIMPLEFITS_ERROR => 'simplefits.error'; use constant BAD_GTI => 'bad.gti'; use constant NO_ATTITUDE => 'no.attitude'; use constant ATT_NO_GTI => 'att.no.gti'; use constant BAT_TASK_ERROR => 'bat.task.error'; use constant BAT_NO_CENTROID => 'bat.no.centroid'; use constant BAT_TDRSS_GTIS => 'bat.tdrss.gtis'; use constant BAT_NO_GTIS => 'bat.no.gtis'; use constant XRT_TASK_ERROR => 'xrt.task.error'; use constant XRT_NO_HDFILE => 'xrt.no.hdfile'; use constant UVOT_TASK_ERROR => 'uvot.task.error'; use constant ZERO_TIME_REMOVED => 'times.bad.zero'; 1;