Diff for scripts/perl/oracle/oracledump.pl between version 1.11 and 1.12
| version 1.11, 2004/01/23 18:38:20 |
version 1.12, 2004/02/15 18:58:20 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| |
|
| # $Platon: scripts/perl/oracle/oracledump.pl,v 1.10 2004/01/23 14:12:42 nepto Exp $ |
# $Platon: scripts/perl/oracle/oracledump.pl,v 1.11 2004/01/23 18:38:20 nepto Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
|
|
| : ( $row[1] eq 'DATE' |
: ( $row[1] eq 'DATE' |
| ? 'DATETIME' : $row[1] ) ) ), |
? 'DATETIME' : $row[1] ) ) ), |
| ( defined $row[5] |
( defined $row[5] |
| ? 'DEFAULT ' . $row[5] |
? ($row[5] =~ /^SYSDATE/i ? '' : 'DEFAULT ' . $row[5]) |
| : '' ), |
: '' ), |
| ( $row[6] eq 'Y' |
( $row[6] eq 'Y' |
| ? '' |
? '' |
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