Not sure why sortnp would have an effect as I thought it only added episode info to items already in Now Playing and didn't touch the ToDo list.
My experience of SortNP suggests that it actually changes the Series name to include the program title or an extract from the program description (if there is no title) in all aspects of Tivo data use until such time as one restores normal Series names again. For instance on World Movies the program items of World Movies in consecutive slots has been permanently changed to Click:The Program... by Now Playing and even Removing titles from the series name does not restore the World Movies program description to its former state.
If you can post the modified version you are now using (inc cfg), I'll try to find time to take a look.
Here it is:-
#!/tvbin/tivosh
# digiguide.itcl
#
# A TiVoWeb module to compare the week's listings to those on Digiguide
#
# By Stuart Anderton (sanderton on tivocommunity.com)
#
# Version 0.1 18/11/03
# Version 0.2 30/01/05 - Modified to work with webserver from client based
# Digiguide. Requires chan_map.txt for this
# functionality (also put this in modules directory).
#
# Version 0.3 22/02/2005 - (shanew) now works with PC-based Digiguide (8.1 or later) too
# Version 0.3a 29/03/2005 - (shanew) code to handle UK daylight savings
# Version 0.3b 26/07/2005 - (mrtickle) added warnings where channels don't match up
#
# Configure by changing the variables below, create a settings file and restart:
proc digiguide_settings {chan env filename} {
set email "me@myemailaddress.co.uk"
set digiguideid "XXXX123"
set digiguide_ip "89.234.33.27"
set digiguide_port "80"
set digiguide_passwd "password1"
set mydigiguide 1
set filter "on"
set days_dg 22
set submit "Save"
set days "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 21 22"
eval $env
if { $submit == "Save" } {
set fileID [open $filename w]
puts $fileID "mydigiguide = $mydigiguide"
puts $fileID "email = $email"
puts $fileID "digiguideid = $digiguideid"
puts $fileID "digiguide_ip = $digiguide_ip"
puts $fileID "digiguide_port = $digiguide_port"
puts $fileID "digiguide_passwd = $digiguide_passwd"
puts $fileID "filter = $filter"
puts $fileID "days_dg = $days_dg"
close $fileID
puts $chan "Your settings have been saved!"
} elseif { [file exists $filename] } {
set fileID [open $filename r]
while {[gets $fileID line] >= 1} {
if { [regexp {([^ ]*) *= *([^ ]*)} $line match var val] } {
set $var $val
}
}
close $fileID
}
set mydinput [html_form_input radio mydigiguide 1]
set dinput [html_form_input radio mydigiguide 0]
if { $mydigiguide == 1 } {
regsub {>} $mydinput { checked>} mydinput
} else {
regsub {>} $dinput { checked>} dinput
}
set filterchecked ""
if { $filter == "on" } {
set filterchecked "CHECKED"
}
puts $chan [html_form_start "POST" "/digiguide/settings" ""]
puts $chan [html_table_start "" "" ""]
puts $chan [tr "ALIGN=CENTER" [th "COLSPAN=2" "Settings"]]
puts $chan [tr "ALIGN=CENTER" [td "$mydinput MyDigiguide"] [td "$dinput Digiguide"]]
puts $chan [tr "ALIGN=RIGHT" [td "Your email:<input type=text value=\"$email\" name=email size=20 maxlength=50>"] [td "IP address of PC running Digiguide:<input type=text value=\"$digiguide_ip\" name=digiguide_ip size=20 maxlength=50>"]]
puts $chan [tr "ALIGN=RIGHT" [td "Login ID:<input type=text value=\"$digiguideid\" name=digiguideid size=20 maxlength=50><br>(embedded in the PDA URL after ?wu=)"] [td "Port:<input type=text value=\"$digiguide_port\" name=digiguide_port size=20 maxlength=50><br>(in Digiguide->Tools->Customise->Web Service)"]]
puts $chan [tr "ALIGN=RIGHT" [td ""] [td "Password:<input type=text value=\"$digiguide_passwd\" name=digiguide_passwd size=20 maxlength=50><br>(in Digiguide->Tools->Customise->Web Service)"]]
puts $chan [tr "ALIGN=CENTER" [td "COLSPAN=2" "[html_form_checkbox filter $filterchecked] Filter out 100% matches"]]
puts $chan [tr "" [td "ALIGN=RIGHT" "Days ahead to check:"] [td [html_form_select days_dg $days $days $days_dg]]]
puts $chan [html_table_end]
puts $chan [html_form_input "submit" "submit" "Save"]
puts $chan [html_form_end]
puts $chan [html_link "/digiguide" "Digiguide"]
puts $chan [html_end]
}
proc initvars {filename} {
global email
global digiguideid
global digiguide_ip
global digiguide_port
global digiguide_passwd
global mydigiguide
global filter
global days_dg
set fileID [open $filename r]
while {[gets $fileID line] >= 1} {
if { [regexp {([^ ]*) *= *([^ ]*)} $line match var val] } {
set $var $val
}
}
close $fileID
}
set max_http_read_dg 10000
proc init_chanlist {} {
global mydigiguide
if { $mydigiguide } {
return [init_chanlist_mydg]
} else {
return [init_chanlist_dg]
}
}
proc init_chanlist_dg {} {
global channels
global digiguide_ip
global digiguide_port
global digiguide_passwd
global source_dir
global digi_sid
global max_http_read_dg
set channels {}
# Read chan_map.txt file
if [catch {open "$source_dir/modules/chan_map.txt" r} fileID] {
# file could not be opened :(
return "File: chan_map.txt could not be opened in directory $source_dir/modules"
} else {
while {[gets $fileID line] >= 1} {
set count [regexp {(.*)==(.*)} $line match digiID tivoID]
if {$count != 1} {
close $fileID
# Error in input file :(
return "Error in file chan_map.txt: $line"
} else {
set digiID [string trim $digiID]
set tivoID [string trim $tivoID]
set digiIDupper [string toupper $digiID]
set digi_chan_map($digiIDupper) $tivoID
}
}
#return "$ret"
close $fileID
}
# First get the sid by passing password
set web [socket $digiguide_ip $digiguide_port]
puts $web "GET /dologin?password=$digiguide_passwd HTTP/1.0"
puts $web "Host: $digiguide_ip"
puts $web "User-Agent: TiVo"
puts $web ""
flush $web
fconfigure $web -blocking 0
set count 0
set html ""
while { $count < $max_http_read_dg } {
set block [read $web]
set html "$html$block"
incr count 1
if { [regexp {Content-Length} $html junk] } {
break
}
}
close $web
if { [regexp {skin-webdefault\/(.*)\/index} $html junk digi_sid] == 0 } {
return "Error: Did not receive sid, possibly wrong password<br>$html"
}
# Now get internal digiguide channel mapping from unknown channel number (999999!)
set web [socket $digiguide_ip $digiguide_port]
puts $web "GET /skin-pda/$digi_sid/viewsinglechannellist?ch=999999 HTTP/1.0"
puts $web "Host: $digiguide_ip"
puts $web "User-Agent: TiVo"
puts $web ""
flush $web
fconfigure $web -blocking 0
set html ""
set count 0
while { $count < $max_http_read_dg } {
set block [read $web]
set html "$html$block"
incr count 1
if { [regexp {<\/[hH][tT][mM][lL]>} $html junk] } {
break
}
}
close $web
# clean up
regexp {\<select[^\>]*\>(.*)\<\/select\>} $html junk options
regsub -all { +} $options {qq} options
regsub -all {<} $options {\<} options
regsub -all {>} $options {\>} options
regsub -all {"} $options {\"} options
regsub -all {&} $options {\&} options
regsub -all {(\<\/option\>)(\<option)} $options {\1 \2} options
foreach item $options {
regsub -all {qq} $item { } item
if { [regexp {option value=\"(.*)\"\>(.*)\(} $item junk digi_ch tivo_ch] } {
set tivo_ch [string trim $tivo_ch]
set tivo_ch [string toupper $tivo_ch]
set digi_ch_arr($tivo_ch) $digi_ch
lappend tivo_chs $tivo_ch
}
}
# Now merge the two arrays
foreach ch $tivo_chs {
if { [info exists digi_chan_map($ch)] } {
lappend channels "$digi_chan_map($ch) $digi_ch_arr($ch)"
}
}
return 0
}
proc init_chanlist_mydg {} {
global channels
set channels {}
lappend channels {ALJAZIN 50610}
lappend channels {NGWILD 601}
lappend channels {BBC1LDN 50231}
lappend channels {BBCNEWS 20}
lappend channels {BBC2 50251}
lappend channels {BBC3 74}
lappend channels {BBC4 88}
lappend channels {BBCPARL 21}
lappend channels {BLOOMUK 121}
lappend channels {BOOMRG 547}
lappend channels {C4 4}
lappend channels {C4P1 50592}
lappend channels {DISCOV 12}
lappend channels {DISNEY 67}
lappend channels {E4 587}
lappend channels {E4P1 50224}
lappend channels {EURGB 519}
lappend channels {EURSPT2 614}
lappend channels {EURNEWS 570}
lappend channels {MOTORS 6351}
lappend channels {FILM24 50644}
lappend channels {FILM4 100}
lappend channels {FILM41 598}
lappend channels {FIVE 5}
lappend channels {FIVEUSA 50543}
lappend channels {FIVEUP1 50599}
lappend channels {FIVER 50544}
lappend channels {FIVERP1 50600}
lappend channels {HORROR 50277}
lappend channels {HORROR1 50660}
lappend channels {ITV1LON 3}
lappend channels {ITV2 32}
lappend channels {ITV3 50283}
lappend channels {ITV3P1 50552}
lappend channels {ITV4 50470}
lappend channels {ITV4P1 50869}
lappend channels {ITV2P1 50551}
lappend channels {MM 107}
lappend channels {MORE4 50459}
lappend channels {MORE4P1 50460}
lappend channels {MOTORS 6351}
lappend channels {REAL1 50352}
lappend channels {REALITY 5910}
lappend channels {SKYONE 65}
lappend channels {SKYNEWS 70}
lappend channels {SKY3 50468}
lappend channels {THRILL 50542}
lappend channels {TRAVEL 103}
lappend channels {TRAVP1 50354}
lappend channels {TRAV2EU 50646}
lappend channels {TRUEMOV 50446}
lappend channels {TRUMOV2 50509}
lappend channels {WLDMOV 50736}
return 0
}
proc compare {string1 string2} {
set string1 [string toupper $string1]
set string2 [string toupper $string2]
while {[regsub {(^| )(THE|IN|A|OF|TO|BE|AT)($| )} $string1 { } string1]} {}
while {[regsub {(^| )(THE|IN|A|OF|TO|BE|AT)($| )} $string2 { } string2]} {}
regsub -all { } $string1 {qqq} string1
regsub -all { } $string2 {qqq} string2
regsub -all {[^a-zA-Z]} $string1 {} string1
regsub -all {[^a-zA-Z]} $string2 {} string2
regsub -all {qqq} $string1 { } string1
regsub -all {qqq} $string2 { } string2
set string1 "$string1"
set string2 "$string2"
set max [expr [llength $string1] + [llength $string2]]
if { $max == 0 } {
return 0
}
set matchcount 0
foreach word $string1 {
foreach compword $string2 {
if {$word == $compword} {
incr matchcount 1
break
}
}
}
foreach word $string2 {
foreach compword $string1 {
if {$word == $compword} {
incr matchcount 1
break
}
}
}
set matchcountf [format "%f" $matchcount]
set maxf [format "%f" $max]
set hitindex [expr ($matchcountf/$maxf) * 100]
set hitindexf [expr int(*****index)]
return *****indexf
}
proc get_digiguide_data {date starttime channel} {
global mydigiguide
if { $mydigiguide } {
return [get_digiguide_data_mydg $date $starttime $channel]
} else {
return [get_digiguide_data_dg $date $starttime $channel]
}
}
proc get_digiguide_data_dg {date starttime channel} {
global digiguide_ip
global digiguide_port
global digi_sid
global max_http_read_dg
global tzoffset
set dt [expr $date + $starttime - $tzoffset]
#set dt [digiguide_time_correction $dt]
set web [socket $digiguide_ip $digiguide_port]
puts $web "GET /skin-web/$digi_sid/programme?ch=$channel&dt=$dt HTTP/1.0"
puts $web "Host: $digiguide_ip"
puts $web "User-Agent: TiVo"
puts $web ""
flush $web
fconfigure $web -blocking 0
set html ""
set count 0
while { $count < $max_http_read_dg } {
set block [read $web]
set html "$html$block"
incr count 1
if { [regexp {<\/[hH][tT][mM][lL]>} $html junk] } {
break
}
if { [regexp {Content-Length:0} $html junk] } {
set ret ""
lappend ret 0
lappend ret "00:00"
lappend ret "Not yet available"
lappend ret $date
return $ret
}
}
close $web
set junk1 ""
set junk2 ""
regexp {<h2><a href.*>(.*)<\/a>.*<\/h2>} $html junk1 episode
regexp {<h4>.*([0-9][0-9]):([0-9][0-9]) to ([0-9][0-9]):([0-9][0-9]).*<\/h4>} $html junk2 s_hour s_min e_hour e_min
if { $junk1 == "" || $junk2 == "" } {
return 0
}
regsub {^0} $s_hour {} s_hour
regsub {^0} $s_min {} s_min
regsub {^0} $e_hour {} e_hour
regsub {^0} $e_min {} e_min
set startsecs [expr $s_hour * 3600 + $s_min * 60]
set endsecs [expr $e_hour * 3600 + $e_min * 60]
if {[expr $endsecs - $startsecs] < 0} {
set endsecs [expr $endsecs + $date + 86400]
} else {
set endsecs [expr $endsecs + $date]
}
set ret ""
lappend ret $startsecs
lappend ret "$s_hour:$s_min"
lappend ret $episode
lappend ret $endsecs
return $ret
}
proc get_digiguide_data_mydg {date starttime channel} {
global email
global digiguideid
set start {}
set hours 0
set mins 0
set first 0
set second 0
set origdate $date
set episode {}
set sched {}
# because Digiguide days run 6am to 6am
if {$starttime < 21600} {
set date [expr $date - 86400]
}
set hexdate [format "%x" $date]
set html {}
set count 0
while {$html == ""} {
# get the page of data from Digiguide
set web [socket 89.234.33.27 80]
set cookie "WBL=$digiguideid.$email"
puts $web "GET /tv-guide/tv.dll?wu=$digiguideid&h=4&a=302&agu=18&ch=$channel&dt=$hexdate HTTP/1.0"
puts $web "Host: www.mydigiguide.com"
puts $web "Cookie: $cookie"
puts $web "User-Agent: TiVo"
puts $web ""
flush $web
set html [read $web]
close $web
incr count 1
if {$count == 5} {
break
}
}
# clean it up
regsub -all {HTTP.*descriptions} $html {} html
regsub -all {<} $html {\<} html
regsub -all {>} $html {\>} html
regsub -all {"} $html {\"} html
regsub -all {&} $html {\&} html
regsub -all { } $html {qq} html
regsub -all {bgcolor=} $html { a} html
# parse out the start time and title
foreach item $html {
regexp {([0-9][0-9]):([0-9][0-9])} $item start hours mins
regexp {([0-9])([0-9])} $hours junk first second
if {$first == 0} {
set hours $second
} elseif {$first == 1} {
set hours [expr 10 + $second]
} elseif {$first == 2} {
set hours [expr 20 + $second]
}
regexp {([0-9])([0-9])} $mins junk first second
if {$first == 0} {
set mins $second
} else {
set mins [expr $first * 10 + $second]
}
set startsecs [expr $hours * 3600 + $mins * 60]
regexp {<b>(.*)</b>} $item null episode
regsub -all {qq} $episode { } episode
if {$start != ""} {
set line {}
lappend line $startsecs
lappend line $start
lappend line $episode
lappend sched $line
}
}
set sched [lsort -index 1 $sched]
# look up the start time
set count 0
set result {}
foreach show $sched {
set nextstart 0
#start time matches
if {$starttime == [lindex $show 0]} {
if {$count < [expr [llength $sched] -1]} {
set nextstart [lindex [lindex $sched [expr $count + 1]] 0]
} else {
set nextstart [lindex [lindex $sched 0] 0]
}
if {$starttime < 21600 && $nextstart >= 21600} {
set nextstart [lindex [get_digiguide_data [expr $date + 86400] 21600 $channel] 0]
}
if {[expr $nextstart - $starttime] < 0} {
set nextstart [expr $nextstart + $origdate + 86400]
} else {
set nextstart [expr $nextstart + $origdate]
}
lappend result [lindex $show 0]
lappend result [lindex $show 1]
lappend result [lindex $show 2]
lappend result $nextstart
return $result
}
# no match, thei sis the one which includes the start time
if {$starttime < [lindex $show 0]} {
set nextstart [lindex $show 0]
if {[expr $nextstart - $starttime] < 0} {
set nextstart [expr $nextstart + $origdate + 86400]
} else {
set nextstart [expr $nextstart + $origdate]
}
if {$count != 0} {
lappend result [lindex [lindex $sched [expr $count - 1]] 0]
lappend result [lindex [lindex $sched [expr $count - 1]] 1]
lappend result [lindex [lindex $sched [expr $count - 1]] 2]
lappend result $nextstart
return $result
} else {
lappend result 0
lappend result 0
lappend result 0
lappend result 0
return $result
}
}
incr count
}
return {}
}
proc gettodo {} {
global db
global tzoffset
global days_dg
set path "/Recording/Active"
set prefix "4"
ForeachMfsFileTrans fsid name type $path $prefix 10 {
set rec [db $db openid $fsid]
set showing [dbobj $rec get Showing]
set recdate [dbobj $showing get Date]
set rectime [dbobj $showing get Time]
if {[expr $recdate * 86400] > [expr ($days_dg * 86400) + [clock seconds]]} {
return $result
}
set showingfsid [dbobj $rec gettarget Showing]
set station [dbobj $showing get Station]
set stationfsid [dbobj $station fsid]
set callsign [dbobj $station get CallSign]
set program [dbobj $showing get Program]
set duration [dbobj $showing get Duration]
set title [strim [dbobj $program get Title]]
set localtime [expr $recdate * 86400 + $rectime + $tzoffset]
set localdate [expr int($localtime / 86400)]
set localstarttime [expr $localtime % 86400]
set text {}
lappend text $localdate
lappend text $localstarttime
lappend text $callsign
lappend text $duration
lappend text $title
lappend result $text
}
return $result
}
proc action_digiguide {chan path env} {
global email
global digiguideid
global channels
global source_dir
global filter
set digiguide_cfg "$source_dir/modules/digiguide.cfg"
puts $chan [html_start "Compare To Do List to Digiguide"]
if { [regexp {\/settings} $path rubbish] } {
digiguide_settings $chan $env $digiguide_cfg
return
}
puts $chan [html_link "/digiguide/settings" "Settings"]
set dgtime 0
set dgtitle 0
set nextstart 0
set dgduration 0
if { [file exists $digiguide_cfg] } {
initvars $digiguide_cfg
} else {
return
}
set ret [init_chanlist]
if { $ret != 0 } {
puts $chan [h1 $ret]
return
}
set tdl [gettodo]
puts $chan [html_table_start "" "" ""]
puts $chan [tr "ALIGN=CENTER" [th "Day"] [th "Channel"] [th "Time"] [th "Duration"] [th "Tribune title"] [th "Digiguide title"] [th "Time"] [th "Duration"] [th "Match"]]
foreach show $tdl {
set day [lindex $show 0]
set starttime [lindex $show 1]
set channel [lindex $show 2]
set duration "[expr [lindex $show 3] / 60] mins"
set title [lindex $show 4]
set weekday [clock format [expr $day * 86400] -format %a]
set disptime [clock format $starttime -format %H:%M]
# lookup channel number
set index [lsearch $channels "$channel*"]
if {$index != -1 } {
set digiguidechannel [lindex [lindex $channels $index] 1]
set digiguide [get_digiguide_data [expr $day * 86400] $starttime $digiguidechannel]
if { $digiguide == 0 } {
continue
}
set dgtime [lindex $digiguide 0]
set dgtitle [lindex $digiguide 2]
set nextstart [lindex $digiguide 3]
set dgduration "[expr ($nextstart - ($dgtime + ($day * 86400)))/60] mins"
set dgdisptime [clock format $dgtime -format %H:%M]
set compindex [compare $dgtitle $title]
if {$duration != $dgduration} {
set compindex 0
}
if {$starttime != $dgtime} {
set compindex 0
}
set results $weekday
lappend results $channel
lappend results $disptime
lappend results $duration
lappend results $title
lappend results $dgtitle
lappend results $dgdisptime
lappend results $dgduration
lappend results $compindex
if { $filter == "on" && $compindex == 100 } {
continue
}
if { $filter == "off" && $compindex < 100 } {
set tmpresults ""
foreach item $results {
lappend tmpresults "<B>$item</B>"
}
set results $tmpresults
}
puts $chan [tr "ALIGN=CENTER" [td [lindex $results 0]] [td [lindex $results 1]] [td [lindex $results 2]] [td [lindex $results 3]] [td [lindex $results 4]] [td [lindex $results 5]] [td [lindex $results 6]] [td [lindex $results 7]] [td [lindex $results 8]] ]
# puts $chan [tr "ALIGN=CENTER" [td $weekday] [td $channel] [td $disptime] [td $duration] [td $title] [td $dgtitle] [td $dgdisptime] [td $dgduration] [td $compindex]]
} else {
puts $chan [tr "ALIGN=CENTER" [td "<B>$weekday</B>"] [td "<B>$channel</B>"] [td "<B>$disptime</B>"] [td "<B>$duration</B>"] [td "<B>$title</B>"] [td "colspan=3" "<B>Unable to map Digiguide channel</B>"] [td "<B>0</B>"] ]
}
}
puts -nonewline $chan [html_table_end]
puts $chan [html_end]
unset tdl
unset channels
}
register_module "digiguide" "Digiguide" "Check To Do List against Digiguide"
And here is the cfg file
mydigiguide = 1
email = me@myemailaddress.co.uk
digiguideid = XXXX123
digiguide_ip = 89.234.33.27
digiguide_port = 80
digiguide_passwd = password1
filter = on
days_dg = 22