/usr/bin/parsediasql is in libparse-dia-sql-perl 0.17-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
# $Id: parsediasql,v 1.10 2011/02/16 10:23:11 aff Exp $
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use lib q{lib};
use Parse::Dia::SQL;
my $help = undef;
my $file = undef;
my $ignore_type_mismatch = undef;
my $db = undef;
my $uml = undef;
my $loglevel = undef;
GetOptions(
"help|?" => \$help,
"file=s" => \$file,
"db=s" => \$db,
"uml" => \$uml,
"loglevel=s" => \$loglevel,
"ignore_type_mismatch" => \$ignore_type_mismatch,
) or pod2usage(2);
pod2usage(1) if $help;
pod2usage(qq{Missing argument 'file'}) if !$file;
pod2usage(qq{Missing argument 'db'}) if !$db;
my $dia = Parse::Dia::SQL->new(
file => $file,
db => $db,
ignore_type_mismatch => $ignore_type_mismatch,
uml => $uml,
loglevel => $loglevel
);
print $dia->get_sql();
__END__
=pod
=head1 NAME
parsediasql - Command-line interface to Parse::Dia::SQL
=head1 SYNOPSIS
parsediasql [OPTIONS] --file FILE --db DB
=head1 OPTIONS
file - Filename of Dia file
db - Database type (e.g. 'db2')
ignore_type_mismatch - Allows foreign keys to have a different
type than the primary key it references,
if true. Default false.
uml - Use UML interpretation of the diagram,
default is ERD interpretation.
loglevel - Log verbosity, valid values are
DEBUG|INFO|WARN|ERROR|FATAL|TRACE|ALL|OFF.
=head1 DESCRIPTION
Dia is a diagram creation program for Linux, Unix and Windows released
under the GPL license.
parsediasql is a Command-line interface to Parse::Dia::SQL
Parse::Dia::SQL converts Dia class diagrams into SQL.
=head1 TODO
=over
=item *
Add options that correspond to %param in Parse::Dia::SQL::new
=back
=head1 SEE ALSO
Parse::Dia::SQL
=head1 AUTHOR
Parse::Dia::SQL is based on I<tedia2sql> by Tim Ellis and others. See the
I<AUTHORS> file for details.
Modified by Andreas Faafeng, C<< <aff at cpan.org> >> for release on
CPAN.
=cut
|