# rvm_substr v0.4
# Cut XHTML at a specified character limit
#
# License: GNU GPLv2 or later
#
# Ruud van Melick
# http://vanmelick.com/

# ......................................................................
# This is a plugin for Textpattern - http://textpattern.com/
# To install: textpattern > admin > plugins
# Paste the following text into the 'Install plugin' box:
# ......................................................................

YTo5OntzOjQ6Im5hbWUiO3M6MTA6InJ2bV9zdWJzdHIiO3M6NzoidmVyc2lvbiI7czozOiIw
LjQiO3M6NjoiYXV0aG9yIjtzOjE1OiJSdXVkIHZhbiBNZWxpY2siO3M6MTA6ImF1dGhvcl91
cmkiO3M6MjE6Imh0dHA6Ly92YW5tZWxpY2suY29tLyI7czoxMToiZGVzY3JpcHRpb24iO3M6
NDA6IkN1dCBYSFRNTCBhdCBhIHNwZWNpZmllZCBjaGFyYWN0ZXIgbGltaXQiO3M6NDoidHlw
ZSI7aTowO3M6NDoiaGVscCI7czo3NTc6IjxwPlRoaXMgcGx1Z2luIGFsbG93cyB5b3UgdG8g
Y3V0IHN0cmluZyBvZiB2YWxpZCA8c3BhbiBjbGFzcz0iY2FwcyI+WFRITUw8L3NwYW4+IGF0
IGEgc3BlY2lmaWVkIGNoYXJhY3RlciBsaW1pdCAoPHNwYW4gY2xhc3M9ImNhcHMiPlVURjwv
c3Bhbj4tOCBhbmQgPHNwYW4gY2xhc3M9ImNhcHMiPkhUTUw8L3NwYW4+LWVzY2FwZS1jb2Rl
IGF3YXJlKSBhbmQgdGhlbiBhZGQgYSB0cmFpbGluZyBlbGxpcHNpcy4gVGhlIGVuZCByZXN1
bHQgaXMgc3RpbGwgdmFsaWQgPHNwYW4gY2xhc3M9ImNhcHMiPlhIVE1MPC9zcGFuPi48L3A+
Cgo8cD48c3Ryb25nPkV4YW1wbGU6PC9zdHJvbmc+PC9wPgoKPHByZT48Y29kZT4mbHQ7dHhw
OnJ2bV9zdWJzdHIgbGVuZ3RoPSZxdW90OzgmcXVvdDsmZ3Q7Jmx0O3R4cDpib2R5IC8mZ3Q7
Jmx0Oy90eHA6cnZtX3N1YnN0ciZndDs8L2NvZGU+PC9wcmU+Cgo8cD53aWxsIG91dHB1dCAm
IzgyMjA7bG9uZyBzdHImIzgyMzA7JiM4MjIxOywgYXNzdW1pbmcgdGhlIGJvZHkgY29udGFp
bnMgJiM4MjE2O2xvbmcgc3RyaW5nJiM4MjE3Oy48L3A+Cgo8cD48c3Ryb25nPkF0dHJpYnV0
ZXM6PC9zdHJvbmc+PC9wPgoKPHVsPgoJPGxpPmxlbmd0aD0mIzgyMjA7aW50ZWdlciYjODIy
MTs8YnIgLz4KVGhlIGxlbmd0aCBvZiB0aGUgc3RyaW5nIHlvdSB3YW50IHJldHVybmVkLCBu
b3QgY291bnRpbmcgdGhlIGxlbmd0aCBvZiB0aGUgdHJhaWxpbmcgdGV4dCBhbmQgdGFncy4g
RGVmYXVsdHMgdG8gMTAuPC9saT4KPC91bD4iO3M6NDoiY29kZSI7czoxNTE2OiIKaWYgKGNs
YXNzX2V4aXN0cygnXFRleHRwYXR0ZXJuXFRhZ1xSZWdpc3RyeScpKSB7CiAgVHhwOjpnZXQo
J1xUZXh0cGF0dGVyblxUYWdcUmVnaXN0cnknKS0+cmVnaXN0ZXIoJ3J2bV9zdWJzdHInKTsK
fQoKCmZ1bmN0aW9uIHJ2bV9zdWJzdHIoJGF0dHMsICR0aGluZykKewogIGV4dHJhY3QobEF0
dHMoYXJyYXkoCiAgICAnbGVuZ3RoJyA9PiAxMCwKICApLCAkYXR0cykpOwoKICBhc3NlcnRf
aW50KCRsZW5ndGgpOwoKICAkdGhpbmcgICAgPSBwYXJzZSgkdGhpbmcpOwogICRwYXJzZWQg
ICA9IHByZWdfc3BsaXQoJy8oPFtePl0qPikvJywgJHRoaW5nLCAtMSwgUFJFR19TUExJVF9E
RUxJTV9DQVBUVVJFKTsKCiAgJGVsbGlwc2lzID0gRkFMU0U7CiAgJGlzdGFnICAgID0gRkFM
U0U7CiAgJHRhZ3MgICAgID0gYXJyYXkoKTsKICAkdG90YWwgICAgPSAwOwogICRvdXQgICAg
ICA9ICcnOwoKICBmb3JlYWNoICgkcGFyc2VkIGFzICRjaHVuaykKICB7CiAgICBpZiAoJHRv
dGFsID09PSAkbGVuZ3RoKQogICAgewogICAgICAkZWxsaXBzaXMgPSBUUlVFOwogICAgICBi
cmVhazsKICAgIH0KCiAgICBpZiAoJGlzdGFnKQogICAgewogICAgICBpZiAoc3Vic3RyKCRj
aHVuaywgMSwgMSkgPT09ICcvJykKICAgICAgewogICAgICAgIGFycmF5X3BvcCgkdGFncyk7
CiAgICAgIH0KICAgICAgZWxzZWlmIChzdWJzdHIoJGNodW5rLCAtMiwgMSkgIT09ICcvJykK
ICAgICAgewogICAgICAgIGFycmF5X3B1c2goJHRhZ3MsICRjaHVuayk7CiAgICAgIH0KCiAg
ICAgICRvdXQgLj0gJGNodW5rOwogICAgfQogICAgZWxzZQogICAgewogICAgICBpZiAodHJp
bSgkY2h1bmspICE9PSAnJykKICAgICAgewogICAgICAgICRsZW4gPSBwcmVnX21hdGNoX2Fs
bCgnLyg/OlteJl18JlteO10rOykvdXMnLCAkY2h1bmssICRkdW1teSk7CgogICAgICAgIGlm
ICgkdG90YWwgKyAkbGVuIDw9ICRsZW5ndGgpCiAgICAgICAgewogICAgICAgICAgJG91dCAg
IC49ICRjaHVuazsKICAgICAgICAgICR0b3RhbCArPSAkbGVuOwogICAgICAgIH0KICAgICAg
ICBlbHNlCiAgICAgICAgewogICAgICAgICAgcHJlZ19tYXRjaCgnL14oPzpbXiZdfCZbXjtd
KzspeycuKCRsZW5ndGgtJHRvdGFsKS4nfS91cycsICRjaHVuaywgJG1hdGNoKTsKICAgICAg
ICAgICRvdXQgIC49ICRtYXRjaFswXTsKICAgICAgICAgICR0b3RhbCA9ICRsZW5ndGg7CiAg
ICAgICAgICAkZWxsaXBzaXMgPSBUUlVFOwogICAgICAgIH0KICAgICAgfQogICAgICBlbHNl
CiAgICAgIHsKICAgICAgICAkb3V0IC49ICRjaHVuazsKICAgICAgfQogICAgfQoKICAgICRp
c3RhZyA9ICEkaXN0YWc7CiAgfQoKICAkb3V0ID0gcnRyaW0oJG91dCkgLiAoJGVsbGlwc2lz
ID8gJ+KApicgOiAnJyk7CgogIGZvcmVhY2goYXJyYXlfcmV2ZXJzZSgkdGFncykgYXMgJHRh
ZykKICB7CiAgICBwcmVnX21hdGNoKCcvXjwoXHcrKS9zJywgJHRhZywgJG1hdGNoKTsKICAg
ICRvdXQgLj0gJzwvJy4kbWF0Y2hbMV0uJz4nOwogIH0KCiAgcmV0dXJuICRvdXQ7Cn0KIjtz
OjM6Im1kNSI7czozMjoiYmI0ZTJjMmUzNzdjYTM5YTZmZjJiNzJkOGJkNmE5ZWUiO30=