implement 31 char limit for sheet name with warning

git-svn-id: svn://svn.rot13.org/SQL2XLS@11 2e857b76-582b-47e5-ad5c-b3ba0f0ee29b

diff --git a/sql2xls.cgi b/sql2xls.cgi
index 4de6924..9614ebd 100755 (executable)
--- a/sql2xls.cgi
+++ b/sql2xls.cgi
@@ -85,7 +85,8 @@ foreach my $sql_file (@sql_files) {
        $sheet_name =~ s/\.sql//;
 
        # Add a worksheet
-       my $worksheet = $workbook->addworksheet($sheet_name);
+       warn "# clipping sheet name '$sheet_name' to 31 char limit\n" if length $sheet_name > 31;
+       my $worksheet = $workbook->addworksheet( substr($sheet_name,0,31) );
 
        print STDERR "working on $sql_file\n" if ($debug);