Changeset 36706 for trunk/ippToPsps/config/parse_vot.pl

Timestamp:

Apr 30, 2014, 11:43:09 AM (12 years ago)

Author:

heather

Message:

working detectionbatch, needs lot of work on stack

File:

• trunk/ippToPsps/config/parse_vot.pl (modified) (5 diffs)

trunk/ippToPsps/config/parse_vot.pl

@@ -3 +3 @@
 # this thing will just parse the votables and print out in 'ken schema style'
 
-$wiki=1;
-
+#$wiki=1;
+$csv = 1;
 $infield = 0;
 $intable = 0;
@@ -33 +33 @@
         if($datatype eq "long") {$datatype1 = "BIGINT 8";}
 
-        
+        if ($csv) {
+            $datatype1 =~ s/ .//;
+
+        }
 
         if ($_ =~ /.*default=\"/) {
@@ -49 +52 @@
         if ($wiki) {
         printf("||%-17s||   %-15s||   %-15s ||   %-5s||",$name, $unit, $datatype1, $default);
-        } else {
-        printf("%-17s   %-15s   %-15s    %-5s",$name, $unit, $datatype1, $default);
+        } elsif ($csv) {
+            printf("%s,%s,%s,%s,\"",$name, $unit, $datatype1, $default);
         }
-
+        
 
         $infield = 1;
@@ -68 +71 @@
             if ($_ =~ /\<\/FIELD/) {
                 if ($wiki) { print "||";}
+                if ($csv) {print "\"";}
                 print "\n";
                 $infield = 0;
             }
-
+            
         } else {
             #not in field something new
@@ -80 +84 @@
                 $name =~ s/\".*//g;
                 $intable = 1;
-                print "---------------------------\n";
-                printf ("%-16s   ", $name);
+                if ($csv) {
+                    print "$name\n";
+                } else {
+                    print "---------------------------\n";
+                    printf ("%-16s   ", $name);
+                }
             } else {
                 if ($intable) {
-                            if ($_ =~ /\<\/DESCRIPTION/) {
-                $t = $_;
-                chomp $t;
-                $t =~ s/\s+\<DESCRIPTION\>//;
-                $t =~ s/\<\/DESCRIPTION\>//;
-                print "$t\n";
-                print "---------------------------\n";
-                $intable = 1;
+                    if ($_ =~ /\<\/DESCRIPTION/) {
+                        $t = $_;
+                        chomp $t;
+                        $t =~ s/\s+\<DESCRIPTION\>//;
+                        $t =~ s/\<\/DESCRIPTION\>//;
+                        if ($csv) {
+                            $dostuff = 1;
+                        } else {
+                            print "$t\n";
+                            print "---------------------------\n";
+                        }
+                        $intable = 1;
+                        
+                    }
+                    
+                }
+            }
+            if ($_ =~ /\<\/TABLE\>/) {
+                $intable = 0;
             }
 
-                }
-                if ($_ =~ /\<\/TABLE\>/) {
-                    $intable = 0;
-                }
-            }
-
+            
         }
     }