"Fossies" - the Fresh Open Source Software Archive

Member "dbMan-0.46/bin/dbman" (10 May 2018, 1395 Bytes) of package /linux/privat/dbMan-0.46.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. See also the latest Fossies "Diffs" side-by-side code changes report for "dbman": 0.45_vs_0.46.

    1 #! /usr/bin/perl
    2 eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell
    3 
    4 =pod
    5 
    6 =head1 NAME
    7 
    8 dbMan -- interactive command line SQL shell/console.
    9 
   10 =head1 SYNOPSIS
   11 
   12     dbman
   13 
   14 =head1 DESCRIPTION
   15 
   16 This software provides some functionality in database managing (SQL shell/console). 
   17 
   18 =cut
   19 
   20 use strict;
   21 use lib '.';    # where I can find dbMan
   22 use locale;
   23 use open qw/:locale :std/;
   24 use FindBin;
   25 
   26 BEGIN {
   27     # some other paths
   28     unshift @INC,"$FindBin::Bin/../lib";
   29     unshift @INC,"$FindBin::Bin/lib";
   30     unshift @INC,"$FindBin::Bin";
   31 }
   32 
   33 use DBIx::dbMan;    # main module
   34 
   35 $0 = 'dbman';       # process list name
   36 
   37 # main program
   38 
   39 # REAPER - if my children fall into zombie status, I kill him
   40 sub REAPER { wait; $SIG{CHLD} = \&REAPER; }  $SIG{CHLD} = \&REAPER;
   41 
   42 # main object, command line arguments + interface what I want
   43 my $dbman = new DBIx::dbMan (-argv => \@ARGV, -interface => 'cmdline');
   44 
   45 # dbMan starting
   46 $dbman->start;
   47 
   48 1;
   49 
   50 =head1 VERSION
   51  
   52 0.46
   53  
   54 =head1 LICENSE
   55 
   56 (c) Copyright 1999-2018 by Milan Sorm <sorm@is4u.cz>
   57 
   58 All rights reserved.
   59 
   60 This program is free software; you can redistribute it and/or modify it
   61 under the same terms as Perl itself.
   62 
   63 =head1 AUTHOR
   64  
   65 Milan Sorm, sorm@is4u.cz,
   66 IS4U, s.r.o., Brno, Czech Republic.
   67 
   68 =head1 REPORTING BUGS
   69 
   70 Report bugs directly to sorm@is4u.cz.
   71  
   72 =head1 LAST MODIFIED
   73  
   74 Thu May 10 11:11:01 CEST 2018
   75 
   76 =head1 SEE ALSO
   77  
   78 DBI(3), dbish(1)
   79 
   80 =cut