WebSVN – php_library – Diff – /sql2admin_hash.pl

 # NOTE: don't use comma's or parentheses in your comments
 #use Data::Dumper;
+my $secondary = 0;
+my $indentationChar = '   ';
+my $inputFileName = '';
 sub getFieldInfo {
+   my $fieldName = shift;
    my $fieldInfo = shift;
    my $primary_key = shift;
    my @output;
    my $comment = '';
+   push @output, "'display name' => '$fieldName'";
    # For a lookup table, we will just build it
    if ( $fieldInfo =~ m/references\s+([a-z0-9-_]+)\s*\(\s*([a-z0-9-_]+)\s*\)/i ) { # create a lookup
       push @output, "'type' => 'lookup', 'table' => '$1', 'keyfield' => '$2', 'display_field' => 'name'";
    } else { # this is just a standard field
       push @output, "'keyfield' => true" if ( $primary_key);
    $table =~ s/ +/ /gi; # remove duplicate spaces
    $table =~ s/ ,/,/gi; # remove all spaces before comma's
    #print "[$table]\n\n";
    $table =~ m/create table ([a-z0-9_]+) *\((.+)\)([^\(\)]*)$/i; #
    $tableInformation{'table name'} = $1;
+   $tableInformation{'display name'} = $tableInformation{'table name'};
    print STDERR "[$tableInformation{'table name'}]\n";
    $table = $2;
    $tableCommentStuff = $3;
    if ( $tableCommentStuff and $tableCommentStuff =~ m/comment.*\'(.*)\'/i ) {
       $tableInformation{'comment'} = $1;
    for ( $i = 0; $i < @columnInformation; $i++) {
       $columnInformation[$i] =~ s/^ +//;
       if ( $columnInformation[$i] =~ m/ *([a-z0-9_]+) +(.*)/i )  {
          $fieldName = $1;
          $fieldDef = $2;
-         ($fieldInfo{$fieldName}{'comment'},$fieldInfo{$fieldName}{'data'}) = &getFieldInfo($fieldDef, $tableInformation{'primary keys'} ? ($tableInformation{'primary keys'} =~ m/$fieldName/) : 0 );
+         ($fieldInfo{$fieldName}{'comment'},$fieldInfo{$fieldName}{'data'}) = &getFieldInfo($fieldName, $fieldDef, $tableInformation{'primary keys'} ? ($tableInformation{'primary keys'} =~ m/$fieldName/) : 0 );
+      }
    } # for
    #$tableInformation{'fields'} = \%fieldInfo;
    #print Dumper(\%fieldInfo );
    # create the output
    my $output = '';
    if ( $tableInformation{'comment'} ) {
       $output .= "/* $tableInformation{'comment'} */\n";
+   }
+   if ( $secondary ) {
+      $output = "\$DATABASE_DEFINITION['" . $tableInformation{'table name'} . "'] = array(\n";
+   } else {
-   $output .= "'" .  $tableInformation{'table name'} . "' => array( \n";
+      $output .= "'" .  $tableInformation{'table name'} . "' => array( \n";
+   }
    $output .= "\t'table name' => '" . $tableInformation{'table name'} . "',\n";
    if ($tableInformation{'primary keys'}) {
       if ( $tableInformation{'primary keys'} =~ m/,/ ) {
          #following line takes all items in a comma delimited list and quotes them
          $output .= "\t'key field' => array('" . join("','", split( ',',$tableInformation{'primary keys'})) . "'),\n";
    #$fieldNames = join( ',',@fields );
    $output .= "\t'display columns' => array('" . join( "','",@fields ) . "'),\n";
    $output .= "\t'display query' => 'select " . join( ',',@fields ) . " from " . $tableInformation{'table name'} . "',\n";
    my @fieldInfo;
    foreach $thisField (keys %fieldInfo ) {
-      push @fieldInfo, ;
       push @fieldInfo,  ($fieldInfo{$thisField}{'comment'} ? "\t\t/* " . $fieldInfo{$thisField}{'comment'} . " */\n" : '') .
                         "\t\t'$thisField' => array(" . $fieldInfo{$thisField}{'data'} . ")";
+   }
    $output .= "\t'field info' => array(\n" . join( ",\n", @fieldInfo) . "\n\t)\n)";
    return $output;
+}
+sub processCommandLine {
+   while ( $parameter = shift ) {
+      if ($parameter =~ m/-f(.*)/i) {
+         $inputFileName = $1;
+      } elsif ( $parameter =~ m/-s/i) {
-my $indentationChar = '   ';
+         $secondary = 1;
+      }
+   }
+}
-my $inputFileName = shift;
+&processCommandLine( @ARGV );
+# die "Input Filename == $inputFileName, secondary = $secondary\n";
-if ($inputFileName) {
+if ($inputFileName) { # they want us to read from this file
    open DATA, "$inputFileName" or die "could not open $inputFileName";
    @input = <DATA>;
    close DATA;
-} else {
+} else { # no filename entered, so read STDIN
    @input = <STDIN>;
+}
-@input = grep( !/^(--)|(\/\*\!)/, @input );
+@input = grep( !/^(--)|(\/\*\!)/, @input ); # remove all comments
+chomp @input; # get rid of all line endings
-chomp @input;
 # next line read all input, joins it with null,then splits it based on a semi-colon
 # this places all sql statements into one array entry
 # It then filters for only those statements that start with create table
 my @tables = grep(/^create table/i, split( ';', join( '', @input) ));
 #foreach my $thisTable (@tables) {
    $results[$line] = "\t" . $results[$line];
    $results[$line] =~ s/\n/\n\t/g;
    $results[$line] =~ s/\t/$indentationChar/g;
+}
+# now, actually print out the results
+print "<?php\nglobal \$DATABASE_DEFINITION;\n";
+if ( $secondary ) { # this is an auxilary file
-print "<?php\n";
+   print join( ";\n", @results) ;
+} else { # this is the main, or only database.php file
-print "define ( MAX_INPUT_FIELD_DISPLAY, 40 ); // this is the maximum input field size
+   print "define ( MAX_INPUT_FIELD_DISPLAY, 40 ); // this is the maximum input field size
 define ( IMAGE_DIRECTORY, '/pictures/' );  // relative URL where pictures are stored
 define ( EDIT_IMAGE_HEIGHT, 100 );         // height for thumbnail of pictuers
 define ( MAX_UPLOAD_FILE_SIZE, 1024*1024*10 ); // 10 meg
 define (DEFAULT_TEXTAREA_HEIGHT, 5 );
 define ( DEFAULT_TABLE, 'FILL ME IN');
+   ";
-global \$DATABASE_DEFINITION;
+   print "\$DATABASE_DEFINITION = array(\n";
+   print join( ",\n", @results) ;
+   print "\n);";
-";
+}
-print "\$DATABASE_DEFINITION = array(\n" . join( ",\n", @results) . "\n);";
 print "\n?>\n";
 ;

Subversion Repositories php_library

(root)/sql2admin_hash.pl @ 37 – Rev 30 → 31