{{{#!/bin/perl -w

use strict; #use EpicsTools;

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - # This PERL script watches the PSL and does some stuff. # # 1) Watches the FSS and runs the FSS Autolock if the # Refcav breaks lock. # # 2) Watches the PMC and runs the PMC Autolock script # if the PMC is out of lock. # # 3) Same, but for the MZ. All of these require that the # appropriate Lock Acquisition buttons be on. # # 4) Add the ISS to this script. # - - - - - - - - - - - - - - - - - - - - - - - - - - - -

# setup env my $read = "tdsread"; my $write = "tdswrite"; my $step = "ezcastep"; my $switch = "ezcaswitch"; my $scripts = "/cvs/cds/caltech/scripts"; my $pezcabit = "$scripts/general/pezcabit";

my $ifo = "C1"; my $lsc = "${ifo}:LSC"; my $sus = "${ifo}:SUS"; my $ioo = "${ifo}:IOO"; my $psl = "${ifo}:PSL";

# state channel bits my $fss_bit = 0; my $pmc_bit = 1; my $mz_bit = 2; my $imc_bit = 3; my $ifo_bit = 4; my $ad_bit = 5; # not needed in this script my $omc_bit = 6; # not needed in this script

# various numbers my $ifo_state = "${ifo}:IFO-STATE";

# how are these set? my $fss_state = "${ifo}:PSL-FSS_STATE"; my $pmc_state = "${ifo}:PSL-PMC_STATE"; my $mz_state = "${ifo}:PSL-MZ_STATE";

# IFO readback channels (set by state code) my $imc_state = "${ifo}:IOO-MC_LOCK"; my $FSS_la_chan = "${psl}-FSS_LOCK"; my $PMC_la_chan = "${psl}-PMC_LOCK"; my $MZ_la_chan = "${psl}-MZ_LOCK";

# ??? my $FSS_la = 0; my $PMC_la = 0; my $MZ_la = 0;

# various commands my $dateCmd = "date";

# initalize state my $tNow = $dateCmd;

# initialize loop variables my $tDiff = 0; my $isRClocked = 0; my $isPMClocked = 0; my $isMZlocked = 0; my $isIMClocked = 0;

# main watch loop while ( 1 ) {

• ### get some info
  • print "\n\t$tNow"; print "mz: $MZ_la";
  # check to see if the ifo_state

  $isRClocked = $read $fss_state; $isPMClocked = $read $fss_state; $isMZlocked = $read $mz_state;

  $isIMClocked = $read $imc_state; # Set IFO State Bits if ( $isRClocked == 1 ) {

  • print "FSS Locked...\n"; system("$pezcabit $ifo_state $fss_bit SET");
  } else {
  • print "FSS UN-Locked...\n"; system("$pezcabit $ifo_state $fss_bit RESET");
  } if ( $isPMClocked == 1 ) {
  • print "PMC Locked...\n"; system("$pezcabit $ifo_state $pmc_bit SET");
  } else {
  • print "PMC UN-Locked...\n"; system("$pezcabit $ifo_state $pmc_bit RESET");
  } if ( $isMZlocked == 1 ) {
  • print "Mach-Zehnder Locked...\n"; system("$pezcabit $ifo_state $mz_bit SET");
  } else {
  • print "Mach-Zehnder UN-Locked...\n"; system("$pezcabit $ifo_state $mz_bit RESET");
  } if ( $isIMClocked == 1 ) {
  • print "Mode Cleaner Locked...\n"; system("$pezcabit $ifo_state $imc_bit SET");
  } else {
  • print "Mode Cleaner UN-Locked...\n"; system("$pezcabit $ifo_state $imc_bit RESET");
  }
  • # check PSL state

    $FSS_la = $read $FSS_la_chan; $PMC_la = $read $PMC_la_chan; $MZ_la = $read $MZ_la_chan;

  if ( $isRClocked == 0 && $FSS_la == 1 ) {

  • system("sleep 5");

    $isRClocked = $read $fss_state; if ( $isRClocked == 0 && $FSS_la == 1 ) {

    • print "Running FSS Autolocker\n";

      #system("$scripts/PSL/FSS/FSSAutolock &");

    • }
  }

  if ( $isPMClocked == 0 && $PMC_la == 1 ) {

  • print "Running PMC Autolocker\n";

    #system("$scripts/PSL/PMC/PMCAutolock &");

  }

  if ( ($isMZlocked == 0) && ($MZ_la == 1) ) {

  • print "Running MZ Autolocker\n";

    #system("$scripts/PSL/MZ/lockMZ &");

  }

  • $tNow = $dateCmd;

} }}}