"Fossies" - the Fresh Open Source Software Archive

Member "dbMan-0.46/bin/cdbman" (10 May 2018, 1501 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 "cdbman": 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. Curses version.
    9 
   10 =head1 SYNOPSIS
   11 
   12     cdbman
   13 
   14 =head1 DESCRIPTION
   15 
   16 This software provides some functionality in database managing (SQL shell/console). Curses version.
   17 
   18 =cut
   19 
   20 use strict;
   21 use lib '.';    # where I can find dbMan
   22 use FindBin;
   23 use locale;
   24 use vars qw/%ENV %SIG/;
   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 = 'cdbman';      # 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 $ENV{DBMAN_KEYSFILE_INTERNAL} = $ENV{HOME}."/.dbman/keys_curses";
   43 
   44 # main object, command line arguments + interface what I want
   45 my $dbman = new DBIx::dbMan (-argv => \@ARGV, -interface => 'curses');
   46 
   47 # dbMan starting
   48 $dbman->start;
   49 
   50 1;
   51 
   52 =head1 VERSION
   53  
   54 0.45
   55  
   56 =head1 LICENSE
   57 
   58 (c) Copyright 1999-2018 by Milan Sorm <sorm@is4u.cz>
   59 
   60 All rights reserved.
   61 
   62 This program is free software; you can redistribute it and/or modify it
   63 under the same terms as Perl itself.
   64 
   65 =head1 AUTHOR
   66  
   67 Milan Sorm, sorm@is4u.cz
   68 IS4U, s.r.o., Brno, Czech Republic.
   69 
   70 =head1 REPORTING BUGS
   71 
   72 Report bugs directly to sorm@is4u.cz.
   73  
   74 =head1 LAST MODIFIED
   75  
   76 Thu May 10 11:11:15 CEST 2018
   77 
   78 =head1 SEE ALSO
   79  
   80 DBI(3), dbish(1), Curses(3)
   81 
   82 =cut