#!/usr/bin/perl

# Routine to fix double quotes in DESCRIPTION "Telescope:" line.  The list of 
# files (and paths) needing fixing is in "quote.lst".
#
# 25 August 2006 A.C.Raugh
#

$TMPFILE = "__bob.tmp";

open(QTE,"quote.lst") || die "Could not open quote.lst ($!)";

while ($file=<QTE>)
  { chop $file;
    $file =~ s/lbl:.*$/lbl/;
    
    open (LBL,$file) || die "Could not open $file ($!)";
    open (TMP,">$TMPFILE") || die "Could not open $TMPFILE ($!)";

    $line = <LBL>;
    while ((!eof(LBL))  &&  $line !~ /Telescope/)
      { print TMP $line;
        $line = <LBL>; 
      }

    if ((eof(LBL))  ||  $line !~ /"/)
      { close(LBL);
        close(TMP);
        unlink(TMP);
        next;
      }

    $line =~ s/" /''/;
    print TMP $line;

    # Transfer rest of file:

    while (!eof(LBL))
      { $line = <LBL>;
        print TMP $line;
      }

    close(TMP);
    close(LBL);

    rename $TMPFILE,$file;
  }