From 1e414f35c9413f8bb9b581bbed88661310bcf439 Mon Sep 17 00:00:00 2001
From: kake26 <urandom@pngpst.net>
Date: Sun, 13 Apr 2025 21:37:36 -0500
Subject: [PATCH] initial add

---
 .windsurfrules        |   2 ++
 Makefile.PL           |  11 ++++++++
 README.md             |  32 +++++++++++++++++++++
 lib/History/SQLite.pm |  63 ++++++++++++++++++++++++++++++++++++++++++
 pshell.pl             |  38 +++++++++++++++++++++++++
 pshell_history.db     | Bin 0 -> 12288 bytes
 6 files changed, 146 insertions(+)
 create mode 100644 .windsurfrules
 create mode 100644 Makefile.PL
 create mode 100644 README.md
 create mode 100644 lib/History/SQLite.pm
 create mode 100755 pshell.pl
 create mode 100644 pshell_history.db

diff --git a/.windsurfrules b/.windsurfrules
new file mode 100644
index 0000000..0ea26aa
--- /dev/null
+++ b/.windsurfrules
@@ -0,0 +1,2 @@
+1. No using strict
+2. No using warnings
diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..a838921
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,11 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    NAME          => 'pshell',
+    VERSION_FROM  => 'lib/History/SQLite.pm',
+    PREREQ_PM     => {
+        'DBI'           => 0,
+        'DBD::SQLite'   => 0,
+        'Term::ReadLine' => 0,
+    },
+);
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..af8009c
--- /dev/null
+++ b/README.md
@@ -0,0 +1,32 @@
+# Perl Shell (pshell)
+
+A modular Perl shell with SQLite command history.
+
+## Features
+
+- Executes shell commands
+- Logs all commands to SQLite database
+- Modular design for easy extension
+
+## Installation
+
+1. Install dependencies:
+   ```
+   cpanm --installdeps .
+   ```
+
+2. Make the shell executable:
+   ```
+   chmod +x pshell.pl
+   ```
+
+3. Run the shell:
+   ```
+   ./pshell.pl
+   ```
+
+## Usage
+
+- Type commands as you would in a normal shell
+- Type 'exit' to quit
+- Command history is stored in `pshell_history.db`
diff --git a/lib/History/SQLite.pm b/lib/History/SQLite.pm
new file mode 100644
index 0000000..42706e2
--- /dev/null
+++ b/lib/History/SQLite.pm
@@ -0,0 +1,63 @@
+package History::SQLite;
+
+use DBI;
+
+sub new {
+    my ($class, %args) = @_;
+    
+    my $self = bless {
+        db_path => $args{db_path} || 'command_history.db'
+    }, $class;
+    
+    $self->_init_db;
+    
+    return $self;
+}
+
+sub _init_db {
+    my ($self) = @_;
+    
+    my $dbh = DBI->connect("dbi:SQLite:dbname=$self->{db_path}", "", "",
+        { RaiseError => 1, PrintError => 0 });
+    
+    $dbh->do(<<"SQL");
+    CREATE TABLE IF NOT EXISTS command_history (
+        id INTEGER PRIMARY KEY AUTOINCREMENT,
+        command TEXT NOT NULL,
+        timestamp DATETIME DEFAULT CURRENT_TIMESTAMP
+    )
+SQL
+    
+    $dbh->disconnect;
+}
+
+sub add {
+    my ($self, $command) = @_;
+    
+    my $dbh = DBI->connect("dbi:SQLite:dbname=$self->{db_path}", "", "",
+        { RaiseError => 1, PrintError => 0 });
+    
+    $dbh->do("INSERT INTO command_history (command) VALUES (?)", undef, $command);
+    
+    $dbh->disconnect;
+}
+
+sub get_all {
+    my ($self) = @_;
+    
+    my $dbh = DBI->connect("dbi:SQLite:dbname=$self->{db_path}", "", "",
+        { RaiseError => 1, PrintError => 0 });
+    
+    my $sth = $dbh->prepare("SELECT command FROM command_history ORDER BY timestamp");
+    $sth->execute;
+    
+    my @commands;
+    while (my $row = $sth->fetchrow_arrayref) {
+        push @commands, $row->[0];
+    }
+    
+    $dbh->disconnect;
+    return @commands;
+}
+
+1;
diff --git a/pshell.pl b/pshell.pl
new file mode 100755
index 0000000..61c61fd
--- /dev/null
+++ b/pshell.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl
+
+use lib 'lib';
+use History::SQLite;
+use Term::ReadLine;
+
+# Initialize command history
+my $history = History::SQLite->new(
+    db_path => 'pshell_history.db'
+);
+
+print "Perl Shell (pshell) - Type 'exit' to quit\n";
+
+my $term = Term::ReadLine->new('pshell');
+$term->ornaments(0);
+
+# Load previous history
+my @history = $history->get_all;
+$term->addhistory($_) for @history;
+
+while (1) {
+    my $prompt = "pshell> ";
+    my $command = $term->readline($prompt);
+    
+    last unless defined $command;
+    chomp $command;
+    last if $command =~ /^exit$/i;
+    
+    # Skip empty commands
+    next unless length $command;
+    
+    # Save command to history
+    $history->add($command);
+    $term->addhistory($command);
+    
+    # Execute command
+    system($command);
+}
diff --git a/pshell_history.db b/pshell_history.db
new file mode 100644
index 0000000000000000000000000000000000000000..a24003c6f260fa556ae1dc2af645629f693bfb9a
GIT binary patch
literal 12288
zcmeI2L2nX46vt;_ZMC{Ptw?ntm`RLD3DmGNyU?zhxNTQM1WM@=B|Q)dYf8dGfo&Rl
zQ}3R<`w2|^5FSkY2HuSazl5_|RJKb@6E7z3Wrp3^|9k&8^Se#L?oO%eIpo=3<hDG*
z&>|89^nehA&@!J<J|`jY7jd%SPk;TlSVnhFh7!+;$e$6;@*fBw00e*l5C8%|00;m9
zAOHk_01yBI|CB&AGIu?b5gJ}=zvqmHJ$}t?j-BC=({Bft(aoA=+7_|RjgmzIxhwsa
z>tuOl`o)eg?_0k7>DeB*ZmZvE9(2dvVDvn&j7)h3M6$9#PNUl)#foh`vTCGSE0)b#
zgFLnx#H`!f#R~T*TNOL|EBn-k*w#~<RJQr7mrB27uj@KvujL++Eq)%mShmQP_0X)B
zY_eIe)wosD|F~<L<?0X5w0}2`OD70_!5{HE{2Gt&6MPS+upobs-^#D#1NpvuQ;tes
zrBBj(=?zbX00KY&2mk>f00e*l5C8%|00;nqa}l@^7ZGO1G)MK-oVKcJBu5RFHz-Y9
z6H$yE9(T@YYC(yKXo>a4XC*yxHMESb8@ifU^0i(kV97PDpe%-2`jVEyB2rkpLweo)
z>5g>G(A2anB9$fg%*ohD?)l?PD$^7xw8@&ma)~Sc-nd1ej2Se4>#~S$|JflVNx!=w
zqWV<Q^nUpE!Z*e{Xo*YV)R>_bQWs|)pUb*3A9^M(QDrVv${CC%E`&GC8MKfRXEx-r
zu0&_JQksm2D9(mQU2mGAx^Ad>MF^|&CFbA%1^f;10RaSn01yBIKmZ5;0U!VbfB+Bx
U0zd!={Qm@ELNp@;{)iC&4iD?}<p2Nx

literal 0
HcmV?d00001