Diff for scripts/perl/oracle/oracledump.pl between version 1.35 and 1.36
| version 1.35, 2008/08/23 20:40:12 |
version 1.36, 2008/08/23 20:48:06 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| |
|
| # $Platon: scripts/perl/oracle/oracledump.pl,v 1.34 2008-08-23 19:21:26 nepto Exp $ |
# $Platon: scripts/perl/oracle/oracledump.pl,v 1.35 2008-08-23 20:40:12 nepto Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
|
|
| |
|
| if ( !defined $opt_no_create_info ) { |
if ( !defined $opt_no_create_info ) { |
| if ($opt_mysql_compliant_dump) { |
if ($opt_mysql_compliant_dump) { |
| if ($row[5] =~ /^to_date/i or $row[5] =~ /^(USER|UID)/i or $row[5] =~ /\(\)/) { |
if ($row[5] =~ /^to_date/i or $row[5] =~ /^(USER|UID)/i or $row[5] =~ /\(\)/ or $row[5] =~ /--/) { |
| undef $row[5]; |
undef $row[5]; |
| } elsif ($row[5] =~ /\((.*)\)/) { |
} elsif ($row[5] =~ /\((.*)\)/) { |
| $row[5] = $1; |
$row[5] = $1; |
Platon Group <platon@platon.org> http://platon.org/
|
|
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to