Command-line history logging utilities
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

=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.2.1';
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;