br0tkasten/mrtg
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
mrtg 2024-02-21 08:30:12 +01:00
parent 0069ce2777
commit ccd3b510ec
2 changed files with 0 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
scripts/cryptoAlert.pl
View File

@ -1,56 +0,0 @@
#!/usr/bin/perl
#
use strict;
use warnings;
use RRDs;
use Data::Dumper;
use Template;
my $file = $ARGV[0] or die("Usage: $0 csv\n");
my $rrdpath = "/var/www/localhost/rrd";
my $cryptoMap = {
"AAVE" => "AAVE",
"ALGO" => "Algorand",
"BTC" => "Bitcoin",
"CVC" => "Civic",
"DNT" => "district0x",
"EGLD" => "Elrond eGold",
"ETH" => "Etherium",
"LRC" => "Loopring",
"REN" => "REN",
"SNX" => "Synthetix",
"XLM" => "Stellar Lumen",
"XTZ" => "Tezos"
};
my $v;
my $alarmThresh = 15;
sub getCurrentPrice {
my ($symbol) = @_;
my ($start,$step,$name,$data) = RRDs::fetch("${rrdpath}/crypto-${symbol}.rrd","LAST","--start","-10m");
return($data->[0]->[0]);
}
sub getLast4hAverage {
my ($symbol) = @_;
my ($start,$step,$name,$data) = RRDs::fetch("${rrdpath}/crypto-${symbol}.rrd","AVERAGE","--start","-4h","-r",'4h');
return($data->[0]->[0]);
}
open(CSV,"<$file") or die("open($file): $!\n");
while (<CSV>) {
chomp($_);
my ($date,$currency,$coin,$price,$fee,$buyrate,$sellthres) = split /;/;
my $curPrice = sprintf("%.4f",&getCurrentPrice($currency));
my $avg4hPrice = sprintf("%.4f",&getLast4hAverage($currency));
if($avg4hPrice > ((1 + int($alarmThresh)/100) * $curPrice)) {
$v->{$currency} = "current price dropped by more than ${alarmThresh}% from $avg4hPrice Euro/$currency to $curPrice Euro/$currency within 4h";
}
}
close(CSV);
foreach my $c (sort keys %{$v}) {
print "<b>$cryptoMap->{$c}</b>: $v->{$c}<br/>\n";
}

53
scripts/cryptoAnalyze.sh
View File

@ -1,53 +0,0 @@
#!/bin/sh
HOUR=$(date +%H)
IFS=";"
while read DATE CURRENCY COIN PRICE FEE BUYRATE SELLTHRESH;
do
weeklyMax=$(rrdtool fetch rrd/crypto-${CURRENCY}.rrd AVERAGE --start -7d | grep -v -- '-nan' | sort -n -k 2 | tail -1 | awk '{print $2}' | sed 's/e+/ * 10^/g; s/e-/ * 10^-/g;' | bc -l)
current=$(rrdtool fetch rrd/crypto-${CURRENCY}.rrd LAST --start -10m | grep -v -- '-nan' | tail -1 | awk '{print $2}' | sed 's/e+/ * 10^/g; s/e-/ * 10^-/g' | bc -l)
curValue=$(echo "$COIN * $current - $FEE" | bc -l)
curProfit=$(printf "%0.2f" $(echo "$curValue - $PRICE" | bc))
profitPerc=$(printf "%0.2f" $(echo "$curProfit / $PRICE * 100" | bc -l))
maxDiff=$(printf "%0.2f" $(echo "(($weeklyMax) - ($current)) / ($weeklyMax) * 100" | bc -l))
if [ "$CURRENCY" == "BTC" ] && [ "${current%%.*}" -lt "7000" ];
then
echo "[$CURRENCY] low exchange rate: $current EUR/${CURRENCY} => Buy more?"
continue;
fi
if [ "${profitPerc%%.*}" -ge "$SELLTHRESH" ];
then
echo "[$CURRENCY] bought: ${DATE}"
echo "[$CURRENCY] profit: ${profitPerc}% >= ${SELLTHRESH}% !!!!"
echo "[$CURRENCY] profit: $curProfit EUR (${profitPerc}%)"
echo "[$CURRENCY] maxDiff: ${maxDiff}%"
echo
continue
fi
# if [ "0${maxDiff%%.*}" -ge "10" ];
# then
# echo "[$CURRENCY] exchange rate dropped ${maxDiff}% (max: $weeklyMax EUR/${CURRENCY}, cur: $current EUR/${CURRENCY}) => Buy more?"
# continue;
# fi
#
# if [ "0${maxDiff%%.*}" -gt "3" ];
# then
# echo "[$CURRENCY] prices dropped ${maxDiff}% (max: $weeklyMax EUR/${CURRENCY}, cur: $current EUR/${CURRENCY})"
# if [ "0${profitPerc%%.*}" -ge "10" ];
# then
# echo "[$CURRENCY] profit: $curProfit EUR (${profitPerc}%) => sell?"
# continue;
# fi
# fi
if [ "0$HOUR" -eq "6" ];
then
echo "[$CURRENCY] bought: ${DATE}"
echo "[$CURRENCY] profit: $curProfit EUR (${profitPerc}%)"
echo "[$CURRENCY] maxDiff: ${maxDiff}%"
echo
fi
done < $1