Subversion Repositories php_library

#! /usr/bin/perl -w

#use Data::Dumper;

sub getFieldInfo {

   my $fieldInfo = shift;

   my $primary_key = shift;

   my @output;

   push @output, "'keyfield' => 1" if ( $primary_key);

   if ($fieldInfo =~ m/not null/i ) {

      push @output, "'required' => true";

      $fieldInfo =~ s/not null//i;  # remove the not null from the string

   }

   if ($fieldInfo =~ m/comment *\'([^']+)\'/i ) {

      $comment = $1;

      $fieldInfo =~ s/comment *\'([^']+)\'//i

   } else {

      $comment = '';

   }

   $fieldInfo =~ s/default +null//i; # we just ignore default null

   if ($fieldInfo =~ m/default +(\'.*\')/i ) {

      $default = $1;

      $fieldInfo =~ s/default +(\'.*\')//i;

      push @output, "'default' => $default";

   } elsif ($fieldInfo =~ /default +([^ ]+)/i ) {

      $default = $1;

      $fieldInfo =~ s/default +([^ ]+)//;

      push @output, "'default' => $default";

   }

   if ($fieldInfo =~ m/auto_increment/i ) {

      push @output, "'readonly' => true";

      $fieldInfo =~ s/auto_increment//i;

   }

   # at this point, we should only have the data type left

   if ( $fieldInfo =~ m/ *([a-z]+)( *\(\d+\))?/i ) {

      $type = $1;

      $size = $2;

      $type =~ s/(varchar)|(char)/string/i;

      push @output, "'type' => '$type'";

      if ($size) {

         $size =~ s/[^0-9]//gi;

         push @output, "'width' => $size";

      } # if

   }

   #return "\n//$original\n\n" . join(" , ", @output);

   return ($comment, join(" , ", @output));

}

sub getTableDef {

   my $table = shift;

   print "$table\n";

   my $unique_key_regex = 'unique key [a-z0-9]+ \(([^)]+)\),?';

   my $primary_key_regex = 'primary key \(([^)]+)\),?';

   my $comment_regex = "comment *'([^']+)'";

   my %tableInformation;

   $table =~ s/ +/ /gi; # remove duplicate spaces

   $table =~ s/ ,/,/gi; # remove all spaces before comma's

   print "$table\n";

   $table =~ m/create table ([a-z0-9_]+) *\((.+)\)([^\(\)]*)$/i; # 

   $tableInformation{'table name'} = $1;

   $table = $2;

   $tableCommentStuff = $3;

   if ( $tableCommentStuff and $tableCommentStuff =~ m/comment.*\'(.*)\'/i ) {

      $tableInformation{'comment'} = $1;

   }

   if ( $table =~ m/$primary_key_regex/i ) {

      $tableInformation{'primary keys'} = $1;

      $table =~ s/$primary_key_regex//i;

   }

   if ( $table =~ m/$unique_key_regex/i ) {

      $tableInformation{'unique keys'} = $1;

      $table =~ s/$unique_key_regex//i;

   }

   my @columnInformation = split(',',$table);

   my %fieldInfo;

   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 );

      }

   } # for

   #$tableInformation{'fields'} = \%fieldInfo;

   #print Dumper(\%fieldInfo );

   my $output = "'" .  $tableInformation{'table name'} . "' => array( \n";

   if ( $tableInformation{'comment'} ) {

      $output .= "/* $tableInformation{'comment'} */\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";

      } else {

         $output .= "\t'key field' => '" . $tableInformation{'primary keys'} . "',\n";

      }

   }

   # do the display columns, basically all columns

   @fields = keys %fieldInfo;

   #$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, "/* " . $fieldInfo{$thisField}{'comment'} . " */" if $fieldInfo{$thisField}{'comment'};

      push @fieldInfo,  "'$thisField' => array(" . $fieldInfo{$thisField}{'data'} . ")";

   }

   $output .= "\t'field info' => array(\n\t\t" . join( ",\n\t\t", @fieldInfo) . "\n\t)\n)";

   return $output;

}

my $inputFileName = shift;

if ($inputFileName) {

   open DATA, "$inputFileName" or die "could not open $inputFileName";

   @input = <DATA>;

   close DATA;

} else {

   @input = <STDIN>;

}

@input = grep( !/^(--)|(\/\*\!)/, @input );

chomp @input;

my @tables = split( ';', join( '', @input) );

my @results;

#push @results, &getTableDef( shift @tables );

foreach $thisTable( @tables ) {

   $thisTable =~ s/\`//gi;

   push @results, &getTableDef( $thisTable );

}

print "<?php\n";

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 define ( DEFAULT_TABLE, 'FILL ME IN');

global \$DATABASE_DEFINITION;

";

print "\$DATABASE_DEFINITION = array(\n" . join( ",\n", @results) . "\n);";

print "\n?>\n";

1;