--- ChivanetConvoBot/convobot	2025/02/03 04:22:49	1.1.1.1
+++ ChivanetConvoBot/convobot	2025/02/03 15:38:12	1.3
@@ -9,6 +9,12 @@
 # Licensed AGPL-3.0
 #
 # $Log: convobot,v $
+# Revision 1.3  2025/02/03 15:38:12  snw
+# Begin SQL work
+#
+# Revision 1.2  2025/02/03 04:28:34  snw
+# Fix syntax message
+#
 # Revision 1.1.1.1  2025/02/03 04:22:49  snw
 # Initial Commit
 #
@@ -19,12 +25,20 @@ use Net::OSCAR;
 use Getopt::Long;
 use Data::Dumper;
 use HTML::Strip;
+use DBI;
 
 my $idlemax = 1800;
 my $botsn = '';
 my $botsrv = '';
 my $botpw = '';
 my $rasurl = '';
+
+my $dbhost = '';
+my $dbname = '';
+my $dbusername = '';
+my $dbpw = '';
+my $dbconn = '';
+
 my $chatroom = '';
 my $online = 0;
 my $chat_idle_seconds = 0;
@@ -38,7 +52,11 @@ GetOptions("aimsn=s" => \$botsn,
            "aimhost=s" => \$botsrv,
            "aimpw=s" => \$botpw,
            "idlemax=s" => \$idlemax,
-           "chatroom=s" => \$chatroom)
+           "chatroom=s" => \$chatroom,
+           "dbhost=s" => \$dbhost,
+           "dbname=s" => \$dbname,
+           "dbusername=s" => \$dbusername,
+           "dbpw=s" => \$dbpw);
             or die("error in command line arguments");
 
 %signon = (
@@ -48,7 +66,15 @@ GetOptions("aimsn=s" => \$botsn,
 ); 
 
 $oscar = Net::OSCAR->new();
-#$room = Net::OSCAR::Connection::Chat;
+my $dbh = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost",
+                       "$dbusername", "$dbpw",
+                       {'RaiseError' => 1});
+
+sub get_seen_status {
+    my($sn) = @_;
+
+    
+}
 
 sub signon_done {
     print "[OK]\n";
@@ -123,7 +149,7 @@ sub chat_im_in {
             }
         }
         else {
-            $chat->chat_send("Syntax: !seen <screenname>");
+            $chat->chat_send("Syntax: !seen <em>screenname</em>");
         }
     }