chore: import upstream snapshot with attribution

at/save_allow.cgi

@@ -0,0 +1,32 @@
+#!/usr/local/bin/perl
+# Update allowed or denied At users
+use strict;
+use warnings;
+no warnings 'redefine';
+no warnings 'uninitialized';
+our (%access, %text, %in);
+
+require './at-lib.pl';
+ReadParse();
+&error_setup($text{'allow_err'});
+$access{'allow'} || &error($text{'allow_ecannot'});
+
+if ($in{'amode'} == 0) {
+	&save_allowed();
+	&save_denied();
+	}
+elsif ($in{'amode'} == 1) {
+	my @users = split(/\s+/, $in{'ausers'});
+	@users || &error($text{'allow_eusers'});
+	&save_allowed(@users);
+	&save_denied();
+	}
+elsif ($in{'amode'} == 2) {
+	my @users = split(/\s+/, $in{'ausers'});
+	@users || &error($text{'allow_eusers'});
+	&save_allowed();
+	&save_denied(@users);
+	}
+&webmin_log("allow");
+&redirect("");
+