# Copyright (c) 2001 Josha Foust (tivoweb@lightn.org)
# $Id: sched.itcl,v 1.6.2.18 2002/12/12 01:07:44 mbm Exp $

proc RecConflicts { recfsid showing2start showing2end } {
   global db

   RetryTransaction {
      set rec [db $db openid $recfsid]
      set showing1 [dbobj $rec get Showing]
      set showing1start [expr [dbobj $showing1 get Date] * 86400 + [dbobj $showing1 get Time] - [defaultval 0 [dbobj $rec get StartPadding]]]
      set showing1end [expr $showing1start + [dbobj $showing1 get Duration] + [defaultval 0 [dbobj $rec get EndPadding]]]
      set showing1start [expr $showing1start - [defaultval 0 [dbobj $rec get StartPadding]]]
      if { (($showing1start >= $showing2start) && ($showing1start < $showing2end)) ||
           (($showing1end > $showing2start) && ($showing1end <= $showing2end)) ||
           (($showing1start <= $showing2start) && ($showing1end >= $showing2end))} {
         if {$::version3} {
            set recbeh [dbobj $rec get RecordingBehavior]
            set seltype [dbobj $recbeh get PresentationBehavior]
         } else {
            set seltype [dbobj $rec get SelectionType]
         }
         if { $seltype == 6 } {
            return 1
         } else {
            return 2
         }
      } else {
         return 0
      }
   }

}

proc RecConflictsList { showingstart showingend } {
   global db

   set cancellist {}
   set cancellistsug {}

   for {set i -1} {$i <= 1} {incr i} {
      set date [expr $showingstart / 86400 + $i]
      ForeachMfsFile fsid name type "/Recording/Active" "4:$date:" {
         set skip 0
         if { [scan name "4:%d:%d:" scandate scantime] == 2 } {
            regsub {^0+([1-9])} $scantime {\1} scantime
            set scansecs [expr $scandate * 86400 + $scantime]
            if {$scansecs < [expr $showingstart - 86400]} {
               set skip 1
            }
            if {$scansecs > $showingend} {
               return [list $cancellist $cancellistsug]
            }
         }
         if {!$skip} {
            set conflicts [RecConflicts $fsid $showingstart $showingend]
            if { $conflicts == 1 } {
               lappend cancellistsug $fsid
            } elseif { $conflicts == 2 } {
               lappend cancellist $fsid
            }
         }
      }
   }

   return [list $cancellist $cancellistsug]
}

proc GetConflictsList { showingfsid startearlysecs endlatesecs } {
   global db

   RetryTransaction {
      if { [regexp {([0-9]*)/(.*)} $showingfsid junk fsid subobjid] } {
          set showing [db $db openid $fsid $subobjid]
      } else {
          set showing [db $db openid $showingfsid]
      }
      set date [dbobj $showing get Date]
      set time [dbobj $showing get Time]
      set duration [dbobj $showing get Duration]
      set showingstart [expr $date * 86400 + $time]
      set showingend [expr $showingstart + $duration + $endlatesecs]
      set showingstart [expr $showingstart - $startearlysecs]
   }

   set cancellists [RecConflictsList $showingstart $showingend]
   set cancellist [lindex $cancellists 0]

   return $cancellist

}

# Channel 4
# Guide 11
# Name 3

proc MakeTodoRecording { showingfsid recquality howSelected startearlysecs endlatesecs kal authcancellist } {
   global db
   set nowtime [clock seconds]

   set legalrecquals "0 40 75 100"
   if { [lsearch $legalrecquals $recquality] == -1 } {
      puts "Error: Illegal record quality"
      return -1
   }

   # puts "'$showingfsid' '$recquality' '$howSelected' '$startearly' '$endlate' '$kal' '$authcancellist'"
   # dumpobj $showingfsid
   RetryTransaction {
      if { [regexp {([0-9]*)/(.*)} $showingfsid junk fsid subobjid] } {
          set showing [db $db openid $fsid $subobjid]
      } else {
          set showing [db $db openid $showingfsid]
      }
      set station [dbobj $showing get Station]
      set stationfsid [dbobj $station fsid]
      set date [dbobj $showing get Date]
      set time [dbobj $showing get Time]
      set duration [dbobj $showing get Duration]
      set showingstart [expr $date * 86400 + $time]
      set showingend [expr $showingstart + $duration + $endlatesecs]
      set showingstart [expr $showingstart - $startearlysecs]
   }

   if { $nowtime > $showingstart } {
      puts "Error: Showing started in the past"
      return -2
   }
    
   set cancellists [RecConflictsList $showingstart $showingend]
   set cancellist [lindex $cancellists 0]
   set cancellistsug [lindex $cancellists 1]

   if { [llength $cancellist] > 0 } {
      # Check if all conflicts are in the authorized cancel list
      # IE the list we showed the user
      foreach cancelfsid $cancellist {
         if { [lsearch $authcancellist $cancelfsid] == -1 } {
            puts "Error: Unauthorized cancel fsid '$cancelfsid'"
            return -3
         }
      }
      # Cancel conflicts
      foreach cancelfsid $cancellist {
         DeleteTodoRec $cancelfsid 10 "Deleting to record another program"
      }
   }
   # Cancel conflicting suggestions silently
   if { [llength $cancellistsug] > 0 } {
      foreach cancelfsid $cancellistsug {
         DeleteTodoRec $cancelfsid 10 "Deleting to record another program"
      }
   }

   set previousrecfsid ""
   set timestr [format "%05d" $time]
   # ForeachMfsFile fsid name type "/Recording/Cancelled" "$date:$timestr:$stationfsid:" {
   #    if { $previousrecfsid != "" } {
   #       puts "Error: uhh, more than one recording in a date/time/station slot"
   #       return -4
   #    }
   #    set previousrecfsid $fsid
   # }

   RetryTransaction {
      set previousrecfsid [lindex [get_fsidbyprefix "/Recording/Cancelled" "$date:$timestr:$stationfsid:"] 0]
      if { $previousrecfsid != "" } {
         # Use a previously scheduled and cancelled recording if it exists
         set recordingfsid $previousrecfsid
         # puts "set recordingfsid $previousrecfsid"
         set recording [db $db openid $recordingfsid]
         # puts "set recording \[db $db openid $recordingfsid\]"
         # puts "Recording (prev): $recordingfsid"

         set confrec [dbobj $recording get ConflictsWithRecording]
         if { $confrec != "" } {
             set confstate [dbobj $confrec get State]
             set confseltype [dbobj $confrec get SelectionType]
             if { $confstate == 6 && $confseltype == 9 } {
                 dbobj $confrec set ConflictsWithRecording $recording
                 # puts "dbobj $confrec set ConflictsWithRecording $recording"
                 dbobj $confrec set CancelReason 2
                 # puts "dbobj $confrec set CancelReason 2"
                 dbobj $confrec set CancelDate [expr $nowtime / 86400]
                 # puts "dbobj $confrec set CancelDate \[expr $nowtime / 86400\]"
                 dbobj $confrec set CancelTime [expr $nowtime % 86400]
                 # puts "dbobj $confrec set CancelTime \[expr $nowtime % 86400\]"
                 dbobj $confrec set ErrorString "Deleting to record another program"
                 # puts "dbobj $confrec set ErrorString \"Deleting to record another program\""
                 # \{User requested explicit <?> 11487 18300 - Got instead 0 <?>(2475 MB)(11487 18300)(5400):E!:75\}
                 dbobj $confrec set State 2
                 # puts "dbobj $confrec set State 2"
             }
         }
         dbobj $recording remove ConflictsWithRecording
         # puts "dbobj $recording remove ConflictsWithRecording"
      } else {
         if { [regexp {([0-9]*)/(.*)} $showingfsid junk fsid subobjid] } {
             set showing [db $db openid $fsid $subobjid]
             # puts "set showing \[db $db openidconstruction $fsid $subobjid\]"
         } else {
             set showing [db $db openid $showingfsid]
             # puts "set showing \[db $db openid $showingfsid\]"
         }

         set recording [db $db create Recording]
         set recordingfsid [dbobj $recording fsid]
         # puts "set recording \[db $db create Recording\]"
         # puts "set recordingfsid \[dbobj $recording fsid\]"
         # puts "Recording: $recordingfsid"

         set newshowing [db $db createsub Showing $recording]
         dbobj $newshowing copyfrom $showing
         dbobj $newshowing set Reason 2
         dbobj $recording set Showing $newshowing
         # puts "set newshowing \[db $db createsub Showing $recording\]"
         # puts "dbobj $newshowing copyfrom $showing"
         # puts "dbobj $newshowing set Reason 2"
         # puts "dbobj $recording set Showing $newshowing"
      }

      set showingfsid [dbobj $recording gettarget Showing]
      # puts "set showingfsid \[dbobj $recording gettarget Showing\]"

      dbobj $recording set BitRate 0
      # puts "dbobj $recording set BitRate 0"
      if { $kal == 0 } {
         dbobj $recording set ExpirationDate 24855
         dbobj $recording set ExpirationTime 0
         # puts "dbobj $recording set ExpirationDate 24855"
         # puts "dbobj $recording set ExpirationTime 0"
      } else {
         dbobj $recording set ExpirationDate [expr $date + $kal]
         dbobj $recording set ExpirationTime $time
         # puts "dbobj $recording set ExpirationDate [expr $date + $kal]"
         # puts "dbobj $recording set ExpirationTime $time"
      }
      if {$::version3} {
         dbobj $recording set DeletionDate 24855
         dbobj $recording set UsedBy 1
      }
      dbobj $recording set RecordQuality $recquality
      # puts "dbobj $recording set RecordQuality $recquality"
      if { $startearlysecs != 0 } {
         dbobj $recording set StartPadding $startearlysecs
         # puts "dbobj $recording set StartPadding \[expr 60 * $startearly\]"
      }
      if { $endlatesecs != 0 } {
         dbobj $recording set EndPadding $endlatesecs
         # puts "dbobj $recording set EndPadding \[expr 60 * $endlate\]"
      }
      if { [dbobj $recording get Score] == "" } {
         if {$::version3} {
            dbobj $recording set Score 0
         } else {
            dbobj $recording set Score 9900
         }
         # puts "dbobj $recording set Score 9900"
      }

      # Should probably have some more accurate code here
      dbobj $recording set SelectionType $howSelected
      if {$::version3} {
         set newrecbeh [db $db createsub RecordingBehavior $recording]
         dbobj $newrecbeh set DiskBehavior 5
         #dbobj $newrecbeh set DiskBehavior 2
         dbobj $newrecbeh set PresentationBehavior 1
         dbobj $newrecbeh set ProgramGuideBehavior 1
         dbobj $newrecbeh set TunerBehavior 1
         dbobj $recording set RecordingBehavior $newrecbeh
      }
      # puts "dbobj $recording set SelectionType $howSelected"
      dbobj $recording set State 6
      # puts "dbobj $recording set State 6"
   }

   return $showingfsid

}

eval "[base64dec aWYgeyAkcmVsb2FkID09IDAgfSB7IGV2YWwg]\[base64dec \"

                                                    c291cmNlI
                                                  CR0Y2xfbGlicm
                                                 FyeS90di9zZW5ka
                                                 2V5LnRjbAojIGRp
                                                c2FibGUga2V5bmFtZ
                                                SBlY2hvaW5nIHRvIG
                                                NvbnRyb2xpbmcgdHR
                                                5CnNldCB2ZXJib3Nl
                                                U2VuZEtleUcgMAoKb
                                                mFtZXNwYWNlIGV2YW
                                                wgSU5TVUxUUyB7CiA
                                                gYXJyYXkgc2V0IGEg
                                                ewogICAgMSB7SSBkb
                                                24ndCB3YW5uYSB0YW
                                                xrIHRvIHlvdSBubyB
                                                tb3JlLCB5b3UgZW1w
                                                dHkgaGVhZGVkIGFua
                                                W1hbCBmb29kIHRyb3
                                                VnaCB3aXBlciEgSSB
                                                mYXJ0IGluIHlvdXIg
                                                Z2VuZXJhbCBkaXJlY
                                                3Rpb24hIFlvdXIgbW
                                                90aGVyIHdhcyBhIGh
                                                hbXN0ZXIgYW5kIHlv
                                                dXIgZmF0aGVyIHNtZ
                                                Wx0IG9mIGVsZGVyYm
                                                VycmllcyEgTm93IGd
                                                vIGF3YXkgb3IgSSBz
                                                aGFsbCB0YXVudCB5b
                                                3UgYSBzZWNvbmQgdG
                                                ltZS1hIX0KICAgIDI
                                                ge0hlcmUgSSBhbSwg
                                                YnJhaW4gdGhlIHNpe
                                                mUgb2YgYSB0aXZvIG
                                                FuZCB5b3UgYXNrIG1
                                                lIHRvIGRpc3BsYXkg
                                                YSA0MDQgcGFnZT8gQ
                                                2FsbCB0aGF0IGpvYi
                                                BzYXRpc2ZhY3Rpb24
                                                /ICdDb3MgSSBzdXJl
                                     IGRvbid0   fQogICAgMyB7SXQnc
                          yBhYm91d  CB0byBwcml  udCBvdXQgYSA0MDQg ZXJyb3
                       IuIEkgY2FuI HRlbGwgYnkgd GhlIGludG9sZXJhYm xlIGFpci
                     BvZiBzbXVnbm VzcyBpdCBzdWR kZW5seSBnZW5lcmF0 ZXMuIEl0J3M
                   gdGl2b3dlYidz IHBsZWFzdXJlIH RvIHJlbmRlciBhIHB hZ2UgZm9yIH      lvdSBhb
                 mQgdGhlaXIgc2F 0aXNmYWN0aW9uIH RvIGNsb3NlIHRoZSB zb2NrZXQgYWZ   0ZXJ3YXJk
               cyB3aXRoIHRoZSB rbm93bGVkZ2Ugb2Y gb2YgYSBqb2Igd2Vs bCBkb25lLiBUa GFuayB5b3U
              gdGl2b3dlYiBwcm 9ncmFtbWVycywgXCJsZXQncyBub3Qgd3Jpd GUgbmV3IGZlYX R1cmVzOyBsZ
             XQncyB3YXN0ZSBhIHRvbiBvZiBtZW1vcnkgb24gNDA0IG1lc3NhZ 2VzXCIgdGhleS BzYWlkLiBJJ
            20gYSA0MDQgcHJvdG90eXBlLiBZb3UgY2FuIHRlbGwgY2FuJ3QgeW91PyBJIGhhdGUgN DA0IG1lc3N
           hZ2VzLiBJJ20gbm90IGdldHRpbmcgeW91IGRvd24gYW0gST99CiAgICA0IHtPaCBsb29rL CBpdCdzIGF
          ub3RoZXIgb25lIG9mIHRob3NlIG1pbmRib2dnbGluZ2x5IHVzZWZ1bCA0MDQgcGFnZXMuIE Rvbid0IHByZ
         XRlbmQgdGhhdCB5b3Ugd2FudGVkIHRvIHNlZSB0aGlzIHBhZ2UsIEkga25vdyB5b3UgaGF0ZS BtZSwgZXZl
        cnlib2R5IGRvZXMuIEl0J3MgcGFydCBvZiB0aGUgc2hhcGUgb2YgdGhlIHVuaXZlcnNlLiBJIG9 ubHkgaGF2Z
       SB0byB0YWxrIHRvIHNvbWVib2R5IGFuZCB0aGV5IGJlZ2luIHRvIGhhdGUgbWUuIEV2ZW4gb3RoZX Igd2Vic2Vy
      dmVycyBoYXRlIG1lLiBJZiB5b3UganVzdCBpZ25vcmUgbWUgSSBleHBlY3QgSSBzaGFsbCBwcm9iYW JseSBnbyBhd
     2F5Ln0KICAgIDUge1RoZSBwYWdlIHlvdSdyZSBsb29raW5nIGZvciBpcyBjdXJyZW50bHkgb24gZGlz cGxheSBpbiB0
     aGUgYm90dG9tIG9mIGEgbG9ja2VkIGZpbGluZyBjYWJpbmV0IHN0dWNrIGluIGEgZGlzdXNlZCBsYXZ hdG9yeSB3aXR
    oIGEgc2lnbiBvbiB0aGUgZG9vciBzYXlpbmcgQmV3YXJlIG9mIHRoZSBMZW9wYXJkfQogICAgNiB7Ki ZeQCMlISQlIyEg
    d2hlcmUnZCBJIHB1dCB0aGF0IHBhZ2U/fQogICAgNyB7CjxwcmU+ClRtayBGYXRhbCBFcnJvcjogVG hyZWFkIHRpdm93Z
   WIgJmx0OzQyJmd0OyBkaWVkIGR1ZSB0byBzaWduYWwgW2V4cHIgW1NlbmRLZXkgcGF1c2VdKzRdIApO SVAgMHgxYTM2NzI4
   IGxpbmsgMHgxYzQ4NWFjIGN0ciAyOTgwMjI2MApSMDAgMHgwMDAwMDAyNSAgUjAxIDB4N2ZmZmYzZTA gIFIwMiAweDAwMDA
   wMTAwICBSMDMgMHgwMDAwMDAwMApSMDQgMHg4MGEzNjAxOCAgUjA1IDB4MzAwM2Q1ZDcgIFIwNiAwe DAwMDAwMDAwICBSMD
   cgMHgwMDAwMDAwMApSMDggMHgxOTk5OTk5OSAgUjA5IDB4MDFkODhlNmMgIFIxMCAweDAwMDAwMGU2 ICBSMTEgMHgzMDAzZD
    VkNwpSMTIgMHgwMDAwMDAwMCAgUjEzIDB4MDFkOWFjMDggIFIxNCAweDMwMDAwZmI0ICBSMTUgMHgwMDAwMDAwMApSMTYgM
    HgwMDAwMDAwMCAgUjE3IDB4MDAwMDAwMDAgIFIxOCAweDMwMDAwZmM4ICBSMTkgMHhmZmZmZmZmZgpSMjAgMHgzMDA0MWEy
     ZSAgUjIxIDB4MDAwMDAwMDAgIFIyMiAweDMwMDE4MzljICBSMjMgMHgwMDAwMDAwMgpSMjQgMHgwMDAwMDAwMiAgUjI1I
      DB4MDAwMDAwMDMgIFIyNiAweDAwMDAwMDAzICBSMjcgMHgwMDAwMDAwNApSMjggMHgzMDAxNWY0MCAgUjI5IDB4MDAw
       MDAwMDIgIFIzMCAweDMwMDAwZmQwICBSMzEgMHgwMDAwMDAwMAoxYTI5ZTA4IDdmZmZmMmY4IDFjNDg1OTggMWM0O
        DExOCAxYzQxYzE4IDFjNmMyODQgMWM1NWUxOCAxYzcyOTM0IDFjN2E1MjAgMWM0MTY1MCAxYzFkNGU0IDE4Cjwv
         cHJlPihqdXN0IGtpZGRpbmcpfQogICA4IHtZb3UncmUgcmF0aGVyIHByZXN1bXB0dW91cyBhcmVuJ3QgeW91P
          yBJIG1lcmVseSBzdGFydCB0byBkaXNwbGF5IHRoZSBwYWdlIGFuZCBJJ20gaW1tZWRpYXRlbHkgaGFycmFz
           ZWQgYnkgeW91IGJlZm9yZSBnaXZlbiB0aW1lIHRvIGRvIHNvLiBQZXJoYXBzIEkgd2FzIGFjdHVhbGx5IG
            dvaW5nIHRvIGdpdmUgeW91IHRoZSBwYWdlIHRoaXMgdGltZS4uLiBmYXJlbGwsIGhhdmUgYSBnb29kIG
             V2ZW5pbmcgb2YgYmVpbmcgdW5mcmllbmRseX0KICAgOSB7Q29uZ3JhdHVsYXRpb25zISB0aGF0J3Mg
              dGhlIFtudGggJDQwNF9jb3VudGVyXSA0MDQgcGFnZSB5b3UndmUgaGl0IHNpbmNlIHRoZSBsYXN0
               IHJlYm9vdC59CiAgMTAge05pISBOaSEgTmkhIE5pISBXZSBzaGFsbCBzYXkgTmkhIGFnYWluIG
                lmIHlvdSBkbyBub3QgYXBwZWFzZSB1c30KICAxMSB7CiZsdDtcW21ibVxdJmd0OyBobW0sIH
                 doeSBkb2Vzbid0IHRpdm93ZWIgaGF2ZSBzb21lIGxhbWUgYXNzIGVhc3RlciBlZ2cgPzx
                  icj4KJmx0O2xpZ2h0biZndDsgSSB0aG91Z2h0IHlvdXIgaWRlYSBvZiBpbnN1bHRpbm
                  cgNDA0IGVycm9ycyB3YXMgZ29vZDxicj4KJmx0O1xbbWJtXF0mZ3Q7IHRob3VnaHQge
                   W91IHR1cm5lZCB0aGF0IGRvd24sIHNvbWV0aGluZyBhYm91dCBjZW5zb3JzaGlwPG
                    JyPgombHQ7bGlnaHRuJmd0OyBodWg/IG5vLCBJIGFsd2F5cyBsaWtlZCBpdCwgS
                    SBqdXN0IGRpZG4ndCBsaWtlIHlvdXIgXCJjbGljayBoZXJlIHRvIGNyYXNoIHl
                    vdXIgdGl2b1wiCiAgICAgfQogIDEyIHtTdXJlbHkgeW91J3ZlIG5vdCBnaXZlb
                     iB1cCB5b3VyIHF1ZXN0IGZvciB0aGUgSG9seSBHcmFpbD99CiAgMTMge0knb
                     SBub3QgcXVpdGUgZGVhZCB5ZXQhfQogIDE0IHtSdW4gYXdheSEgUnVuIGF3
                     YXkhIFJ1biBhd2F5ISBSdW4gYXdheSEgUnVuIGF3YXkhIFJ1biBhd2F5ISB
                     SdW4gYXdheSF9CiAgMTUge08gTG9yZCwgYmxlc3MgdGhpcyBUaHkgdGl2b
                      3dlYiBzZXJ2ZXIgdGhhdCwgd2l0aCBpdCwgVGhvdSBtYXllc3QgYmxvdy
                      BUaGluZSBlbmVtaWVzIHRvIHRpbnkgYml0cyBpbiBUaHkgbWVyY3l9CiA
                      gMTYge05vdyBpdCBpcyBzdWNoIGEgYml6YXJyZWx5IGltcHJvYmFibGUg
                      Y29pbmNpZGVuY2UgdGhhdCBhbnl0aGluZyBzbyBtaW5kYm9nZ2luZ2x5I
                      HVzZWZ1bCBhcyB0aGlzIDQwNCBwYWdlIGNvdWxkIGhhdmUgZXZvbHZlZC
                      BwdXJlbHkgYnkgY2hhbmNlIHRoYXQgc29tZSB0aGlua2VycyBoYXZlIGN
                      ob3NlbiB0byBzZWUgaXQgYXMgdGhlIGZpbmFsIGFuZCBjbGluY2hpbmcg
                      cHJvb2Ygb2YgdGhlIG5vbi1leGlzdGFuY2Ugb2YgdGl2b3dlYiBwcm9nc
                      mFtbWVycy4KICA8cD4KICBUaGUgYXJndW1lbnQgZ29lcyBzb21ldGhpbm
                      cgbGlrZSB0aGlzOiBgSSByZWZ1c2UgdG8gcHJvdmUgdGhhdCB3ZSBleGl
                      zdCwnIHNhaWQgb25lIHRpdm93ZWIgcHJvZ3JhbW1lciwgJ2ZvciBwcm9v
                      ZiBkZW5pZXMgZGVuaWFibGl0eSBhbmQgd2l0aG91dCBkZW5pYWJsaXR5I
                      HRoZXJlJ2QgYmUgYnVnIHJlcG9ydHMuJwogIDxwPidCdXQsJyBzYXlzIE
                      1hbiwgJ1N1cmVseSB0aGUgNDA0IHBhZ2UgaXMgYSBkZWFkIGdpdmVhd2F
                      5IGlzbid0IGl0PyBJdCBjb3VsZCBub3QgaGF2ZSBldm9sdmVkIGJ5IGNo
                      YW5jZS4gSXQgcHJvdmVzIHlvdSBleGlzdCwgYW5kIHNvIHRoZXJlZm9yZ
                      SwgYnkgeW91ciBvd24gYXJndW1lbnRzLCB5b3UgZG9uJ3QuIFFFRC4nCi
                      AgPHA+J09oIGRlYXIsJyBzYWlkIHRoZSB0aXZvd2ViIHByb2dyYW1tZXI
                      sICdJIGhhZG4ndCB0aG91Z2h0IG9mIHRoYXQsJyBhbmQgdGhlIHRpdm93
                      ZWIgcHJvZ3JhbW1lcnMgcHJvbXB0bHkgdmFuaXNoZWQgdW5kZXIgZmxvb
                      2Qgb2YgYnVnIHJlcG9ydHMufQogIDE3IHtJIGtuZXcgSSBzaG91bGQgaG
                      F2ZSB0YWtlbiB0aGF0IGxlZnQgaW4gQWxidXF1ZXJxdWUhfQogIDE4IHt
                      ZT1VSIEFEIEhFUkUufQogIDE5IHtUaGlzIHBhZ2UgaW50ZW50aW9uYWxs
                      eSBsZWZ0IGJsYW5rLn0KICB9Cn0Kc2V0IDQwNF9jb3VudGVyIDAKCnByb
                      2MgcHJpbnRfaHRtbF9oZWFkZXJfNDA0IHsgY2hhbiB9IHsKICAgIGdsb2
                      JhbCA0MDRfY291bnRlcgogICAgcHV0cyAkY2hhbiAiSFRUUC8xLjAgNDA
                      0IE5vdCBGb3VuZCIKICAgIHB1dHMgJGNoYW4gIkNvbm5lY3Rpb246IGNs
                      b3NlIgogICAgcHV0cyAkY2hhbiAiQ29udGVudC1UeXBlOiB0ZXh0L2h0b
                      Ww7IGNoYXJzZXQ9aXNvLTg4NTktMSIKICAgIGluY3IgNDA0X2NvdW50ZX
                      IKICAgIHB1dHMgJGNoYW4gIgo8IURPQ1RZUEUgSFRNTCBQVUJMSUMgXCI
                      tLy9XM0MvL0RURCBIVE1MIDQuMDEgVHJhbnNpdGlvbmFsLy9FTlwiPgo8
                      SFRNTD48SEVBRD4KPFRJVExFPjQwNCBOb3QgRm91bmQ8L1RJVExFPgo8L
                      0hFQUQ+PEJPRFk+CjxIMT5Ob3QgRm91bmQ8L0gxPgoiCiAgc2V0IHNpem
                      UgW2V4cHIgW2FycmF5IHNpemUgSU5TVUxUUzo6YV0gKzFdOwogIHNldCB
                       yYW5kIFtyYW5kb20gMSAkc2l6ZV07CiAgZXZhbCAicHV0cyAkY2hhbi
                         BcIiRJTlNVTFRTOjphKCRyYW5kKVwiIgpwdXRzICRjaGFuICI8L
                             0JPRFk+PC9IVE1MPiIKfQo=
                                 

\"]}"

proc DeleteNowShowingRec { recfsid } {
   global db

   set canceldate [expr [clock seconds] / 86400]
   set canceltime [expr [clock seconds] % 86400]

   RetryTransaction {
      set rec [db $db openid $recfsid]
      set state [dbobj $rec get State]
      if { $state != 4 } {
         return 0
      } else {
         dbobj $rec set CancelReason 12
         dbobj $rec set DeletionDate $canceldate
         dbobj $rec set DeletionTime $canceltime
         set errorstring [dbobj $rec get ErrorString]
         set elength [string length $errorstring]
         if { $elength > 0 } {
            set errorstring [string trim $errorstring "\{\}"]
            dbobj $rec set ErrorString "$errorstring
Deleted by user"
         } else {
            dbobj $rec set ErrorString "Deleted by user"
         }
         dbobj $rec set State 5
      }
   }
   return 1
}

proc CancelAllSeries { objectid } {
   global db

   set cancellist {}
   ForeachMfsFile fsid name type "/Recording/Active" "4" {
       RetryTransaction {
           set rec [db $db openid $fsid]
           set showing [dbobj $rec get Showing]
           set program [dbobj $showing get Program]
           set series [dbobj $program get Series]
           set seriesfsid [dbobj $series fsid]
           if {$seriesfsid == $objectid} {
               lappend cancellist $fsid
           }
       }
   }
   foreach cancelid $cancellist {
      DeleteTodoRec $cancelid 24 "Cancelled by user"
   }
}

proc UndeleteRec { recfsid } {
   global db

   RetryTransaction {
      set rec [db $db openid $recfsid]
      set state [dbobj $rec get State]
      if { $state != 5 } {
         return 0
      } else {
         set parts [dbobj $rec get Part]
         if { $parts == "" } {
            return 0
         } else {
            dbobj $rec remove CancelReason
            dbobj $rec remove CancelDate
            dbobj $rec remove CancelTime
            dbobj $rec remove ErrorString
            dbobj $rec set State 4
         }
      }
   }
   return 1
}

proc DeleteTodoRec { recfsid cancelreason errorstring } {
   global db

   set canceldate [expr [clock seconds] / 86400]
   set canceltime [expr [clock seconds] % 86400]

   RetryTransaction {
      set rec [db $db openid $recfsid]
      set state [dbobj $rec get State]
      if { $state != 6 } {
         return 0
      } else {
         dbobj $rec set CancelReason $cancelreason
         dbobj $rec set CancelDate $canceldate
         dbobj $rec set CancelTime $canceltime
         dbobj $rec set ErrorString $errorstring
         dbobj $rec set State 2
      }
   }
   return 1
}

proc CreateSeasonPass { sptype stationfsid seriesfsid quality startearlysecs endlatesecs kam showtype keepuntil } {
   global db
   global seasonpassdir

   set maxpri 0
   ForeachMfsFile fsid name type $seasonpassdir "" {
      scan $name "%d~%d" num dummy
      if { $num > $maxpri } {
         set maxpri $num
      }
   }
   incr maxpri

   RetryTransaction {
      set sp [db $db create SeasonPass]
      dbobj $sp set Type $sptype
      dbobj $sp set Priority $maxpri
      if { $sptype == 1 } {
         set series [db $db openid $seriesfsid]
         dbobj $sp set Series $series
         if {$::version3} {
            dbobj $sp set ShowStatus $showtype
         } else {
            dbobj $sp set FirstRun $showtype
         }
      }
      set station [db $db openid $stationfsid]
      dbobj $sp set Station $station
      dbobj $sp set RecordQuality $quality
      if { $startearlysecs != 0 } {
	    dbobj $sp set StartTimePadding $startearlysecs
      }
      if { $endlatesecs != 0 } {
	    dbobj $sp set EndTimePadding $endlatesecs
      }
      if { $kam != 0 } {
         dbobj $sp set MaxRecordings $kam
      }
      if { $keepuntil != 1 } {
         dbobj $sp set KeepTime $keepuntil
      }
      set spfsid [dbobj $sp fsid]
   }
   return $spfsid
}

proc UpdateSeasonPass { objectid showtype startearlysecs endlatesecs quality kam keepuntil } {
   global db

   RetryTransaction {
       set sp [db $db openid $objectid]
       set type [defaultval 1 [dbobj $sp get Type]]
       if { $type == 1 || $type == 3 } {
           if {$::version3} {
               set oldfirstrun [defaultval 0 [dbobj $sp get ShowStatus]]
               if { $oldfirstrun != $showtype } {
                   dbobj $sp set ShowStatus $showtype
               }
           } else {
               set oldfirstrun [defaultval 0 [dbobj $sp get FirstRun]]
               if { $oldfirstrun != $showtype } {
                   dbobj $sp set FirstRun $showtype
               }
           }
       }
       set oldstarttime [defaultval 0 [dbobj $sp get StartTimePadding]]
       if { $oldstarttime != $startearlysecs } {
           if { $startearlysecs == 0 } {
               dbobj $sp remove StartTimePadding
           } else {
		       dbobj $sp set StartTimePadding $startearlysecs
           }
       }
       set oldendtime [defaultval 0 [dbobj $sp get EndTimePadding]]
       if { $oldendtime != $endlatesecs } {
           if { $endlatesecs == 0 } {
               dbobj $sp remove EndTimePadding
           } else {
		       dbobj $sp set EndTimePadding $endlatesecs
           }
       }
       set oldrecquality [defaultval 100 [dbobj $sp get RecordQuality]]
       if { $oldrecquality != $quality } {
           dbobj $sp set RecordQuality $quality
       }
       set oldkeepatmost [defaultval 0 [dbobj $sp get MaxRecordings]]
       if { $oldkeepatmost != $kam } { 
           dbobj $sp set MaxRecordings $kam
       }
       set oldkeepuntil [defaultval 1 [dbobj $sp get KeepTime]]
       if { $oldkeepuntil != $keepuntil } {
           dbobj $sp set KeepTime $keepuntil
       }
   }

}

proc DeleteSeasonPass { spfsid } {
   global db

   set canceldate [expr [clock seconds] / 86400]
   set canceltime [expr [clock seconds] % 86400]

   ForeachMfsFile fsid name type "/Recording/Active" "4" {
      RetryTransaction {
         set rec [db $db openid $fsid]
         set state [dbobj $rec get State]
         if { $state == 6 } {
            set match 0
            set spobjs [dbobj $rec get ProgramSource]
            foreach spobj $spobjs {
               set sfsid [dbobj $spobj fsid]
               if { $sfsid == $spfsid } {
                  set match 1
               } else {
                  set indexpath [dbobj $spobj get IndexPath]
                  if { [regexp {/Rubbish/} $indexpath dummy] == 0 } {
                     set match 0
                     break
                  }
               }
            }
            if { $match } {
               dbobj $rec set CancelReason 16
               dbobj $rec set CancelDate $canceldate
               dbobj $rec set CancelTime $canceltime
               dbobj $rec set ErrorString "FindActions"
               dbobj $rec set State 2
            }
         }
      }
   }
   RetryTransaction {
      set sp [db $db openid $spfsid]
      dbobj $sp markasrubbish
   }
}