#!/usr/bin/perl -w

use strict;

foreach my $davelet ( <la/m*> ){
  my $letter = $davelet;
  $letter =~ s,^la/m,,;
  foreach my $pathnum ( <$davelet/*> ){
    my $num = $pathnum;
    $num =~ s,^[^0-9]+,,;

    if(-d "$pathnum/p21p"){
      my $srcd = "$pathnum/p21p/abcd";

      foreach my $stokes ( "q", "u", "i" ){
	system("lnrget $srcd/$stokes M\U$letter$num.P21_${stokes}ABCD.MOSAIC $letter$num.${stokes}\E");
	system("ln -s \U$letter$num.${stokes} $letter$num.${stokes}\E.drao");
	system("/usr/local/karma/bin/ktranslate -outtype miriad - \U$letter$num.${stokes}\E.drao ${stokes}_$letter$num");
      }
    }
  }
}