Another attempt for a universal GUI

[Pjot]

All,

Currently I am traveling and there is a lot of rain and thunderstorm outside

So I took the opportunity to refurbish the Minimal Interface a little bit, which I started 4 years ago. Especially the video player.

The video element mysteriously did not work anymore, and the GUI was a bit clumsy (it still is). But after some tweaks I got it running again (see screenshot).

• The player can process the free video lists from IPTV.ORG
• The list must be downloaded in the same directory as the program in order to be visible for the file selection (HTML security)
• A callback only can be triggered by pressing a button

The Minimal Interface backend can be found here: mi.bac

The player itself can be found here: mytvapp.bac

Just download one of the m3u files from here, point to it with the "Select m3u file" button, press "Add to temporary list" and start watching!

BR
Peter

Attachments:

[alexfish]

Hi peter

think sorted what to do
also posted on mpv thread same

downloaded the full index

wget https://iptv-org.github.io/iptv/index.nsfw.m3u


open upen the file

in there you will see

a cut
#EXTM3U
#EXTINF:-1 tvg-id="1Plus1.ua" tvg-logo="https://i.imgur.com/eJXfMh0.png" group-title="Undefined",1+1 (1080p)
https://ythls.onrender.com/channel/UCVEaAWKfv7fE1c-ZuBs7TKQ.m3u8
#EXTINF:-1 tvg-id="1Plus1Sport.ua" tvg-logo="https://i.imgur.com/tHVc8on.png" group-title="Sports",1+1 Спорт (720p) [Not 24/7]
https://live-k2301-kbp.1plus1.video/sport/smil:sport.smil/playlist.m3u8

open new file

enter in liist
#EXTM3U
#EXTINF:-1 tvg-id="1Plus1Sport.ua" tvg-logo="https://i.imgur.com/tHVc8on.png" group-title="Sports",1+1 Спорт (720p) [Not 24/7]
https://live-k2301-kbp.1plus1.video/sport/smil:sport.smil/playlist.m3u8

and save it as *.m3u8

open file in the app and add to play-list
click play

BR
Alex

Attachments:

[alexfish]

Hi Peter & All

Made a litte search for in HUG


INCLUDE hug.bac

HOME$ = GETENVIRON$("HOME")


SUB search
LOCAL word$
word$ = CHOP$(GRAB$(ent))
where$ = HOME$ & "/index.nsfw.m3u"
LOCAL ned$
OPEN where$ FOR READING AS myfile
WHILE NOT(ENDFILE(myfile)) DO
READLN txt$ FROM myfile
IF NOT(ENDFILE(myfile)) THEN
IF INSTR(txt$,"#") THEN
ned$ = txt$
READLN txt$ FROM myfile
IF INSTR(txt$,word$) THEN
TEXT(ed, ned$ & NL$)
TEXT(ed, txt$ & NL$ & NL$)
END IF
ENDIF
END IF
WEND
CLOSE FILE myfile

END SUB

SUB Clear

TEXT(ed,"")

END SUB

win =  WINDOW("Search IPTV", 806,700)
ent = ENTRY("",200,30)
ATTACH(win,ent,3,3)
CALLBACK(ent,search)
but = BUTTON("Clear",100,30)
ATTACH(win,but,208,3)
CALLBACK(but , Clear)
ed = EDIT(800,660)
ATTACH(win,ed,3,35)

DISPLAY

BR
Alex

Attachments:

[alexfish]

A bit more automated

INCLUDE hug.bac

HOME$ = GETENVIRON$("HOME")


SUB search
LOCAL word$
word$ = CHOP$(GRAB$(ent))
where$ = HOME$ & "/index.nsfw.m3u"
LOCAL ned$
OPEN where$ FOR READING AS myfile
WHILE NOT(ENDFILE(myfile)) DO
READLN txt$ FROM myfile
IF NOT(ENDFILE(myfile)) THEN
IF INSTR(txt$,"#") THEN
ned$ = txt$
READLN txt$ FROM myfile
IF INSTR(txt$,word$) THEN
TEXT(ed,"#EXTM3U" & NL$)
TEXT(ed, ned$ & NL$)
TEXT(ed, txt$ & NL$ & NL$)
END IF
ENDIF
END IF
WEND
CLOSE FILE myfile

END SUB

SUB Clear

TEXT(ed,"")
TEXT(ed,"")
END SUB

SUB Save
LOCAL sav$
LOCAL result$
sav$ = GRAB$(ent2)
result$ = CHOP$(GRAB$(ed2))
IF LEN(sav$) AND LEN(result$) THEN
SAVE result$ TO HOME$ & "/" & sav$
END IF
END SUB
win =  WINDOW("Search IPTV", 806,700)
ent = ENTRY("",200,30)
ATTACH(win,ent,3,3)
CALLBACK(ent,search)
but = BUTTON("Clear",100,30)
ATTACH(win,but,208,3)
CALLBACK(but , Clear)
ent2 = ENTRY("me.m3u8",160,30)
ATTACH(win,ent2,310,3)
ed = EDIT(800,560)
ATTACH(win,ed,3,35)
but2 = BUTTON("Save",100,30)
ATTACH(win,but2,473,3)
CALLBACK(but2,Save)
ed2= EDIT(800,80+15)
ATTACH(win,ed2,3,558+40)
DISPLAY

copy from 3 entities of main edit
to bottom edit

IE
#EXTM3U
#EXTINF:-1 tvg-id="MusicChannelHungary.hu" tvg-logo="https://i.imgur.com/pzU6FrQ.png" group-title="Music",1Music Channel Hungary (576p)
http://1music.hu/1music.m3u8

click save button :: edit ent2 to *.m3u8

[bigbass]

Hello Peter



Thanks for the improved and updated code for

The Minimal Interface ,mytvapp.bac and IPTV


Joe

P.S have been testing all the betas from fossil and all is well
on the RPI3


have a great time on your vacation !

[Pjot]

Thanks Joe,

I hope to release 4.7 next week (June 1st).

As always, please keep reporting bugs if you find them (or anyone else of course)

BR
Peter