You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
102 lines
2.2 KiB
102 lines
2.2 KiB
=pod
|
|
|
|
=head1 NAME
|
|
|
|
App::CommandLog - Tools for logging command line history
|
|
|
|
=head1 INSTALLING
|
|
|
|
$ perl Build.PL
|
|
$ ./Build
|
|
$ ./Build install
|
|
|
|
=cut
|
|
|
|
package App::CommandLog;
|
|
|
|
our ($VERSION) = '0.5.0';
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use DBI;
|
|
|
|
=over
|
|
|
|
=item get_dbh()
|
|
|
|
Get database handle for default commandlog database.
|
|
|
|
=cut
|
|
|
|
sub get_dbh {
|
|
my $dbfile = $ENV{HOME} . "/cli.db";
|
|
|
|
my $init_new = 0;
|
|
$init_new = 1 unless -f $dbfile;
|
|
|
|
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "");
|
|
|
|
# Make a new database and table(s), if needed:
|
|
create_log_db($dbh) if $init_new;
|
|
|
|
return $dbh;
|
|
}
|
|
|
|
=item create_log_db()
|
|
|
|
Create SQLite log database.
|
|
|
|
=cut
|
|
|
|
sub create_log_db {
|
|
# TODO: maybe log exit status, timing, memory, load, distro
|
|
my ($dbh) = @_;
|
|
$dbh->do(<<'SQL'
|
|
CREATE TABLE commands (
|
|
id integer primary key,
|
|
command text,
|
|
expanded_command text,
|
|
path text,
|
|
hostname text,
|
|
username text,
|
|
shell text,
|
|
terminal text,
|
|
notes text,
|
|
datetime text
|
|
);
|
|
SQL
|
|
);
|
|
}
|
|
|
|
=back
|
|
|
|
=head1 AUTHOR
|
|
|
|
Copyright 2016-2019 Brennen Bearnes
|
|
|
|
commandlog is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
commandlog is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with commandlog. If not, see <https://www.gnu.org/licenses/>.
|
|
commandlog is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
=cut
|
|
|
|
1;
|