From d443a6dc05db377f519af3225782abe639c4b895 Mon Sep 17 00:00:00 2001 From: "Jason D. McCormick" Date: Tue, 7 Apr 2020 14:24:04 -0400 Subject: removed --- bmcli | 15 ------------- bmcli-wrapper | 36 ------------------------------- pistar-activity-report | 52 --------------------------------------------- pistar-send-activity-report | 8 ------- 4 files changed, 111 deletions(-) delete mode 100755 bmcli delete mode 100755 bmcli-wrapper delete mode 100755 pistar-activity-report delete mode 100755 pistar-send-activity-report diff --git a/bmcli b/bmcli deleted file mode 100755 index 34d429e..0000000 --- a/bmcli +++ /dev/null @@ -1,15 +0,0 @@ -#!/bin/bash - -if [ ! -f /usr/local/bin/bmcli-wrapper ]; then - echo "missing /usr/local/bin/bmcli-wrapper" - exit 1 -fi - -if [ $# -lt 1 ]; then - ./bmcli-wrapper - exit 1 -else - ./bmcli-wrapper $* 2>&1 | \ - grep '' | \ - sed 's/<...?>//g' -fi diff --git a/bmcli-wrapper b/bmcli-wrapper deleted file mode 100755 index 251114c..0000000 --- a/bmcli-wrapper +++ /dev/null @@ -1,36 +0,0 @@ -#!/usr/bin/php - diff --git a/pistar-activity-report b/pistar-activity-report deleted file mode 100755 index 572bf4c..0000000 --- a/pistar-activity-report +++ /dev/null @@ -1,52 +0,0 @@ -#!/usr/bin/perl - -use strict; -use Getopt::Std; -use POSIX qw(strftime); -use Sys::Hostname; - -our($opt_f, $opt_s, $opt_r); -my $nowiso = strftime "%Y-%m-%d", gmtime(time - 86400); - -getopts('f:r:s:'); -if( !defined($opt_f)){ - $opt_f = sprintf("/var/log/pi-star/MMDVM-%s.log", $nowiso); -} -if( ! -f $opt_f ){ - print STDERR "File $opt_f not found\n"; - exit 1; -} - -if( !defined($opt_s) || !defined($opt_r) ){ - print STDERR "Usage: pistar-activity-report [-f FILE] -s SENDERADDR -r RECEIVEADDR[,RECEIVEADDR]\n"; - exit 1; -} - -my $dstar=0; -my $dmr=0; - -open(IN, "<" . $opt_f) or die($!); -while(){ - chomp $_; - - if( $_ =~ m/D\-Star,\s+received\s+\w+\send of transmission/ ){ - ( my $s = $_ ) =~ s/^.*\s([0-9]+\.[0-9])\sseconds.*$/$1/; - $dstar += $s; - } elsif( $_ =~ m/DMR.*received network end of voice/) { - ( my $s = $_ ) =~ s/^.*\s([0-9]+\.[0-9])\sseconds.*$/$1/; - $dmr += $s; - } -} -close(IN); - -printf("From: %s\n", $opt_s); -printf("To: %s\n", $opt_r); -printf("Subject: %s - Daily Tx Report for %s (UTC)\n", hostname, $nowiso); -print "\n"; -printf("D-STAR TX Seconds: %i\n", $dstar); -printf("DMR TX Seconds: %i\n", $dmr); -print "\n"; -print "DSTAR,DMR\n"; -printf("%i,%i\n", $dstar, $dmr); - -exit 0; diff --git a/pistar-send-activity-report b/pistar-send-activity-report deleted file mode 100755 index 034c785..0000000 --- a/pistar-send-activity-report +++ /dev/null @@ -1,8 +0,0 @@ -#!/bin/bash - -if [ -z $1 ] || [ -z $2 ]; then - echo "Usage: $0 SEND_ADDR REC_ADDR[,REC_ADDR...]" - exit 1 -fi - -/usr/local/sbin/pistar-activity-report -s "$1" -r "$2" | sendmail -oi -oem "$2" -- cgit v1.2.3