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 # bandmon
Bandwidth Monitor for OpenWrt with Desktop app Bandwidth Monitor for OpenWrt with Desktop app
# Status: Inactive
This is phased out in favor of a Ntfy based approach for this.
# Requirements # Requirements
1. A router with OpenWrt 1. A router with OpenWrt

125
fpc/backup/bandy2.lps
View file

@ -22,7 +22,7 @@
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="72"/> <TopLine Value="72"/>
<CursorPos X="87" Y="101"/> <CursorPos X="64" Y="79"/>
<UsageCount Value="36"/> <UsageCount Value="36"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -43,128 +43,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory HistoryIndex="-1"/>
<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>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes ActiveMode=""/> <Modes ActiveMode=""/>

10
fpc/backup/unit1.lfm
View file

@ -1,11 +1,11 @@
object Form1: TForm1 object Form1: TForm1
Left = 474 Left = 811
Height = 139 Height = 139
Top = 463 Top = 397
Width = 299 Width = 315
Caption = 'Internet Traffic Monitor' Caption = 'Internet Traffic Monitor'
ClientHeight = 139 ClientHeight = 139
ClientWidth = 299 ClientWidth = 315
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.2.5.0' LCLVersion = '2.2.5.0'
object Label1: TLabel object Label1: TLabel
@ -54,7 +54,7 @@ object Form1: TForm1
ParentColor = False ParentColor = False
end end
object Button1: TButton object Button1: TButton
Left = 208 Left = 224
Height = 25 Height = 25
Top = 104 Top = 104
Width = 75 Width = 75

4
fpc/backup/unit1.pas
View file

@ -77,8 +77,8 @@ begin
vnstats.dom := parse[4]; vnstats.dom := parse[4];
vnstats.cm := concat(parse[6],' GiB'); vnstats.cm := concat(parse[6],' GiB');
vnstats.vnhourly := concat(parse[8],parse[9]); vnstats.vnhourly := concat(parse[8],' ',parse[9]);
vnstats.vnmonthly := concat(parse[11],parse[12]); vnstats.vnmonthly := concat(parse[11],' ', parse[12]);
Label2.Caption := vnstats.vnhourly; Label2.Caption := vnstats.vnhourly;
Label6.Caption := vnstats.vnmonthly; Label6.Caption := vnstats.vnmonthly;
Label4.Caption := vnstats.cm; 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"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="-1"/>
<TopLine Value="72"/> <TopLine Value="72"/>
<CursorPos X="87" Y="101"/> <CursorPos X="64" Y="79"/>
<UsageCount Value="36"/> <UsageCount Value="36"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../../../tmp/fpc/lazarus/lcl/include/screen.inc"/> <Filename Value="../../../../tmp/fpc/lazarus/lcl/include/screen.inc"/>
@ -42,9 +43,6 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
</Units> </Units>
<General>
<ActiveWindowIndexAtStart Value="-1"/>
</General>
<JumpHistory HistoryIndex="-1"/> <JumpHistory HistoryIndex="-1"/>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>

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

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Compiler Value="/usr/bin/fpc" Date="1621168742"/> <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> </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 object Form1: TForm1
Left = 474 Left = 439
Height = 139 Height = 139
Top = 463 Top = 286
Width = 299 Width = 315
Caption = 'Internet Traffic Monitor' Caption = 'Internet Traffic Monitor'
ClientHeight = 139 ClientHeight = 139
ClientWidth = 299 ClientWidth = 315
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.2.5.0' LCLVersion = '2.2.5.0'
object Label1: TLabel object Label1: TLabel
Left = 14 Left = 14
Height = 19 Height = 23
Top = 23 Top = 23
Width = 113 Width = 109
Caption = 'Today''s Usage' Caption = 'Today''s Usage'
ParentColor = False ParentColor = False
end end
@ -25,9 +25,9 @@ object Form1: TForm1
end end
object Label3: TLabel object Label3: TLabel
Left = 14 Left = 14
Height = 19 Height = 23
Top = 48 Top = 48
Width = 189 Width = 183
Caption = 'Computed Monthly Max' Caption = 'Computed Monthly Max'
ParentColor = False ParentColor = False
end end
@ -40,9 +40,9 @@ object Form1: TForm1
end end
object Label5: TLabel object Label5: TLabel
Left = 14 Left = 14
Height = 19 Height = 23
Top = 71 Top = 71
Width = 182 Width = 177
Caption = 'Current Monthly Usage' Caption = 'Current Monthly Usage'
ParentColor = False ParentColor = False
end end
@ -54,7 +54,7 @@ object Form1: TForm1
ParentColor = False ParentColor = False
end end
object Button1: TButton object Button1: TButton
Left = 208 Left = 224
Height = 25 Height = 25
Top = 104 Top = 104
Width = 75 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 object Form1: TForm1
Left = 474 Left = 439
Height = 139 Height = 139
Top = 463 Top = 286
Width = 299 Width = 315
Caption = 'Internet Traffic Monitor' Caption = 'Internet Traffic Monitor'
ClientHeight = 139 ClientHeight = 139
ClientWidth = 299 ClientWidth = 315
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.2.5.0' LCLVersion = '2.2.5.0'
object Label1: TLabel object Label1: TLabel
Left = 14 Left = 14
Height = 19 Height = 23
Top = 23 Top = 23
Width = 113 Width = 109
Caption = 'Today''s Usage' Caption = 'Today''s Usage'
ParentColor = False ParentColor = False
end end
@ -25,9 +25,9 @@ object Form1: TForm1
end end
object Label3: TLabel object Label3: TLabel
Left = 14 Left = 14
Height = 19 Height = 23
Top = 48 Top = 48
Width = 189 Width = 183
Caption = 'Computed Monthly Max' Caption = 'Computed Monthly Max'
ParentColor = False ParentColor = False
end end
@ -40,9 +40,9 @@ object Form1: TForm1
end end
object Label5: TLabel object Label5: TLabel
Left = 14 Left = 14
Height = 19 Height = 23
Top = 71 Top = 71
Width = 182 Width = 177
Caption = 'Current Monthly Usage' Caption = 'Current Monthly Usage'
ParentColor = False ParentColor = False
end end
@ -54,7 +54,7 @@ object Form1: TForm1
ParentColor = False ParentColor = False
end end
object Button1: TButton object Button1: TButton
Left = 208 Left = 224
Height = 25 Height = 25
Top = 104 Top = 104
Width = 75 Width = 75