| Y2K Complient | Y2K Comments | ||
| --------- | PERL PACKAGES ---------------------------- | ||
| ctime.pl | yes: untill 2070 | ||
| timelocal.pl | probably | ||
| --------- | PERL LIBS ---------------------------------- | ||
| ftplib.pl | ? | ||
| tdb.pl | TDB Dependant | uses tdbfetch and tdbstore | |
| sdsopts.pl | yes | ||
| status.pl | ? | ||
| sds_util.pl | TDB Dependant | uses tdbfetch | |
| redirect.pl | yes | ||
| mwr_sync.pl | ? | ||
| time_convert.pl | yes | subs take two digit year but is ok until 2090. | |
| --------- | ICM -------------------------------------------- | ||
| icmrunning.c | yes | ||
| icmtrigger.c | yes | ||
| icm.pl | no | sub julian2sec: # This routine will not work in the year 2000 or later. sub real_collect: (1990 < $j[1]) && (1999 > $j[1]) && ($mybackuptime = &julian2sec($j[1],$j[2],$j[3])); | |
| --------- | COMMUNICATION --------------------------- | ||
| opslog_sendmail.pl | Sendmail Dependant | ||
| ftp_comm.pl | no | $yymm = `date -u +%y%m`; chop($yymm); $transfer_log = "$log_dir/$inst_plat/COMLOG.$yymm"; | |
| icm_comm | ? | ||
| --------- | MISC ------------------------------------------ | ||
| sonde_nws_extract.pl | |||
| tdbarchive | |||
| daily_report.pl | |||
| --------- | TRANSFER -------------------------------- | ||
| kill_ftps.pl | yes | ||
| site_transfer.pl | yes | ||
| transfer.pl | yes | ||
| transfer2.pl | yes | ||
| move_to_outgoing.pl | yes | ||
| move.pl | yes | ||
| StageCheck.pl | no | TDB Dependant: uses tdbfetch Creates log files with two digit year | |
| /lib/custodian.pl | yes | ||
| /lib/date.pl | yes | ||
| /lib/debug.pl | yes | ||
| /lib/file_manip.pl | yes | ||
| /lib/init.pl | yes | ||
| --------- | DOORSTEP -------------------------------- | ||
| doorstep_butler.pl | TDB Dependant | uses tdbfetch | |
| mfrsr_butler.pl | yes: until 2090 | ||
| cdl_butler.pl | yes but uses filter.pl | ||
| rwp_param_butler.pl | yes | ||
| ecor_butler.pl | yes | ||
| ecor_filter.pl | no | sub store_newconfig: $yy = $1; ... ($MM, $dd) = &jday_to_mday($jjj, $yy); ... # Now, build a timestamp we can use with co (RCS) $timestamp = "$yy/$MM/$dd $hh:${m}0:00"; | |
| filter.pl | no | sub julian2sec: # This routine will not work in the year 2000 or later. sub map_dataline_to_filename: returns date with 2 digit year. sub rename_temp_files: file names created using years since 1900 using gmtime. | |
| --------- | RWP ------------------------------------------ | ||
| rwp_tape_filter.pl | |||
| rwp_log_rename.pl | |||
| rwp_daily_tar.pl | |||
| rwp_default_par.pl | |||
| if_clean.pl | |||
| --------- | BLC ------------------------------------------- | ||
| st_blc_comm | |||
| mv_blc_logs.sh | |||
| --------- | WWW ---------------------------------------- | ||
| getstats_wrapper | |||
| sds_total_bytes.pl | |||
| --------- | COMLOG ----------------------------------- | ||
| comlog_rename.pl | |||
| comlog_stats.pl | |||
| run_wsiqc.pl | |||
| --------- | RENAME ------------------------------------ | ||
| blc_rename.pl | |||
| digicora_rename.pl | |||
| pccora_rename.pl | |||
| rl_rename.pl | |||
| mplhr_rename.pl | |||
| swats_rename.pl | |||
| aos_rename.pl | |||
| cmdewp_rename.pl | |||
| --------- | BUNDLE ------------------------------------- | ||
| ecor_bundle.pl | |||
| siros_bundle.pl | |||
| mpl_bundle.pl | |||
| blc_bundle.pl | |||
| twr_bundle.pl | |||
| grams_bundle.pl | |||
| mmcr_bundle.pl | |||
| ecor_bundle.pl | |||
| mmcr_bundle.pl | |||
| aos_bundle.pl | |||
| mplhr_bundle.pl | |||
| sirs_bundle.pl | |||
| sws_bundle.pl | |||
| thwaps_bundle.pl | |||
| wsi_bundle.pl | |||
| --------- | CF10------------------------------------------- | ||
| deliver_nws.exp | |||
| create_mom.pl | |||
| sonde_filter.pl | |||
| --------- | DEV10 --------------------------------------- | ||
| wsi_butler.pl | |||
| setup_aeri_comm.pl | |||
| aeri_rename.pl | |||
| new_sirs.pl | |||
| new_swats.pl | |||
| new_thwaps.pl |