# 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
ZSI7aTowO3M6NDoiaGVscCI7czo3NjU6Igk8cD5UaGlzIHBsdWdpbiBhbGxvd3MgeW91IHRv
IGN1dCBzdHJpbmcgb2YgdmFsaWQgPHNwYW4gY2xhc3M9ImNhcHMiPlhUSE1MPC9zcGFuPiBh
dCBhIHNwZWNpZmllZCBjaGFyYWN0ZXIgbGltaXQgKDxzcGFuIGNsYXNzPSJjYXBzIj5VVEY8
L3NwYW4+LTggYW5kIDxzcGFuIGNsYXNzPSJjYXBzIj5IVE1MPC9zcGFuPi1lc2NhcGUtY29k
ZSBhd2FyZSkgYW5kIHRoZW4gYWRkIGEgdHJhaWxpbmcgZWxsaXBzaXMuIFRoZSBlbmQgcmVz
dWx0IGlzIHN0aWxsIHZhbGlkIDxzcGFuIGNsYXNzPSJjYXBzIj5YSFRNTDwvc3Bhbj4uPC9w
PgoKCTxwPjxzdHJvbmc+RXhhbXBsZTo8L3N0cm9uZz48L3A+Cgo8cHJlPjxjb2RlPiZsdDt0
eHA6cnZtX3N1YnN0ciBsZW5ndGg9JnF1b3Q7OCZxdW90OyZndDsmbHQ7dHhwOmJvZHkgLyZn
dDsmbHQ7L3R4cDpydm1fc3Vic3RyJmd0Owo8L2NvZGU+PC9wcmU+CgoJPHA+d2lsbCBvdXRw
dXQgJiM4MjIwO2xvbmcgc3RyJiM4MjMwOyYjODIyMTssIGFzc3VtaW5nIHRoZSBib2R5IGNv
bnRhaW5zICYjODIxNjtsb25nIHN0cmluZyYjODIxNzsuPC9wPgoKCTxwPjxzdHJvbmc+QXR0
cmlidXRlczo8L3N0cm9uZz48L3A+CgoJPHVsPgoJCTxsaT5sZW5ndGg9JiM4MjIwO2ludGVn
ZXImIzgyMjE7PGJyIC8+ClRoZSBsZW5ndGggb2YgdGhlIHN0cmluZyB5b3Ugd2FudCByZXR1
cm5lZCwgbm90IGNvdW50aW5nIHRoZSBsZW5ndGggb2YgdGhlIHRyYWlsaW5nIHRleHQgYW5k
IHRhZ3MuIERlZmF1bHRzIHRvIDEwLjwvbGk+Cgk8L3VsPiI7czo0OiJjb2RlIjtzOjE1MTY6
IgppZiAoY2xhc3NfZXhpc3RzKCdcVGV4dHBhdHRlcm5cVGFnXFJlZ2lzdHJ5JykpIHsKICBU
eHA6OmdldCgnXFRleHRwYXR0ZXJuXFRhZ1xSZWdpc3RyeScpLT5yZWdpc3RlcigncnZtX3N1
YnN0cicpOwp9CgoKZnVuY3Rpb24gcnZtX3N1YnN0cigkYXR0cywgJHRoaW5nKQp7CiAgZXh0
cmFjdChsQXR0cyhhcnJheSgKICAgICdsZW5ndGgnID0+IDEwLAogICksICRhdHRzKSk7Cgog
IGFzc2VydF9pbnQoJGxlbmd0aCk7CgogICR0aGluZyAgICA9IHBhcnNlKCR0aGluZyk7CiAg
JHBhcnNlZCAgID0gcHJlZ19zcGxpdCgnLyg8W14+XSo+KS8nLCAkdGhpbmcsIC0xLCBQUkVH
X1NQTElUX0RFTElNX0NBUFRVUkUpOwoKICAkZWxsaXBzaXMgPSBGQUxTRTsKICAkaXN0YWcg
ICAgPSBGQUxTRTsKICAkdGFncyAgICAgPSBhcnJheSgpOwogICR0b3RhbCAgICA9IDA7CiAg
JG91dCAgICAgID0gJyc7CgogIGZvcmVhY2ggKCRwYXJzZWQgYXMgJGNodW5rKQogIHsKICAg
IGlmICgkdG90YWwgPT09ICRsZW5ndGgpCiAgICB7CiAgICAgICRlbGxpcHNpcyA9IFRSVUU7
CiAgICAgIGJyZWFrOwogICAgfQoKICAgIGlmICgkaXN0YWcpCiAgICB7CiAgICAgIGlmIChz
dWJzdHIoJGNodW5rLCAxLCAxKSA9PT0gJy8nKQogICAgICB7CiAgICAgICAgYXJyYXlfcG9w
KCR0YWdzKTsKICAgICAgfQogICAgICBlbHNlaWYgKHN1YnN0cigkY2h1bmssIC0yLCAxKSAh
PT0gJy8nKQogICAgICB7CiAgICAgICAgYXJyYXlfcHVzaCgkdGFncywgJGNodW5rKTsKICAg
ICAgfQoKICAgICAgJG91dCAuPSAkY2h1bms7CiAgICB9CiAgICBlbHNlCiAgICB7CiAgICAg
IGlmICh0cmltKCRjaHVuaykgIT09ICcnKQogICAgICB7CiAgICAgICAgJGxlbiA9IHByZWdf
bWF0Y2hfYWxsKCcvKD86W14mXXwmW147XSs7KS91cycsICRjaHVuaywgJGR1bW15KTsKCiAg
ICAgICAgaWYgKCR0b3RhbCArICRsZW4gPD0gJGxlbmd0aCkKICAgICAgICB7CiAgICAgICAg
ICAkb3V0ICAgLj0gJGNodW5rOwogICAgICAgICAgJHRvdGFsICs9ICRsZW47CiAgICAgICAg
fQogICAgICAgIGVsc2UKICAgICAgICB7CiAgICAgICAgICBwcmVnX21hdGNoKCcvXig/Olte
Jl18JlteO10rOyl7Jy4oJGxlbmd0aC0kdG90YWwpLid9L3VzJywgJGNodW5rLCAkbWF0Y2gp
OwogICAgICAgICAgJG91dCAgLj0gJG1hdGNoWzBdOwogICAgICAgICAgJHRvdGFsID0gJGxl
bmd0aDsKICAgICAgICAgICRlbGxpcHNpcyA9IFRSVUU7CiAgICAgICAgfQogICAgICB9CiAg
ICAgIGVsc2UKICAgICAgewogICAgICAgICRvdXQgLj0gJGNodW5rOwogICAgICB9CiAgICB9
CgogICAgJGlzdGFnID0gISRpc3RhZzsKICB9CgogICRvdXQgPSBydHJpbSgkb3V0KSAuICgk
ZWxsaXBzaXMgPyAn4oCmJyA6ICcnKTsKCiAgZm9yZWFjaChhcnJheV9yZXZlcnNlKCR0YWdz
KSBhcyAkdGFnKQogIHsKICAgIHByZWdfbWF0Y2goJy9ePChcdyspL3MnLCAkdGFnLCAkbWF0
Y2gpOwogICAgJG91dCAuPSAnPC8nLiRtYXRjaFsxXS4nPic7CiAgfQoKICByZXR1cm4gJG91
dDsKfQoiO3M6MzoibWQ1IjtzOjMyOiJiYjRlMmMyZTM3N2NhMzlhNmZmMmI3MmQ4YmQ2YTll
ZSI7fQ==