minor maintenance

Krp.secret-wg.org.+005+33282.key

@@ -0,0 +1,5 @@
+; This is a zone-signing key, keyid 33282, for rp.secret-wg.org.
+; Created: 20210425124410 (Sun Apr 25 14:44:10 2021)
+; Publish: 20210425124410 (Sun Apr 25 14:44:10 2021)
+; Activate: 20210425124410 (Sun Apr 25 14:44:10 2021)
+rp.secret-wg.org. 10 IN DNSKEY 256 3 5 AwEAAa8XrzyXhvXKdd0FI2HC1Prqsrn1SH8l1Bu0YMoG34wimN3mBMMI bhnaW23sZ69yk0u1WrVDsnpt9TbZdFxshXJaDZ5BuYq3PRkpe7C9nbKu XJsc2KSG9ny7+6KkyC4uArlzI/72guKHkx9O5Wu/qWb6MRcNWKnP9/7L JFzyIP8f

Krp.secret-wg.org.+005+33282.private

@@ -0,0 +1,13 @@
+Private-key-format: v1.3
+Algorithm: 5 (RSASHA1)
+Modulus: rxevPJeG9cp13QUjYcLU+uqyufVIfyXUG7RgygbfjCKY3eYEwwhuGdpbbexnr3KTS7VatUOyem31Ntl0XGyFcloNnkG5irc9GSl7sL2dsq5cmxzYpIb2fLv7oqTILi4CuXMj/vaC4oeTH07la7+pZvoxFw1Yqc/3/sskXPIg/x8=
+PublicExponent: AQAB
+PrivateExponent: lgsE1za+p6is4g9CJ8ePPcqcCDFCw/rFzkv/2YCUVwFa4GT51axGtY7iZMt+euIDiZBKwCTYMIRD65HjXkR9AXsV0XL0a2Q/4CaRAS5GUGq4Q7QrQfrOEN4e5CqFCKKv4cJMb5iYz4kjnuSdiON7Szu79rk3bEQdIlwij4wZFyk=
+Prime1: 3hhKt+AKJyvnlXO+V13L2jczvOINnyZMfBFP1J2B/gwvraBwf675Lr7kVxLon6JH/pU7l8c/eogBdgkZIJ+sIw==
+Prime2: ydJ9Ot0UMwH9ZaiUKyFmFnrz1m3/pqSGmgjTlFCjX3HaOsx1T6pVndPhE6v1zadNQ2yfMDLkSzYYwjcDS/+C1Q==
+Exponent1: mi6xCG+/fKwtLILavBpAn/A8ub8RB9B1vpfiHM9v5CcfnmDIWMvm733UVWKqHdByPJnrchX/ypfKs9/jEtPmkw==
+Exponent2: Fwp61Y+L0M73WPXIBKyJdSOQVviz6Rh7bXZ4gUQ7gpgC7BePhQrTP3ODDLXjGBlzjrEF84C744JHjVSugayoCQ==
+Coefficient: drikIeWnFP3kKtrgokMv4ArcEu2ngAYyqCOcD7m+oRfiLIJXUwCeEOx+zR1y/Y7l5cELAukTDown5Q+uxEwIfQ==
+Created: 20210425124410
+Publish: 20210425124410
+Activate: 20210425124410

rpns.service

@@ -0,0 +1,17 @@
+[Unit]
+Description=Service that keeps running the Reverse Polisch DNS Caluclator
+After=network.target
+
+[Install]
+WantedBy=multi-user.target
+
+
+[Service]
+Type=forking
+ExecStart=/home/olaf/RPNS/ns.pl
+WorkingDirectory=/home/olaf/RPNS/
+Restart=always
+RestartSec=5
+StandardOutput=syslog
+StandardError=syslog
+SyslogIdentifier=%n

test.pl

@@ -1,9 +0,0 @@
-use Math::RPN;
-
-
-my $answer=rpn(0.MOD);
-if (!defined($answer)){
-print "SERVFAIL";
-}else{
-    print "Answer: ". $answer."\n";
-}