[mythtv] Myttv Show Verification Script

[Nathan Langley]

This message is in MIME format.

---MOQ1042523121eb13b3ed80d44ae851cd735cd816d7fa
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit

This is a perl script that will verify that the shows in your store
directory are in your db.  If they are not it will _DELETE_ them.  I had
been getting a few partial shows that did not finish staying on my drive
so I decided to write this to wax them automaticly.  The user you run this
script as must have rw access to the files in your store directory.

To use this _EDIT_ the file verifyshows.pl and follow the Edit next line
Directions.  (You have to put in your store dir and your db username and
pass)

NOTICE: THIS SCRIPT DOES DELETE MYTHTV RECORDING FILES

I will not be held responsible if it deletes actual recordings (even
though it should not and did not when I ran it)



-- 
Nathan Langley
Linux > BSD > MacOS > DOS > Windows

---MOQ1042523121eb13b3ed80d44ae851cd735cd816d7fa
Content-Type: application/octet-stream; name="verifyshows.pl"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="verifyshows.pl"

IyEvdXNyL2Jpbi9wZXJsCiMgTXl0aHR2IHNob3cgdmVyaWZ5IHNjcmlwdCAoRGVsZXRlcyBzaG93
cyBvbiB0aGUgaGFyZGRpc2sgdGhhdCBhcmUgbm90IGluIHRoZSBkYgojIFdyaXR0ZW4gYnkgTmF0
aGFuIExhbmdsZXkgOjogbmF0aGFuQHZpcHR4Lm5ldAojIFJlcXVpcmVtZW50czogUGVybCxQZXJs
IERCSSBNeXNxbAojIFRoaXMgYmUgYSBjb21tZW50CiMgSU1QT1JUQU5UOiBUaGlzIHByb2dyYW0g
Y29tZXMgd2l0aCBhYnNvbHV0bHkgTk8gd2FycmFudHkuICBJZiBpdCBkZWxldGVzIHNvbWV0aGlu
ZyB5b3UgZGlkIG5vdCB3YW50IGl0IHRvIEkgYW0gbm90IGxpYWJsZS4gIElmIGl0IGtpbGxzIHlv
dXIgc3lzdGVtIHlvdQojIGFyZSBvbiB5b3VyIG93bi4gIEkgdGFrZSBubyByZXNwb3NpYmxpdHkg
Zm9yIF9hbnl0aGluZ18KIyBJTlNUUlVDVElPTlM6IENoYW5nZSB0aGUgY29uZmlndXJhdGlvbnMg
SSBtYXJrZWQgd2l0aCBFZGl0IHRoZSBuZXh0Li4uIGJlbG93IGFuZCBydW4gLi92ZXJpZnlzaG93
cy5wbCBvciBjb3B5IGl0IHRvIGEgYmluIGRpciBpbiAKIyB5b3VyIHBhdGggYW5kIHJ1biB2ZXJp
ZnlzaG93cy5wbAoKICAgdXNlIERCSTsgIyBpZiB5b3UgYXJlIGhhdmluZyBwcm9ibGVtcyBpbnN0
YWxsIHRoZSBQZXJsIE15c3FsIERCSSBtb2R1bGUgY2hlY2sgaHR0cDovL3NlYXJjaC5jcGFuLm9y
ZwogICAKICAgIyBFZGl0IHRoZSBuZXh0IGxpbmUgdG8gbWF0Y2ggeW91ciBteXRodHYgc3RvcmUg
ZGlyZWN0b3J5CiAgICRwYXRoID0gIi9tbnQvc3RvcmUvIjsgIyBUcmFpbGluZyBzbGFzaCBpcyBp
bXBvcnRhbnQgd2lsbCBub3Qgd29yayB3aXRob3V0IGl0IGV4IHN0b3JlLyAKICAgCiAgICMgRWRp
dCB0aGUgbmV4dCAyIGxpbmVzIHRvIG1hdGNoIHlvdXIgZGIgdXNlcm5hbWUgYW5kIHBhc3N3b3Jk
CiAgICR1c2VyPSdZb3VyRGJVc2VyTmFtZSc7CiAgICRwYXNzPSdZb3VyRGJQYXNzd29yZCc7CiAg
IAogICAkZGJoPURCSS0+Y29ubmVjdCgnZGJpOm15c3FsOm15dGhjb252ZXJnJywkdXNlciwkcGFz
cykgfHwgZGllICIkREJJOjplcnJzdHIiOwogICAKICAgb3BlbmRpciAoRElSTElTVCwgJHBhdGgp
IHx8IGRpZSBwcmludCAiQ291bGQgbm90IG9wZW4gJHBhdGg6IFlvdSBtdXN0IHNwZWNpZnkgaXQg
aW4gdGhpcyBmaWxlIVxuIjsKICAgQGRpcmxpc3QgPSByZWFkZGlyIChESVJMSVNUKTsKICAgJGNv
dW50ID0gMDsKICAgCiAgIGZvcmVhY2ggKEBkaXJsaXN0KSB7CiAgICAgICBteSAkZXhpc3RzID0g
MDsKICAgICAgIGlmICgkXyA9fiAvbnV2LyAmJiAkXyAhfiAvcmluZ2J1Zi8pIHsKCSAkY291bnQr
KzsKCSBwcmludCAiQ2hlY2tpbmcgRmlsZSAjICRjb3VudCAkX1xuIjsKCSAkZXhpc3RzID0gdmVy
aWZ5KCRfKTsKCSBpZiAoJGV4aXN0cykgeyBwcmludCAiXG4iOyB9IAoJIGVsc2UgeyAKCSAgICAg
cHJpbnQgIiRfIGRvZXMgX05PVF8gZXhpc3QuIERlbGV0aW5nIHRoaXMgZmlsZS5cblxuIjsKCSAg
ICAgc3lzdGVtICIvYmluL3JtICRwYXRoJF8iOwoJIH0KICAgICAgIH0KICAgIH0KICAgY2xvc2Ug
KERJUkxJU1QpOyAgICAKCnN1YiB2ZXJpZnkgewogICAgbXkgJHNob3cgPSAkX1swXTsKICAgIG15
ICRjaGFuaWQ7CiAgICAKICAgICRzaG93cGVybSA9ICRzaG93OwogICAgJHNob3cgPX4gcy8ubnV2
Ly9nOwogICAgCiAgICBAaG9sZGluZm8gPSBzcGxpdCgvXy8sICRzaG93KTsKICAgIAogICAgJHN0
aCA9ICRkYmgtPnByZXBhcmUoIlNFTEVDVCB0aXRsZSxzdWJ0aXRsZSxjaGFuaWQgRlJPTSByZWNv
cmRlZCBXSEVSRSBzdGFydHRpbWU9JyRob2xkaW5mb1sxXScgQU5EIGVuZHRpbWU9JyRob2xkaW5m
b1syXScgQU5EIGNoYW5pZD0nJGhvbGRpbmZvWzBdJyBMSU1JVCAxOyIpOwogICAgJHN0aC0+ZXhl
Y3V0ZSB8fCBkaWUgIlVuYWJsZSB0byBleGVjdXRlIHF1ZXJ5OiAkZGJoLT5lcnJzdHJcbiI7CiAg
IAogICAgJHJvdz0wOwogICAKICAgIHdoaWxlKCRyb3cgPSAkc3RoLT5mZXRjaHJvd19hcnJheXJl
ZikKICAgIHsKCSAkdGl0bGU9JHJvdy0+WzBdOwkgCgkgJHN1YnRpdGxlPSRyb3ctPlsxXTsKCSAk
Y2hhbmlkPSRyb3ctPlsyXTsKCiAgCSBwcmludCAiRVhJU1RTOiAkc2hvd3Blcm0gPT0gJHRpdGxl
IC0gJHN1YnRpdGxlXG4iOwoKICAgIH0KICAgIGlmICgkY2hhbmlkKSB7CglyZXR1cm4gMTsKICAg
IH0KICAgIGVsc2UgewoJcmV0dXJuIDA7CiAgICB9Cn0KCSAK

---MOQ1042523121eb13b3ed80d44ae851cd735cd816d7fa--