hummypkg/webif
5
3
Fork 4
Code Issues Pull Requests Releases 1 Activity

0.12.0

Browse Source 
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1398 2a923420-c742-0410-a762-8d5b09965624
This commit is contained in:
hummypkg 2013-02-09 22:46:15 +00:00
parent f116cc5801
commit 2ab6f7caa2
85 changed files with 180 additions and 492 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CONTROL/control
View File

@ -1,9 +1,9 @@
Package: webif
Priority: optional
Section: web
Version: 0.11.0-5
Version: 0.12.0
Architecture: mipsel
Maintainer: af123@hummypkg.org.uk
Depends: webif-channelicons(>=1.0.4-1),mongoose(>=3.0-7),jim(>=0.73-1),jim-oo,jim-sqlite3(>=0.73-1),jim-cgi(>=0.6),jim-binary,service-control(>=1.2),busybox(>=1.20.2-1),lsof,epg(>=1.0.10),hmt(>=1.1.10),ssmtp,anacron,trm(>=1.1),openssl-command,nicesplice,id3v2,file,rsvsync(>=1.0.2),webif-charts(>=1.2),stripts(>=1.1.2),smartmontools,tmenu(>=1.05)
Depends: webif-channelicons(>=1.0.4-1),mongoose(>=3.0-7),jim(>=0.73-1),jim-oo,jim-sqlite3(>=0.73-1),jim-cgi(>=0.7),jim-binary,service-control(>=1.2),busybox(>=1.20.2-1),lsof,epg(>=1.0.10),hmt(>=1.1.12),ssmtp,anacron,trm(>=1.1),openssl-command,nicesplice,id3v2,file,rsvsync(>=1.0.2),webif-charts(>=1.2),stripts(>=1.1.2),smartmontools,tmenu(>=1.05)
Suggests: ffmpeg
Description: An evolving web interface for the Humax.

6
var/mongoose/cgi-bin/backup/backup.jim
View File

@ -7,11 +7,7 @@ require rsv.class
set dir /mod/var/backup
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set now [clock seconds]
set file [file tail [cgi_get file \

12
var/mongoose/cgi-bin/backup/delete.jim
View File

@ -5,20 +5,14 @@ source /mod/webif/lib/setup
set dir /mod/var/backup
puts "Content-Type: text/html"
puts "Pragma: no-cache"
puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
puts ""
httpheader
cgi_input
#cgi_dump
if {![dict exists $_cgi restore_file]} {
set file [file tail [cgi_get restore_file]]
if {$file == 0} {
puts "No filename supplied."
exit
}
set file [file tail [dict get $_cgi restore_file]]
set ffile "/$dir/$file.rbk"
if {![file exists $ffile]} {

6
var/mongoose/cgi-bin/backup/files.jim
View File

@ -1,11 +1,9 @@
#!/mod/bin/jimsh
package require cgi
source /mod/webif/lib/setup
puts "Content-Type: text/html"
puts "Pragma: no-cache"
puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
puts ""
httpheader
set dir "/mod/var/backup"

12
var/mongoose/cgi-bin/backup/restore.jim
View File

@ -7,20 +7,14 @@ require rsv.class findhsvc system.class
set dir /mod/var/backup
puts "Content-Type: text/html"
puts ""
httpheader
cgi_input
#cgi_dump
#set _cgi(restore_file) "backup-2011-Jul-09-20:37"
if {![dict exists $_cgi restore_file]} {
set file [file tail [cgi_get restore_file]]
if {$file == 0} {
puts "No filename supplied."
exit
}
set file [file tail [dict get $_cgi restore_file]]
set ffile "/$dir/$file.rbk"
if {![file exists $ffile]} {

12
var/mongoose/cgi-bin/backup/view.jim
View File

@ -7,20 +7,14 @@ require rsv.class findhsvc
set dir /mod/var/backup
puts "Content-Type: text/html"
puts ""
httpheader
cgi_input
#cgi_dump
#set _cgi(restore_file) "backup-2011-Jul-09-20:37"
if {![dict exists $_cgi restore_file]} {
set file [file tail [cgi_get restore_file]]
if {$file == 0} {
puts "No filename supplied."
exit
}
set file [file tail [dict get $_cgi restore_file]]
set ffile "/$dir/$file.rbk"
if {![file exists $ffile]} {

9
var/mongoose/cgi-bin/browse.jim
View File

@ -4,8 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size system.class settings.class escape browse.class
puts "Content-Type: text/html"
puts ""
header
set nicesplice [system pkginst nicesplice]
set flatten [system pkginst flatten]
@ -13,11 +12,9 @@ set flatten [system pkginst flatten]
set ignore {.nts .thm .hmi}
set include {.ts .avi .mpg .mpeg .wmv .mkv .mp3 .mp4 .mov .hmt}
cgi_input
#cgi_dump
if {![dict exists $env REQUEST_URI]} {
set env(REQUEST_URI) ""
cgi_input
set _cgi(dir) "/media/My Video/"
}
@ -231,8 +228,6 @@ set dir [cgi_get dir [system mediaroot]]
######################################################################
# Render web page
header
puts {
<link href=/css/jquery.contextMenu.css rel=stylesheet type=text/css />
<script type=text/javascript src=/js/jquery.contextMenu.js></script>

7
var/mongoose/cgi-bin/browse/audio/audio.jim
View File

@ -5,18 +5,13 @@ package require cgi
source /mod/webif/lib/setup
require ts.class system.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
header
set rfile [cgi_get file]
set ts [ts fetch $rfile]
set dir [file dirname $rfile]
set len [$ts duration 1]
header
puts "
<link href=/css/jquery.progressbar.css rel=stylesheet type=text/css />
<script type=text/javascript src=/js/jquery.progressbar.js></script>

5
var/mongoose/cgi-bin/browse/audio/execute.jim
View File

@ -5,10 +5,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class system.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set rfile [cgi_get file]
set ts [ts fetch $rfile]

5
var/mongoose/cgi-bin/browse/audio/progress.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set tsfile [cgi_get file]
set rfile [file normalize $tsfile]

7
var/mongoose/cgi-bin/browse/chunk/chunk.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
header
set rfile [cgi_get file]
set ts [ts fetch $rfile]
@ -21,8 +18,6 @@ set len [$ts duration 1]
set esttime $(int($len * 0.025))
if {[$ts get definition] eq "HD"} { set esttime $($esttime * 4) }
header
puts "
<script type=text/javascript src=/js/jquery.progressbar.js></script>
<script type=text/javascript src=chunk.js></script>

5
var/mongoose/cgi-bin/browse/chunk/extract.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set rfile [cgi_get file]
set part [cgi_get part -]

5
var/mongoose/cgi-bin/browse/chunk/progress.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
heepheader
set file [cgi_get file]
set part [cgi_get part]

6
var/mongoose/cgi-bin/browse/clipboard.jim
View File

@ -4,13 +4,9 @@ package require cgi
source /mod/webif/lib/setup
require clipboard.class ts.class
puts "Content-Type: text/html; no-cache"
puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
puts "Pragma: nocache"
puts ""
httpheader
cgi_input 1
#cgi_dump
set cb [[clipboard new {path "/tmp/webif-browse.cb"}] load]

7
var/mongoose/cgi-bin/browse/crop/crop.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
header
set rfile [cgi_get file]
set ts [ts fetch $rfile]
@ -15,8 +12,6 @@ set dir [file dirname $rfile]
set len [$ts duration 1]
header
puts "
<link href=/css/jquery.progressbar.css rel=stylesheet type=text/css />
<script type=text/javascript src=/js/jquery.progressbar.js></script>

5
var/mongoose/cgi-bin/browse/crop/execute.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size system.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set rfile [cgi_get file]

5
var/mongoose/cgi-bin/browse/crop/progress.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set perc [cgi_get perc 100]
set tsfile [file normalize [cgi_get file]]

7
var/mongoose/cgi-bin/browse/decrypt/decrypt.jim
View File

@ -5,10 +5,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
header
set rfile [cgi_get file]
set ts [ts fetch $rfile]
@ -16,8 +13,6 @@ set dir [file dirname $rfile]
set len [$ts duration 1]
lassign [$ts dlnaloc] url
header
puts "
<link href=/css/jquery.progressbar.css rel=stylesheet type=text/css />
<script type=text/javascript src=/js/jquery.progressbar.js></script>

5
var/mongoose/cgi-bin/browse/decrypt/execute.jim
View File

@ -5,10 +5,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class system.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set rfile [cgi_get file]
set ts [ts fetch $rfile]

5
var/mongoose/cgi-bin/browse/decrypt/progress.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set tsfile [cgi_get file]
set rfile [file normalize $tsfile]

5
var/mongoose/cgi-bin/browse/delete.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require safe_delete
puts "Content-Type: text/html\r\n"
cgi_input
#cgi_dump
httpheader
set dir [cgi_get dir]

5
var/mongoose/cgi-bin/browse/download.jim
View File

@ -5,11 +5,6 @@ package require sqlite3
source /mod/webif/lib/setup
require ts.class
#puts "Content-Type: text/plain\r\n\r\n"
cgi_input
#cgi_dump
set file [cgi_get file]
set urlbase [cgi_get base ""]

13
var/mongoose/cgi-bin/browse/enc.jim
View File

@ -1,17 +1,12 @@
#!/mod/bin/jimsh
package require cgi
source /mod/webif/lib/ts.class
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html"
puts ""
httpheader
cgi_input
#cgi_dump
#set _cgi(file) "/media/My Video/The Walking Dead/The Walking Dead S01E06.ts"
set file [dict get $_cgi file]
set file [cgi_get file]
set ts [ts fetch $file]
if {[set ts [ts fetch $file]] != 0} {
set action enc

15
var/mongoose/cgi-bin/browse/epgtitle.jim
View File

@ -1,18 +1,13 @@
#!/mod/bin/jimsh
package require cgi
source /mod/webif/lib/ts.class
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: application/json"
puts ""
httpheader "application/json"
cgi_input
#cgi_dump
#set _cgi(file) "/media/My Video/Doctor Who/6.13._The_Almost_People.ts"
if {![dict exists $_cgi file]} { exit }
set file [dict get $_cgi file]
set file [cgi_get file]
if {$file == 0} exit
set ts [ts fetch $file]
puts "{"

9
var/mongoose/cgi-bin/browse/ffmpeg.jim
View File

@ -1,15 +1,12 @@
#!/mod/bin/jimsh
package require cgi
source /mod/webif/lib/setup
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
if [file exists /mod/bin/ffmpeg] {
set file [dict get $_cgi file]
set file [cgi_get file]
puts [exec /mod/webif/lib/bin/ffmpeg -i $file]
} else {
puts "Install ffmpeg package for more information..."

14
var/mongoose/cgi-bin/browse/file.jim
View File

@ -4,18 +4,12 @@ package require cgi
source /mod/webif/lib/setup
require pretty_size
puts "Content-Type: text/html"
puts ""
httpheader
cgi_input
#cgi_dump
set file [cgi_get file]
set type [cgi_get type]
#set _cgi(file) "/media/My Video/Dangermouse/Series 1/01_rogue_robots.avi"
if {![dict exists $_cgi file]} { exit }
set file [dict get $_cgi file]
set type [dict get $_cgi type]
if {$file == 0} exit
file stat $file st
set sz [pretty_size $st(size)]

6
var/mongoose/cgi-bin/browse/flagdir.jim
View File

@ -3,11 +3,7 @@
package require cgi
source /mod/webif/lib/setup
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set dir [cgi_get dir]
set flag [cgi_get flag]

3
var/mongoose/cgi-bin/browse/iconset.jim
View File

@ -4,8 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require browse.class
puts "Content-Type: text/html"
puts ""
httpheader
set file [cgi_get file]

3
var/mongoose/cgi-bin/browse/join/execute.jim
View File

@ -4,10 +4,9 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
httpheader
cgi_input 1
#cgi_dump
set joinstart [clock milliseconds]

1
var/mongoose/cgi-bin/browse/join/join.jim
View File

@ -4,7 +4,6 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
header
cgi_input 1

7
var/mongoose/cgi-bin/browse/join/progress.jim
View File

@ -1,12 +1,9 @@
#!/mod/bin/jimsh
package require cgi
#source /mod/webif/lib/setup
source /mod/webif/lib/setup
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set expected [cgi_get esize 1]
set file [file normalize [cgi_get file]]

10
var/mongoose/cgi-bin/browse/lock.jim
View File

@ -4,15 +4,9 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html"
puts ""
httpheader
cgi_input
#cgi_dump
#set _cgi(file) "/media/My Video/The Walking Dead/The Walking Dead S01E06.ts"
set file [dict get $_cgi file]
set file [cgi_get file ""]
set ts [ts fetch $file]
if {[set ts [ts fetch $file]] != 0} {
set action lock

7
var/mongoose/cgi-bin/browse/mknewdir.jim
View File

@ -1,12 +1,9 @@
#!/mod/bin/jimsh
package require cgi
source /mod/webif/lib/setup
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set dir [cgi_get dir -]
set name [cgi_get newdirname "New Folder"]

5
var/mongoose/cgi-bin/browse/mpg/execute.jim
View File

@ -5,10 +5,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class system.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set rfile [cgi_get file]
set ts [ts fetch $rfile]

7
var/mongoose/cgi-bin/browse/mpg/mpg.jim
View File

@ -5,18 +5,13 @@ package require cgi
source /mod/webif/lib/setup
require ts.class system.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
header
set rfile [cgi_get file]
set ts [ts fetch $rfile]
set dir [file dirname $rfile]
set len [$ts duration 1]
header
puts "
<link href=/css/jquery.progressbar.css rel=stylesheet type=text/css />
<script type=text/javascript src=/js/jquery.progressbar.js></script>

5
var/mongoose/cgi-bin/browse/mpg/progress.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set tsfile [cgi_get file]
set rfile [file normalize $tsfile]

10
var/mongoose/cgi-bin/browse/new.jim
View File

@ -4,15 +4,9 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html"
puts ""
httpheader
cgi_input
#cgi_dump
#set _cgi(file) "/media/My Video/The Walking Dead/The Walking Dead S01E06.ts"
set file [dict get $_cgi file]
set file [cgi_get file]
set ts [ts fetch $file]
if {[set ts [ts fetch $file]] != 0} {
set action new

11
var/mongoose/cgi-bin/browse/newdir.jim
View File

@ -2,16 +2,11 @@
package require cgi
package require pack
source /mod/webif/lib/setup
puts "Content-Type: application/json"
puts ""
httpheader "application/json"
cgi_input
#cgi_dump
#set _cgi(dir) "/media/My Video"
set root [dict get $_cgi dir]
set root [cgi_get dir]
# Strip double slashes
regsub -all -- {\/+} "$root/*" "/" root

6
var/mongoose/cgi-bin/browse/rename.jim
View File

@ -4,11 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set file [cgi_get renamefile "-"]
if {$file eq "-"} exit

6
var/mongoose/cgi-bin/browse/resetnew.jim
View File

@ -5,11 +5,7 @@ package require pack
source /mod/webif/lib/setup
require ts.class hexdump
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set dir [cgi_get dir]
if {![file isdirectory $dir]} { exit }

6
var/mongoose/cgi-bin/browse/savestream.jim
View File

@ -4,11 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set dir [cgi_get dir "/media/My Video"]
set file [file tail [cgi_get savestream_name]]

8
var/mongoose/cgi-bin/browse/shrunk.jim
View File

@ -1,13 +1,9 @@
#!/mod/bin/jimsh
package require cgi
source /mod/webif/lib/setup
#puts "Content-Type: text/plain"
puts "Content-Type: application/json"
puts ""
cgi_input
#cgi_dump
httpheader "application/json"
set dir [cgi_get dir "/media/My Video/Children"]

12
var/mongoose/cgi-bin/browse/sizes.jim
View File

@ -1,17 +1,11 @@
#!/mod/bin/jimsh
package require cgi
source /mod/webif/lib/setup
#puts "Content-Type: text/plain"
puts "Content-Type: application/json"
puts ""
httpheader "application/json"
cgi_input
#cgi_dump
#set _cgi(dir) "/media/My Video"
set dir [dict get $_cgi dir]
set dir [cgi_get dir]
set dlen [string length "$dir/"]
#9.4G /media/My Video/Archive

5
var/mongoose/cgi-bin/browse/strip/analyse.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set rfile [cgi_get file]
set base [file rootname $rfile]

5
var/mongoose/cgi-bin/browse/strip/execute.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set rfile [cgi_get file]
set ts [ts fetch $rfile]

5
var/mongoose/cgi-bin/browse/strip/progress.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
httpheader
set tsfile [file normalize [cgi_get file]]
set ntsfile "[file rootname $tsfile].nts"

7
var/mongoose/cgi-bin/browse/strip/strip.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
header
set rfile [cgi_get file]
set ts [ts fetch $rfile]
@ -17,8 +14,6 @@ set len [$ts duration 1]
set esttime $([$ts size] / 5700000)
header
puts "
<link href=/css/jquery.progressbar.css rel=stylesheet type=text/css />
<script type=text/javascript src=/js/jquery.progressbar.js></script>

5
var/mongoose/cgi-bin/channel.jim
View File

@ -5,13 +5,8 @@ package require sqlite3
source /mod/webif/lib/setup
require altrow progressbar epg.class
puts "Content-Type: text/html"
puts ""
header
cgi_input
proc f2c {frequency} {
set ch int($((($frequency / 1000) - 303.25) / 8))
return [expr int($ch)]

8
var/mongoose/cgi-bin/db.jim
View File

@ -5,17 +5,11 @@ package require sqlite3
source /mod/webif/lib/setup
require altrow
puts "Content-Type: text/html"
puts ""
set databases [glob /var/lib/humaxtv/*.db]
lappend databases "/mnt/hd2/dms_cds.db"
header
cgi_input
#cgi_dump
set ftab [cgi_get tab]
set fdb [cgi_get db]
@ -24,7 +18,7 @@ if {$fdb != 0} {
}
proc db_info {db_file} {
global _cgi fdb ftab
global fdb ftab
if {$fdb != 0 && [file tail $db_file] ne $fdb} { return }
if {![file exists $db_file]} { return }

3
var/mongoose/cgi-bin/env.jim
View File

@ -1,6 +1,7 @@
#!/mod/bin/jimsh
puts "Content-type: text/plain\n"
source /mod/webif/lib/setup
httpheader "text/plain"
foreach f [dict keys $env] {
puts "$f = $env($f)"

16
var/mongoose/cgi-bin/epg/dump.jim
View File

@ -4,21 +4,11 @@ package require cgi
source /mod/webif/lib/setup
require epg.class
puts "Content-Type: text/html"
puts ""
header
cgi_input
#cgi_dump
set service 0
set service 4351
catch { set service [dict get $_cgi service] }
set event 0
catch { set event [dict get $_cgi event] }
set raw 0
catch { set raw [dict get $_cgi raw] }
set service [cgi_get service]
set event [cgi_get event]
set raw [cgi_get raw]
puts "<pre>"
if { $raw == 0 } {

10
var/mongoose/cgi-bin/epg/info.jim
View File

@ -4,15 +4,11 @@ package require cgi
source /mod/webif/lib/setup
require epg.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set service [cgi_get service 0]
set event [cgi_get event 0]
if {! [dict exists $_cgi bare]} { header }
if {![cgi_exists bare]} header
set record [lindex [epg fetch dump -service $service -event $event] 0]
$record get_channel_info
@ -135,5 +131,5 @@ puts "
puts "<div id=epginfo_extra class=footnote></div>"
epg cleanup
if {! [dict exists $_cgi bare]} { footer }
if {![cgi_exists bare]} footer

15
var/mongoose/cgi-bin/epg/schedule.jim
View File

@ -4,22 +4,17 @@ package require cgi
source /mod/webif/lib/setup
require epg.class system.class
puts "Content-Type: text/html"
puts ""
httpheader
cgi_input
#cgi_dump
set service [cgi_get service -]
set event [cgi_get event -]
set type [cgi_get type 1]
if {![dict exists $_cgi service] || ![dict exists $_cgi event]} {
if {$service eq "-" || $event eq "-"} {
puts "Error, insufficient parameters passed."
exit
}
set service $_cgi(service)
set event $_cgi(event)
set type 1
if {[dict exists $_cgi type]} { set type $_cgi(type) }
set event [lindex [epg fetch dump -service $service -event $event] 0]
if {$event eq ""} {
puts "Error, cannot find event to schedule."

22
var/mongoose/cgi-bin/epg/search.jim
View File

@ -4,27 +4,18 @@ package require cgi
source /mod/webif/lib/setup
require epg.class spinner.class altrow
puts "Content-Type: text/html"
puts ""
header
require totop
puts "<script type=text/javascript src=/js/jquery.highlight.js></script>"
cgi_input
#cgi_dump
set ct [cgi_get ct 0]
set crid [cgi_get crid ""]
set scrid [cgi_get scrid ""]
set ct 0
catch { set ct [dict get $_cgi ct] }
set crid ""
catch { set crid [dict get $_cgi crid] }
set scrid ""
catch { set scrid [dict get $_cgi scrid] }
if {[dict exists $_cgi term]} {
set lterm [dict get $_cgi term]
if {[cgi_exists term]} {
set lterm [cgi_get term]
if {[string match {CRID:*} $lterm]} {
set crid [string range $lterm 5 end]
@ -47,9 +38,6 @@ require epg_search
require epg_popup
#set _cgi [dict create term "doctor who"]
#set env(REQUEST_URI) "test"
set cmd "search"
if {$searchfull} { set cmd "searchall" }

6
var/mongoose/cgi-bin/epg/service.jim
View File

@ -4,9 +4,6 @@ package require cgi
source /mod/webif/lib/setup
require epg.class spinner.class altrow
puts "Content-Type: text/html"
puts ""
header
require totop
@ -17,9 +14,6 @@ require totop
style "margin: 1em;"
}] start
cgi_input
#cgi_dump
require epg_popup
set service [cgi_get service 4351]

5
var/mongoose/cgi-bin/restart.jim
View File

@ -4,10 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require rsv.class system.class
puts "Content-Type: text/html"
puts ""
cgi_input
httpheader
if {[cgi_get act] eq "cancel"} {
file delete /tmp/.restartpending

4
var/mongoose/cgi-bin/restartblock.jim
View File

@ -1,7 +1,7 @@
#!/mod/bin/jimsh
puts "Content-Type: text/html"
puts ""
source /mod/webif/lib/setup
httpheader
source /mod/webif/include/restart.jim

11
var/mongoose/cgi-bin/service.jim
View File

@ -1,15 +1,12 @@
#!/mod/bin/jimsh
package require cgi
source /mod/webif/lib/setup
puts "Content-Type: text/html"
puts ""
httpheader
cgi_input
#cgi_dump
catch { set service [dict get $_cgi service] }
catch { set action [dict get $_cgi action] }
set service [cgi_get service]
set action [cgi_get action]
catch { puts [exec /mod/bin/service $action $service] }

6
var/mongoose/cgi-bin/settings.jim
View File

@ -4,11 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require settings.class plugin system.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
if {[cgi_get act] eq "https"} {
if {[cgi_get val off] eq "off"} {

6
var/mongoose/cgi-bin/status.jim
View File

@ -10,12 +10,8 @@ if {[string match {*jim} $argv0]} { set runmode cgi }
set schedtime 1200
case $runmode {
cgi {
cgi_input
set type [cgi_get type "full"]
puts "Content-Type: text/html"
puts "Pragma: no-cache"
puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
puts ""
httpheader
}
cli {
set type "full"

3
var/mongoose/cgi-bin/streamsize.jim
View File

@ -2,7 +2,8 @@
set stream "/mnt/hd3/Streamer_down_file"
puts "Content-type: text/plain\n"
source /mod/webif/lib/setup
httpheader "text/plain"
if {[file exists $stream]} {
puts -nonewline [file size $stream]

4
var/mongoose/cgi-bin/xepg.jim
View File

@ -3,14 +3,10 @@
package require cgi
source /mod/webif/lib/setup
puts "Content-Type: text/html"
puts ""
header
require epg.class spinner.class altrow epg_search totop
cgi_input
puts {
<link type="text/css" href="/css/xepg.css" rel="Stylesheet" />
<script type=text/javascript src=/js/enadis.js></script>

10
var/mongoose/html/dedup/dedup.jim
View File

@ -4,20 +4,14 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size altrow
header
source normalise.jim
source process.jim
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
set dir [cgi_get dir "/media/My Video"]
set doit [cgi_get doit 0]
header
puts "<script type=text/javascript src=script.js></script>"
puts "<fieldset style=\"display: inline\">

6
var/mongoose/html/diag/clearlog.jim
View File

@ -3,15 +3,11 @@
package require cgi
source /mod/webif/lib/setup
puts "Content-Type: text/html"
puts ""
httpheader
set logdirs {/var/log /mod/tmp /mnt/hd3}
set logext {.log}
cgi_input
#cgi_dump
set log [cgi_get file 0]
set ldir [file dirname $log]

5
var/mongoose/html/diag/diag.jim
View File

@ -4,15 +4,12 @@ package require cgi
source /mod/webif/lib/setup
require pretty_size system.class pkg.class
puts "Content-Type: text/html"
puts ""
header
pkg loaddiagmeta
set smv [system modversion 1]
header
puts {
<script type=text/javascript src=/js/enadis.js></script>
<script type=text/javascript src=script.js></script>

3
var/mongoose/html/diag/disk.jim
View File

@ -4,9 +4,6 @@ package require cgi
source /mod/webif/lib/setup
require system.class
puts "Content-Type: text/html"
puts ""
header
set space [system diskspace]

5
var/mongoose/html/dlna/dlna.jim
View File

@ -5,11 +5,6 @@ package require sqlite3
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n\r\n"
cgi_input
#cgi_dump
header
#append dmsfile ".rr"

3
var/mongoose/html/dlna/reset.jim
View File

@ -3,8 +3,7 @@
source /mod/webif/lib/setup
require system.class
puts "Content-Type: text/html"
puts ""
httpheader
set menupath "Settings-&gt;System-&gt;Internet Setting-&gt;Content Share"
set dbpath "/mnt/hd2/dms_cds.db"

5
var/mongoose/html/edit/create.jim
View File

@ -3,14 +3,11 @@
package require cgi
source /mod/webif/lib/setup
cgi_input
#cgi_dump
httpheader "text/plain"
set file [cgi_get file "/tmp/hosts"]
if {$file eq "-"} { exit }
puts "Content-Type: text/plain\n"
if {[file exists $file]} {
puts ">>> File already exists."
exit

5
var/mongoose/html/edit/edit.jim
View File

@ -4,13 +4,8 @@ package require cgi
source /mod/webif/lib/setup
require plugin
puts "Content-Type: text/html"
puts ""
header
cgi_input
#cgi_dump
set file [cgi_get file "/tmp/hosts"]
puts {

6
var/mongoose/html/edit/files.jim
View File

@ -3,11 +3,7 @@
package require cgi
source /mod/webif/lib/setup
cgi_input
#cgi_dump
puts "Content-Type: text/html"
puts ""
httpheader
set root [cgi_get dir]

6
var/mongoose/html/edit/put.jim
View File

@ -3,11 +3,7 @@
package require cgi
source /mod/webif/lib/setup
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set file [cgi_get file "/tmp/testfile"]
if {$file eq "-"} { exit }

65
var/mongoose/html/js/iajax.js
View File

@ -1,45 +1,38 @@
jQuery.ajaxPrefilter(function(options, _, jqXHR) {
if (jQuery.isFunction(options.progress))
{
var xhrFactory = options.xhr;
var interval;
if (jQuery.isFunction(options.progress)) {
options.xhr = function() {
var xhr = xhrFactory.apply(this, arguments);
var partial = "";
var prevcount = 1;
var xhrFactory = options.xhr,
interval;
interval = setInterval(function() {
var responseText;
var jQueryPartial;
options.xhr = function() {
var xhr = xhrFactory.apply(this, arguments),
partial = "",
prevcount = 1;
try {
responseText = xhr.responseText;
if (responseText &&
responseText.length > partial.length)
{
options.progress(
responseText.substring(
partial.length));
partial = responseText;
}
} catch(e) {
if (window.console)
console.log(e);
}
}, options.progressInterval);
interval = setInterval(function() {
var responseText,
jQueryPartial;
try {
responseText = xhr.responseText;
if (responseText && (responseText.length > partial.length))
{
partial = responseText;
jQueryPartial = $(partial).filter("*")
if (jQueryPartial.length > prevcount) {
prevcount = jQueryPartial.length;
options.progress(jQueryPartial.filter("*:not(:last)"));
}
}
} catch(e) {
if (window.console)
console.log(e);
}
}, options.progressInterval);
return xhr;
};
return xhr;
};
function stop()
{
if (interval)

11
var/mongoose/html/pkg/pkg.jim
View File

@ -6,14 +6,7 @@ require settings.class pkg.class altrow
if {[[settings] pkgdev]} { set filter 0 } else { set filter 1 }
puts "Content-Type: text/html"
puts "Pragma: no-cache"
puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
puts ""
cgi_input
#cgi_dump
if {![dict exists $_cgi type]} { set _cgi(type) avail }
httpheader
proc pkgrow {pkg} {
set name [$pkg get name]
@ -60,7 +53,7 @@ proc pkgrow {pkg} {
pkg loadmeta
set type $_cgi(type)
set type [cgi_get type "avail"]
set pkgs [pkg $type]

24
var/mongoose/html/pkg/script.js
View File

@ -66,17 +66,19 @@ $(document).ready(function() {
function loaddata(data, isfinal)
{
//console.log('loaddata called, final=' + isfinal);
//console.log('Data: ' + data);
$('#dresults').append(data);
if (window.console)
{
console.log('loaddata called, final=' + isfinal);
console.log('Data: ' + data);
}
if (isfinal)
{
$('#dresults').text(data);
$('#dspinner').hide('slow');
if (!$('#dresults').text())
$('#dresults').append('Nothing to do.');
else
$('#complete').show('slow');
$('#complete').show('slow');
}
else
$('#dresults').append(data);
}
function execopkg(arg, pkg)
@ -95,20 +97,16 @@ $(document).ready(function() {
$('#dialogue').attr('pkg', pkg);
$dialog.dialog('open');
// $('#dresults').load(opkg + arg, function() {
// $('#dspinner').hide('slow');
// });
$.ajax({
type: "GET",
url: opkg + arg,
progress: loaddata,
success: function(data) {
//console.log("ajax success");
loaddata(data, true);
},
error: function(_, _, e) {
//console.log("ajax error");
if (window.console)
console.log("ajax error");
alert(e);
}
});

5
var/mongoose/html/play/play.jim
View File

@ -4,11 +4,6 @@ package require cgi
source /mod/webif/lib/setup
require ts.class pretty_size
puts "Content-Type: text/html\r\n"
cgi_input
#cgi_dump
header
set rfile [cgi_get file]

6
var/mongoose/html/sched/ar.jim
View File

@ -4,11 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require rsv.class system.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set slot [cgi_get slot 0]
set table [cgi_get table TBL_RESERVATION]

6
var/mongoose/html/sched/cancel.jim
View File

@ -4,11 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require rsv.class system.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set slot [cgi_get slot 0]
set table [cgi_get table TBL_RESERVATION]

6
var/mongoose/html/sched/folder.jim
View File

@ -4,11 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require rsv.class system.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set slot [cgi_get sid 0]
set table [cgi_get table TBL_RESERVATION]

6
var/mongoose/html/sched/info.jim
View File

@ -4,11 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require rsv.class progressbar epg.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set table [cgi_get table TBL_RESERVATION]
set slot [cgi_get slot 0]

6
var/mongoose/html/sched/pad.jim
View File

@ -4,11 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require rsv.class system.class
puts "Content-Type: text/html"
puts ""
cgi_input
#cgi_dump
httpheader
set slot [cgi_get slot 0]
set table [cgi_get table TBL_RESERVATION]

5
var/mongoose/html/sched/sched.jim
View File

@ -4,8 +4,7 @@ package require cgi
source /mod/webif/lib/setup
require altrow rsv.class progressbar epg.class system.class
puts "Content-Type: text/html"
puts ""
header
set svcmap {}
lmap i \
@ -14,8 +13,6 @@ lmap i \
set svcmap([lindex $i 1]) [lindex $i 3]
}
header
require epg_popup
puts {

3
var/mongoose/lib/chunked
View File

@ -11,8 +11,7 @@ proc chunk_pad {{len 256}} {
}
proc start_chunked {{type "text/html"}} {
puts -nonewline "Content-Type: $type\r\n"
puts -nonewline "Transfer-Encoding: chunked\r\n\r\n"
httpheader $type 0 "Transfer-Encoding: chunked\r\n"
}
proc end_chunked {} {

18
var/mongoose/lib/setup
View File

@ -9,7 +9,23 @@ if {![exists -proc require]} {
}
}
proc header {} {
proc httpheader {{type "text/html"} {cache 0} {extra ""}} {{done 0}} {
if {$done} return
if {!$cache} {
puts -nonewline "Content-Type: $type; no-cache\r\n"
puts -nonewline "Expires: -1\r\n"
puts -nonewline "Pragma: no-cache\r\n"
puts -nonewline "Cache-Control: no-cache\r\n"
} else {
puts "Content-Type: $type\r\n"
}
puts -nonewline $extra
puts -nonewline "\r\n"
set done 1
}
proc header {{type "text/html"} {cache 0}} {
httpheader $type $cache
uplevel source /mod/webif/html/lib/header.jim
}

2
var/mongoose/lib/ts.class
View File

@ -172,7 +172,7 @@ ts method settitle {newtitle} {
}
ts method setsynopsis {newsynopsis} {
if {[string length newsynopsis] > 48} { return }
if {[string length newsynopsis] > 252} { return }
exec /mod/bin/hmt "+setsynopsis=${newsynopsis}" $file
}