diff --git a/.project b/.project new file mode 100644 index 0000000..0af3de8 --- /dev/null +++ b/.project @@ -0,0 +1,11 @@ + + + bandmon + + + + + + + + diff --git a/README.md b/README.md index 04888c5..8ceb4c5 100644 --- a/README.md +++ b/README.md @@ -1,6 +1,10 @@ # bandmon Bandwidth Monitor for OpenWrt with Desktop app +# Status: Inactive + +This is phased out in favor of a Ntfy based approach for this. + # Requirements 1. A router with OpenWrt diff --git a/fpc/backup/bandy2.lps b/fpc/backup/bandy2.lps index 97b9ad6..e2b125f 100644 --- a/fpc/backup/bandy2.lps +++ b/fpc/backup/bandy2.lps @@ -22,7 +22,7 @@ - + @@ -43,128 +43,7 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/fpc/backup/unit1.lfm b/fpc/backup/unit1.lfm index c458c24..312650d 100644 --- a/fpc/backup/unit1.lfm +++ b/fpc/backup/unit1.lfm @@ -1,11 +1,11 @@ object Form1: TForm1 - Left = 474 + Left = 811 Height = 139 - Top = 463 - Width = 299 + Top = 397 + Width = 315 Caption = 'Internet Traffic Monitor' ClientHeight = 139 - ClientWidth = 299 + ClientWidth = 315 OnCreate = FormCreate LCLVersion = '2.2.5.0' object Label1: TLabel @@ -54,7 +54,7 @@ object Form1: TForm1 ParentColor = False end object Button1: TButton - Left = 208 + Left = 224 Height = 25 Top = 104 Width = 75 diff --git a/fpc/backup/unit1.pas b/fpc/backup/unit1.pas index d22ff2f..2b1f467 100644 --- a/fpc/backup/unit1.pas +++ b/fpc/backup/unit1.pas @@ -77,8 +77,8 @@ begin vnstats.dom := parse[4]; vnstats.cm := concat(parse[6],' GiB'); - vnstats.vnhourly := concat(parse[8],parse[9]); - vnstats.vnmonthly := concat(parse[11],parse[12]); + vnstats.vnhourly := concat(parse[8],' ',parse[9]); + vnstats.vnmonthly := concat(parse[11],' ', parse[12]); Label2.Caption := vnstats.vnhourly; Label6.Caption := vnstats.vnmonthly; Label4.Caption := vnstats.cm; diff --git a/fpc/bandy2 b/fpc/bandy2 new file mode 100755 index 0000000..8f39a6d Binary files /dev/null and b/fpc/bandy2 differ diff --git a/fpc/bandy2.lps b/fpc/bandy2.lps index a10da46..e2b125f 100644 --- a/fpc/bandy2.lps +++ b/fpc/bandy2.lps @@ -21,10 +21,11 @@ - - + + + @@ -42,9 +43,6 @@ - - - diff --git a/fpc/lib/x86_64-linux/bandy2.compiled b/fpc/lib/x86_64-linux/bandy2.compiled index 44bc53b..6375920 100644 --- a/fpc/lib/x86_64-linux/bandy2.compiled +++ b/fpc/lib/x86_64-linux/bandy2.compiled @@ -1,5 +1,5 @@ - + diff --git a/fpc/lib/x86_64-linux/bandy2.or b/fpc/lib/x86_64-linux/bandy2.or index 102c507..61ff468 100644 Binary files a/fpc/lib/x86_64-linux/bandy2.or and b/fpc/lib/x86_64-linux/bandy2.or differ diff --git a/fpc/lib/x86_64-linux/unit1.lfm b/fpc/lib/x86_64-linux/unit1.lfm index c458c24..1fb4900 100644 --- a/fpc/lib/x86_64-linux/unit1.lfm +++ b/fpc/lib/x86_64-linux/unit1.lfm @@ -1,18 +1,18 @@ object Form1: TForm1 - Left = 474 + Left = 439 Height = 139 - Top = 463 - Width = 299 + Top = 286 + Width = 315 Caption = 'Internet Traffic Monitor' ClientHeight = 139 - ClientWidth = 299 + ClientWidth = 315 OnCreate = FormCreate LCLVersion = '2.2.5.0' object Label1: TLabel Left = 14 - Height = 19 + Height = 23 Top = 23 - Width = 113 + Width = 109 Caption = 'Today''s Usage' ParentColor = False end @@ -25,9 +25,9 @@ object Form1: TForm1 end object Label3: TLabel Left = 14 - Height = 19 + Height = 23 Top = 48 - Width = 189 + Width = 183 Caption = 'Computed Monthly Max' ParentColor = False end @@ -40,9 +40,9 @@ object Form1: TForm1 end object Label5: TLabel Left = 14 - Height = 19 + Height = 23 Top = 71 - Width = 182 + Width = 177 Caption = 'Current Monthly Usage' ParentColor = False end @@ -54,7 +54,7 @@ object Form1: TForm1 ParentColor = False end object Button1: TButton - Left = 208 + Left = 224 Height = 25 Top = 104 Width = 75 diff --git a/fpc/lib/x86_64-linux/unit1.ppu b/fpc/lib/x86_64-linux/unit1.ppu index 8c84ec4..28919fb 100644 Binary files a/fpc/lib/x86_64-linux/unit1.ppu and b/fpc/lib/x86_64-linux/unit1.ppu differ diff --git a/fpc/unit1.lfm b/fpc/unit1.lfm index c458c24..1fb4900 100644 --- a/fpc/unit1.lfm +++ b/fpc/unit1.lfm @@ -1,18 +1,18 @@ object Form1: TForm1 - Left = 474 + Left = 439 Height = 139 - Top = 463 - Width = 299 + Top = 286 + Width = 315 Caption = 'Internet Traffic Monitor' ClientHeight = 139 - ClientWidth = 299 + ClientWidth = 315 OnCreate = FormCreate LCLVersion = '2.2.5.0' object Label1: TLabel Left = 14 - Height = 19 + Height = 23 Top = 23 - Width = 113 + Width = 109 Caption = 'Today''s Usage' ParentColor = False end @@ -25,9 +25,9 @@ object Form1: TForm1 end object Label3: TLabel Left = 14 - Height = 19 + Height = 23 Top = 48 - Width = 189 + Width = 183 Caption = 'Computed Monthly Max' ParentColor = False end @@ -40,9 +40,9 @@ object Form1: TForm1 end object Label5: TLabel Left = 14 - Height = 19 + Height = 23 Top = 71 - Width = 182 + Width = 177 Caption = 'Current Monthly Usage' ParentColor = False end @@ -54,7 +54,7 @@ object Form1: TForm1 ParentColor = False end object Button1: TButton - Left = 208 + Left = 224 Height = 25 Top = 104 Width = 75