kake26/bandmon
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

No longer active, Ntfy based approach superceeded this

Browse source
This commit is contained in:
Paul 2023-04-15 13:35:04 -05:00
parent d58d386d18
commit ec412d7ad7
12 changed files with 50 additions and 158 deletions
Download patch file Download diff file Expand all files Collapse all files

11
.project Normal file
View file

@ -0,0 +1,11 @@
<?xml version="1.0" encoding="UTF-8"?>
<projectDescription>
<name>bandmon</name>
<comment></comment>
<projects>
</projects>
<buildSpec>
</buildSpec>
<natures>
</natures>
</projectDescription>

4
README.md
View file

@ -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

125
fpc/backup/bandy2.lps
View file

@ -22,7 +22,7 @@
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="72"/>
<CursorPos X="87" Y="101"/>
<CursorPos X="64" Y="79"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -43,128 +43,7 @@
<UsageCount Value="10"/>
</Unit3>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="54" Column="13" TopLine="23"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="55" Column="13" TopLine="24"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="59" Column="38" TopLine="30"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="60" Column="38" TopLine="31"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="62" Column="38" TopLine="34"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="63" Column="38" TopLine="35"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="65" Column="38" TopLine="37"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="80" Column="14" TopLine="44"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="75" Column="14" TopLine="44"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Column="13"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="88" Column="21" TopLine="52"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="81" Column="3" TopLine="55"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="73" Column="21" TopLine="39"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="77" Column="3" TopLine="48"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="57" Column="34" TopLine="48"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="88" Column="24" TopLine="52"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="72" TopLine="39"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="79" TopLine="43"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="61" Column="27" TopLine="46"/>
</Position19>
<Position20>
<Filename Value="unit1.pas"/>
<Caret Line="60" Column="27" TopLine="45"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="94" Column="74" TopLine="60"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="93" Column="74" TopLine="59"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="94" Column="74" TopLine="60"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="101" Column="74" TopLine="67"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="81" Column="94" TopLine="65"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="83" Column="31" TopLine="66"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="76" Column="8" TopLine="66"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="79" Column="28" TopLine="66"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="76" Column="8" TopLine="61"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="79" Column="38" TopLine="64"/>
</Position30>
</JumpHistory>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>

10
fpc/backup/unit1.lfm
View file

@ -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

4
fpc/backup/unit1.pas
View file

@ -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;

BIN
fpc/bandy2 Executable file
View file

Binary file not shown.

8
fpc/bandy2.lps
View file

@ -21,10 +21,11 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="-1"/>
<TopLine Value="72"/>
<CursorPos X="87" Y="101"/>
<CursorPos X="64" Y="79"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../../tmp/fpc/lazarus/lcl/include/screen.inc"/>
@ -42,9 +43,6 @@
<UsageCount Value="10"/>
</Unit3>
</Units>
<General>
<ActiveWindowIndexAtStart Value="-1"/>
</General>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>

2
fpc/lib/x86_64-linux/bandy2.compiled
View file

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Compiler Value="/usr/bin/fpc" Date="1621168742"/>
<Params Value=" -MObjFPC -Scghi -CX -Cg -O3 -XX -l -vewnhibq -Fi/home/kake26/projects/pascal/bandmon/fpc/lib/x86_64-linux -Fu/home/kake26/tmp/fpc/lazarus/lcl/units/x86_64-linux/gtk2 -Fu/home/kake26/tmp/fpc/lazarus/lcl/units/x86_64-linux -Fu/home/kake26/tmp/fpc/lazarus/components/freetype/lib/x86_64-linux -Fu/home/kake26/tmp/fpc/lazarus/components/lazutils/lib/x86_64-linux -Fu/home/kake26/tmp/fpc/lazarus/packager/units/x86_64-linux -Fu/home/kake26/projects/pascal/bandmon/fpc/ -FU/home/kake26/projects/pascal/bandmon/fpc/lib/x86_64-linux/ -FE/home/kake26/projects/pascal/bandmon/fpc/ -o/home/kake26/projects/pascal/bandmon/fpc/bandy2 -dLCL -dLCLgtk2 bandy2.lpr"/>
<Params Value=" -MObjFPC -Scghi -CX -Cg -O3 -XX -l -vewnhibq -Fi/home/kake26/projects/pascal/bandmon/fpc/lib/x86_64-linux -Fu/home/kake26/bin/lazarus/lcl/units/x86_64-linux/gtk2 -Fu/home/kake26/bin/lazarus/lcl/units/x86_64-linux -Fu/home/kake26/bin/lazarus/components/freetype/lib/x86_64-linux -Fu/home/kake26/bin/lazarus/components/lazutils/lib/x86_64-linux -Fu/home/kake26/bin/lazarus/packager/units/x86_64-linux -Fu/home/kake26/projects/pascal/bandmon/fpc/ -FU/home/kake26/projects/pascal/bandmon/fpc/lib/x86_64-linux/ -FE/home/kake26/projects/pascal/bandmon/fpc/ -o/home/kake26/projects/pascal/bandmon/fpc/bandy2 -dLCL -dLCLgtk2 bandy2.lpr"/>
</CONFIG>

BIN
fpc/lib/x86_64-linux/bandy2.or
View file

Binary file not shown.

22
fpc/lib/x86_64-linux/unit1.lfm
View file

@ -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

BIN
fpc/lib/x86_64-linux/unit1.ppu
View file

Binary file not shown.

22
fpc/unit1.lfm
View file

@ -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