test subs checker
This commit is contained in:
parent
b3a371666d
commit
2a1915992f
20
.drone.yml
Normal file
20
.drone.yml
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
---
|
||||||
|
# ----------------------------------------------
|
||||||
|
# -- Check subs
|
||||||
|
# ----------------------------------------------
|
||||||
|
kind: pipeline
|
||||||
|
type: kubernetes
|
||||||
|
name: Check subs
|
||||||
|
|
||||||
|
trigger:
|
||||||
|
event:
|
||||||
|
- push
|
||||||
|
# cron:
|
||||||
|
# - daily
|
||||||
|
steps:
|
||||||
|
- name: Check subs
|
||||||
|
image: alpine:latest
|
||||||
|
commands:
|
||||||
|
- apk update
|
||||||
|
- apk add curl jq perl git
|
||||||
|
- ./money/compare.pl
|
28
money/compare.pl
Executable file
28
money/compare.pl
Executable file
@ -0,0 +1,28 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
my @subs = `tail -n +3 money/subs.md`;
|
||||||
|
chomp @subs;
|
||||||
|
my $today = `date +'%m.%d'`;
|
||||||
|
chop($today);
|
||||||
|
my $tommorow = `date -d '+1 day' +'%m.%d'`;
|
||||||
|
chop($tommorow);
|
||||||
|
my $fail = 0;
|
||||||
|
|
||||||
|
|
||||||
|
foreach my $sub (@subs) {
|
||||||
|
my @words = split /\|/, $sub;
|
||||||
|
my $date = $words[2];
|
||||||
|
$date =~ s/\./\\\./;
|
||||||
|
$date =~ s/\*/\./g;
|
||||||
|
$date =~ s/ //g;
|
||||||
|
my $regex = "m/$date/";
|
||||||
|
# print $regex;
|
||||||
|
if ($today =~ m/$date/ || $tommorow =~ m/$date/) {
|
||||||
|
print "$sub \n";
|
||||||
|
$fail = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
exit(1) if $fail;
|
12
money/subs.md
Normal file
12
money/subs.md
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
| Name | Date | Amount |
|
||||||
|
|-------------------------------|-------|--------|
|
||||||
|
| SoundCloud Repost | 04.03 | 30 |
|
||||||
|
| Hetzner | **.04 | ~25 |
|
||||||
|
| Splice | **.02 | 8 |
|
||||||
|
| CloudFlare Badhouseplants.net | 03.30 | 10.10 |
|
||||||
|
| CloudFlare nrodionov.info | 07.31 | 16.18 |
|
||||||
|
| DFV | **.15 | 5.30 |
|
||||||
|
| Spotify | **.16 | 15 |
|
||||||
|
| Vodafone Home WLAN | **.03 | 45 |
|
||||||
|
| ENBW | **.29 | 81 |
|
||||||
|
| Condo | **.29 | 1040 |
|
Loading…
Reference in New Issue
Block a user