From bd187d696457e6664cd504993df82beb73536895 Mon Sep 17 00:00:00 2001
From: gashapwn <gashapwn@tildezero.lan>
Date: Sat, 6 Mar 2021 20:50:09 +0000
Subject: [PATCH] added ngircd-ctl script

---
 perl-script/ngircd-ctl.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 perl-script/ngircd-ctl.pl

diff --git a/perl-script/ngircd-ctl.pl b/perl-script/ngircd-ctl.pl
new file mode 100644
index 0000000..e1b0066
--- /dev/null
+++ b/perl-script/ngircd-ctl.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+my @MY_ARGV = @ARGV;
+my $MY_ACMD = shift;
+
+my $NGIRCD='ngircd';
+my $NGIRCD_UID = 703;
+my $NGIRCD_UN = "_ngircd";
+
+my $ERROR = 0;
+
+my $USAGE = "Usage: ngircd-ctl (start|status|stop)";
+my $PERM_ERR = "must run as $NGIRCD_UN\nplease run using: doas -u $NGIRCD_UN\n";
+    
+unless( getpwuid( $< ) =~ /$NGIRCD_UN/ ){
+    die $PERM_ERR;
+}
+
+if ($MY_ACMD eq "stop"){
+    $ERROR = system("pkill -u $NGIRCD_UID -x $NGIRCD");
+}elsif($MY_ACMD eq "start"){
+    $ERROR = system("$NGIRCD");
+}elsif($MY_ACMD eq "status"){
+    $ERROR = system("rcctl check $NGIRCD");
+}elsif($MY_ACMD eq "help"){
+    printf("$USAGE\n");
+}else{
+    printf("$USAGE\n");
+}