restructre variables
This commit is contained in:
mischa
parent
3481b7e31a
commit
fd54bb0317
77
notify.pl
77
notify.pl
|
|
@ -1,6 +1,6 @@
|
|||
#!/usr/bin/env perl
|
||||
#
|
||||
# Copyright (c) 2019-2022 Mischa Peters <mischa @ openbsd.amsterdam>
|
||||
# Copyright (c) 2019-2023 Mischa Peters <mischa @ openbsd.amsterdam>
|
||||
#
|
||||
# Permission to use, copy, modify, and distribute this software for any
|
||||
# purpose with or without fee is hereby granted, provided that the above
|
||||
|
|
@ -18,14 +18,15 @@
|
|||
# 2020/05/17 initial release
|
||||
# 2021/05/09 complete restructure and KISS
|
||||
# 2022/11/13 added price structure for notifications
|
||||
# 2023/05/05 variable clean up, rework IP logic
|
||||
#
|
||||
use 5.024;
|
||||
use strict;
|
||||
use warnings;
|
||||
use autodie;
|
||||
use POSIX qw(strftime);
|
||||
use HTTP::Tiny;
|
||||
use File::Basename;
|
||||
use HTTP::Tiny;
|
||||
use POSIX qw(strftime);
|
||||
|
||||
# get function and function_variable (vmid) from arguments
|
||||
my $function = $ARGV[0] || "empty";
|
||||
|
|
@ -35,7 +36,11 @@ my $function_variable = $ARGV[1] || "empty";
|
|||
my $base_price = '64';
|
||||
my %memory_prices = ('2G' => '10', '4G' => '30', '8G' => '70');
|
||||
my %hdd_prices = ('50G' => '50', '100G' => '100', '150G' => '150', '200G' => '200');
|
||||
my %payment_links = (
|
||||
my $ideal_url;
|
||||
my $paypal_url;
|
||||
my %stripe_urls = (
|
||||
'sponsor' => 'SPONSORED',
|
||||
'sponsored' => 'SPONSORED',
|
||||
'44' => 'https://buy.stripe.com/28odR0aWK0jq0aAeV0',
|
||||
'64' => 'https://buy.stripe.com/8wMaEO0i67LS1eE288',
|
||||
'74' => 'https://buy.stripe.com/aEU5kuc0Ofek4qQ001',
|
||||
|
|
@ -89,16 +94,9 @@ sub mailout {
|
|||
my %conf = %{$_[0]};
|
||||
my %vms = %{$_[1]};
|
||||
|
||||
my $_etc = $conf{'conf'}{'ETC'};
|
||||
my $_vms = $conf{'conf'}{'VMS'};
|
||||
my $_tmpl = $conf{'conf'}{'TEMPLATES'};
|
||||
my $_server = $conf{'conf'}{'SERVER'};
|
||||
my $_ip4netmask = $conf{'conf'}{'NETMASK'};
|
||||
my $_ip4gw = $conf{'conf'}{'ROUTER'};
|
||||
|
||||
my $template = "$_tmpl/email-$function.txt";
|
||||
my $server_number = $1 if $_server =~ /([0-9]+)/;
|
||||
my $evenodd = $server_number % 2;
|
||||
my $template = "$conf{'conf'}{'TEMPLATES'}/email-$function.txt";
|
||||
my $server_number = $1 if $conf{'conf'}{'SERVER'} =~ /([0-9]+)/;
|
||||
my $evenodd = $server_number % 2 if $server_number;
|
||||
my $year = strftime("%Y", localtime);
|
||||
my $month = strftime("%m", localtime);
|
||||
|
||||
|
|
@ -110,28 +108,38 @@ sub mailout {
|
|||
|
||||
for my $vm_name (sort keys %vms) {
|
||||
my $_date = $vms{$vm_name}{'date'};
|
||||
my $_payment = $vms{$vm_name}{'payment'} || '0';
|
||||
my $_payment = $vms{$vm_name}{'payment'} || 0;
|
||||
my $_subscription = $vms{$vm_name}{'subscription'} || "no";
|
||||
my $_donated = $vms{$vm_name}{'donated'};
|
||||
my $_name = $vms{$vm_name}{'name'};
|
||||
my ($_firstname, $_lastname) = split(/ /, $_name, 2);
|
||||
my $_email = $vms{$vm_name}{'email'};
|
||||
my $_hostname = $vms{$vm_name}{'hostname'};
|
||||
my $_username = $vms{$vm_name}{'username'};
|
||||
my $_memory = $vms{$vm_name}{'memory'} || '';
|
||||
my $_disk2 = $vms{$vm_name}{'disk2'} || '';
|
||||
my $_instance = $vms{$vm_name}{'instance'} || $vm_name;
|
||||
|
||||
if ($_payment == 0) {
|
||||
my ($_ipv4_address, $_ipv4_subnet) = $vms{$vm_name}{'ipv4'} =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(\/\d{2})/ if $vms{$vm_name}{'ipv4'};
|
||||
my $_ipv4 = $_ipv4_address || $conf{'conf'}{'IP_PREFIX'} . "." . ($conf{'conf'}{'IP_START'} + $vms{$vm_name}{'vm_number'});
|
||||
my $_ipv4_netmask = $_ipv4_subnet || $conf{'conf'}{'NETMASK'};
|
||||
my $_ipv4_gateway = $vms{$vm_name}{'ipv4_gw'} || $conf{'conf'}{'ROUTER'};
|
||||
|
||||
my $_ipv6 = $vms{$vm_name}{'ipv6'} || $conf{'conf'}{'IPV6_PREFIX'} . ":" . ($conf{'conf'}{'IPV6_START'} + $vms{$vm_name}{'vm_number'}) . "::" . ($conf{'conf'}{'IP_START'} + $vms{$vm_name}{'vm_number'});
|
||||
my $_ipv6_gateway = $vms{$vm_name}{'ipv6_gw'} || $conf{'conf'}{'IPV6_PREFIX'} . ":" . ($conf{'conf'}{'IPV6_START'} + $vms{$vm_name}{'vm_number'}) . "::1";
|
||||
|
||||
if (! $_payment) {
|
||||
my $memory_price = $memory_prices{$_memory} || '0';
|
||||
my $hdd_price = $hdd_prices{$_disk2} || '0';
|
||||
$_payment = $base_price + $memory_price + $hdd_price;
|
||||
} elsif ($_payment =~ m/sponsor/) {
|
||||
$ideal_url = "SPONSORED";
|
||||
$paypal_url = "SPONSORED";
|
||||
}
|
||||
my $stripe = $payment_links{$_payment} || '';
|
||||
|
||||
(my $_firstname, my $_lastname) = split(/ /, $_name, 2);
|
||||
(my $_year, my $_month, my $_day) = split(/\//, $_date, 3);
|
||||
my $ip4address = qx(grep -A2 $vm_name $_etc/dhcpd.conf | awk '/fixed-address/{print \$2}' | tr -d ';\n');
|
||||
my $ip6address = qx(grep -A3 $vm_name $_etc/dhcpd.conf | awk '/fixed-address-ipv6/{print \$2}' | tr -d ';\n');
|
||||
(my $ip6gw = $ip6address) =~ s/::.*/::1/;
|
||||
my $stripe = $stripe_urls{$_payment} || '';
|
||||
my $ideal = $ideal_url || "https://bunq.me/openbsdams/${_payment}/${_instance}%20$conf{'conf'}{'SERVER'}";
|
||||
my $paypal = $paypal_url || "https://paypal.me/runbsd/${_payment}eur";
|
||||
|
||||
open(my $fh, '<', $template);
|
||||
open my $fh_email, "|-", "/usr/sbin/sendmail -t";
|
||||
|
|
@ -139,22 +147,27 @@ sub mailout {
|
|||
while (my $row = <$fh>) {
|
||||
chomp $row;
|
||||
$row =~ s/FIRSTNAME/$_firstname/g;
|
||||
$row =~ s/IPV4$/$ip4address/g;
|
||||
$row =~ s/IPV4NETMASK$/$_ip4netmask/g;
|
||||
$row =~ s/IPV4GW$/$_ip4gw/g;
|
||||
$row =~ s/IPV6$/$ip6address/g;
|
||||
$row =~ s/IPV6GW$/$ip6gw/g;
|
||||
$row =~ s/VMID/$vm_name/g;
|
||||
$row =~ s/SERVER/$_server/g;
|
||||
$row =~ s/VMID/$_instance/g;
|
||||
$row =~ s/SERVER/$conf{'conf'}{'SERVER'}/g;
|
||||
$row =~ s/DOMAIN/$conf{'conf'}{'DOMAIN'}/g;
|
||||
$row =~ s/HOSTNAME/$_hostname/g;
|
||||
$row =~ s/USERNAME/$_username/g;
|
||||
|
||||
$row =~ s/IPV4$/$_ipv4/g;
|
||||
$row =~ s/IPV4NETMASK$/$_ipv4_netmask/g;
|
||||
$row =~ s/IPV4GW$/$_ipv4_gateway/g;
|
||||
$row =~ s/IPV6$/$_ipv6/g;
|
||||
$row =~ s/IPV6GW$/$_ipv6_gateway/g;
|
||||
|
||||
$row =~ s/YEAR/$year/g;
|
||||
$row =~ s/TOTAL_DONATED/$total_donated/g;
|
||||
$row =~ s/TOTAL_VMS/$total_vms/g;
|
||||
$row =~ s/TOTAL_HOSTS/$total_hosts/g;
|
||||
|
||||
$row =~ s/PAYMENT/$_payment/g;
|
||||
$row =~ s/STRIPE/$stripe/g;
|
||||
$row =~ s/IDEAL/$ideal/g;
|
||||
$row =~ s/PAYPAL/$paypal/g;
|
||||
|
||||
if ($row =~ /TIME\((.*)\)/) {
|
||||
my @TIMES = split(/,/, $1);
|
||||
|
|
@ -163,7 +176,7 @@ sub mailout {
|
|||
print $fh_email "$row\n";
|
||||
}
|
||||
close $fh_email;
|
||||
print "$function: $_date, $_payment ($_payment), $_name, $_email, $_hostname, $_server ($vm_name), $ip4address\n";
|
||||
print "$function: $_date, $_payment, $_name, $_email, $_hostname, $conf{'conf'}{'SERVER'} ($_instance), $_ipv4\n";
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -199,9 +212,9 @@ if ($function =~ /notify/) {
|
|||
my $year = strftime("%Y", localtime);
|
||||
my $month = strftime("%m", localtime);
|
||||
for my $vm_name (sort keys %vms) {
|
||||
if ($vms{$vm_name}{'donated'} =~ /(done|expire|sponsor|renewal)/) { delete $vms{$vm_name}; next; }
|
||||
if ($vms{$vm_name}{'donated'} =~ /(done|expire|sponsor|sponsored|renewal)/) { delete $vms{$vm_name}; next; }
|
||||
|
||||
my ($_vm_year, $_vm_month, $_vm_day) = split('/', $vms{$vm_name}{'date'});
|
||||
my ($_vm_year, $_vm_month, $_vm_day) = split('/', $vms{$vm_name}{'date'}, 3);
|
||||
if ($_vm_year >= $year) { delete $vms{$vm_name}; next; }
|
||||
if ($_vm_month != $month) { delete $vms{$vm_name}; next; }
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue