Develop

.github/workflows/zarn.yml

@@ -22,4 +22,4 @@ jobs:
     - name: Send result to Github Security
       uses: github/codeql-action/upload-sarif@v3
       with:
-        sarif_file: result.sarif
+        sarif_file: result.sarif

.perlcriticrc

@@ -1,3 +1,5 @@
-severity = 5
+
+severity = 4
 
 [-TestingAndDebugging::RequireUseStrict]
+[-TestingAndDebugging::RequireUseWarnings]

Dockerfile

@@ -1,8 +1,13 @@
-FROM perl:5.38
+FROM ubuntu:latest
 
 COPY . /usr/src/nipe
 WORKDIR /usr/src/nipe
 
-RUN cpanm --installdeps .
+EXPOSE 9050
+
+RUN apt-get update && \
+    apt-get install -y cpanminus && \
+    rm -rf /var/lib/apt/lists/*
 
-ENTRYPOINT [ "perl", "./nipe.pl" ]
+RUN cpanm --installdeps .
+RUN perl nipe.pl install

lib/Nipe/Utils/Helper.pm

@@ -4,15 +4,15 @@ package Nipe::Utils::Helper {
 
 	sub new {
 		return "
-			\rCore Commands
-			\r==============
-			\r\tCommand       Description
-			\r\t-------       -----------
-			\r\tinstall       Install dependencies
-			\r\tstart         Start routing
-			\r\tstop          Stop routing
-			\r\trestart       Restart the Nipe circuit
-			\r\tstatus        See status\n\n";
+            \rCore Commands
+            \r==============
+            \r\tCommand       Description
+            \r\t-------       -----------
+            \r\tinstall       Install dependencies
+            \r\tstart         Start routing
+            \r\tstop          Stop routing
+            \r\trestart       Restart the Nipe circuit
+            \r\tstatus        See status\n\n";
 	}
 }
 

lib/Nipe/Utils/Install.pm

@@ -6,7 +6,7 @@ package Nipe::Utils::Install {
 	sub new {
 		my %device  = Nipe::Utils::Device -> new();
 		my $stopTor = "systemctl stop tor";
-		
+
 		my %install = (
 			"debian" => "apt-get install -y tor iptables",
 			"fedora" => "dnf install -y tor iptables",

lib/Nipe/Utils/Status.pm

@@ -5,10 +5,12 @@
 	use HTTP::Tiny;
 
 	sub new {
-		my $apiCheck = "https://check.torproject.org/api/ip";
-		my $request  = HTTP::Tiny -> new -> get($apiCheck);
-
-		if ($request -> {status} == 200) {
+		use constant SUCCESS_CODE => 200;
+
+		my $apiCheck    = "https://check.torproject.org/api/ip";
+		my $request     = HTTP::Tiny -> new -> get($apiCheck);
+
+		if ($request -> {status} == SUCCESS_CODE) {
 			my $data = decode_json ($request -> {content});
 
 			my $checkIp  = $data -> {"IP"};

nipe.pl

@@ -14,7 +14,7 @@
 
 sub main {
 	my $argument = $ARGV[0];
-	
+
 	if ($argument) {
 		die "Nipe must be run as root.\n" if $< != 0;