[Swift-commit] r3547 - usertools/swift/swiftconfig/lib/perl

[noreply at svn.ci.uchicago.edu]

Author: davidk
Date: 2010-08-16 15:39:41 -0500 (Mon, 16 Aug 2010)
New Revision: 3547

Modified:
   usertools/swift/swiftconfig/lib/perl/SwiftConfig.pm
Log:
Improvements to tc imports


Modified: usertools/swift/swiftconfig/lib/perl/SwiftConfig.pm
===================================================================
--- usertools/swift/swiftconfig/lib/perl/SwiftConfig.pm	2010-08-16 19:45:14 UTC (rev 3546)
+++ usertools/swift/swiftconfig/lib/perl/SwiftConfig.pm	2010-08-16 20:39:41 UTC (rev 3547)
@@ -634,6 +634,15 @@
     foreach(@tc_data) {
         my ($site, $name, $path, $status, $platform, $profile) = split(/\s+/);
         $site = "SWIFTCONFIGURATION";
+        if(!$name) { 
+            $_ = ''; 
+            next; 
+        }
+        my $first_character = substr( $_, 0, 1 );
+        if ( $first_character eq '#' ) {
+            $_ = '';
+            next;
+        }
         $_ = "$site\t$name\t$path\t$status\t$platform\t$profile\n";
    }
    print "Enter name to call this application set: ";