afresh1

#!/bin/ksh
set -o errexit -o pipefail -o nounset -o noclobber -o noglob
set +o monitor
export PATH=/usr/bin:/bin:/usr/sbin:/sbin

# Convert the IP to an integer so do calculations on it
dottedQuad2int() {
	local IFS=.
	local ip
	set -A ip $* 0 0 0 0

afresh1

#!/usr/bin/env perl
use v5.16;
use warnings;

#manages the narcissistic bibliography MIB

#deploy as:
#rocommunity megadweeb 0.0.0.0/0 1.3.6.1.4.1.55030
#rocommunity6 megadweeb 0::/0 1.3.6.1.4.1.55030
#pass_persist .1.3.6.1.4.1.55030.1.1.1 /usr/local/scripts/persistwp.pl

afresh1

#!/bin/sh
set -o errexit -o pipefail -o nounset -o noclobber -o noglob

# Copyright (c) 2023 Andrew Hewus Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES

afresh1

#!/usr/bin/perl
use v5.30;
use warnings;

use OpenBSD::Pledge;
use OpenBSD::Unveil;

# Copyright (c) 2021 Andrew Hewus Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any

afresh1

#!/bin/sh
expect='rsync --server --sender -logDtprze.LsfxC . /'
dir="/${SSH_ORIGINAL_COMMAND#$expect}"

# Try without compression
if [ "$dir" = "/${SSH_ORIGINAL_COMMAND}" ]; then
        expect='rsync --server --sender -logDtpre.LsfxC . /'
        dir="/${SSH_ORIGINAL_COMMAND#$expect}"
fi

afresh1

#!/usr/bin/env perl
use v5.16;
use warnings;

#
# Copyright (c) 2021 Andrew Hewus Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.

afresh1

I thought perhaps you might like to hear my somewhat unique perspective, although definitely not saying anything others haven't already said. My perspective comes from my three hats, as a perl hobbyist and CPAN author, the maintainer of /usr/bin/perl in OpenBSD, and as someone who has written perl professionally for just short of ten years (the fifteen before that I wrote more and more perl as a sysadmin).

Overall, I think the plan is excellent and hope it mostly moves forward. There's only one tiny issue that might keep me from coming along for the ride.

tl;dr: if the default, without concious indication of something else, for bin/perl is anything but a "best effort at perl5" I believe I, and many other people will be stuck on perl5 forever and never be able to use v7, or v8, or anything later.

First, I should probably explain what I mean by a "best effort perl5". It is the thing we have gotten from perl on code without "use v5;" specified, likely since perl 5 was first released. Most things work, s

afresh1

#!/bin/sh
set -e

if=$1
host=$2
domain=$3

lastip="/tmp/dyndns-$host-$domain"
ttl=3600

afresh1

#!/usr/bin/perl
use v5.30;
use warnings;

use OpenBSD::Pledge;
use OpenBSD::Unveil;

# Copyright (c) 2021 Andrew Hewus Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any

afresh1

#!/usr/bin/perl
use v5.30;
use warnings;

%ENV = ();

use OpenBSD::Pledge;
use OpenBSD::Unveil;

# Copyright (c) 2020 Andrew Hewus Fresh <andrew@afresh1.com>