This file is indexed.

/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