forked from hummypkg/webif
13 lines
248 B
Plaintext
13 lines
248 B
Plaintext
|
#!/mod/bin/jimsh
|
||
|
|
|
||
|
|
if { [catch {set fd [open "/mod/mediatomb/config/mediatomb.html" r]} fid] } {
|
||
|
|
exit 0
|
||
|
|
}
|
||
|
|
set data [read $fd]
|
||
|
|
close $fd
|
||
|
|
regexp {URL=([^"]*)} $data match
|
||
|
|
set url [string range $match 4 [string length $match]]
|
||
|
|
|
||
|
|
puts "<a href=$url>";
|
||
|
|
|