--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/GEMBASSY-1.0.3/doc/text/copydesc.pl	Fri Jun 26 05:19:29 2015 -0400
@@ -0,0 +1,36 @@
+use strict;
+use warnings;
+
+my @progs = split "\n", `wossname -showembassy GEMBASSY -auto | cut -d ' ' -f 1| grep ^g | sort`;
+
+copy($_) foreach @progs;
+
+sub copy {
+    my $prog = shift;
+
+    print STDERR "\r\e[K$prog";
+
+    open my $rdr, "<", "old/$prog.txt";
+    open my $wtr, ">", "final/$prog.txt";
+    open my $tmp, "<", "new/$prog.txt";
+
+    my $out = join "", <$tmp>;
+
+    my $progdesc;
+
+    while(my $line = readline $rdr) {
+        if($line =~ /^Description/) {
+            readline $rdr;
+            while($line !~ /SOAP/) {
+                $line = readline $rdr;
+                last if $line =~ /SOAP/;
+                $progdesc .= $line;
+            }
+        $progdesc =~ s/\n+$//smg;
+        }
+    }
+
+    $out =~ s/\[ProgDef\]\n/$progdesc/smg;
+
+    print $wtr $out;
+}