# sab_substr v0.5
# Cut plain text 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:
# ......................................................................

YTo5OntzOjQ6Im5hbWUiO3M6MTA6InNhYl9zdWJzdHIiO3M6NzoidmVyc2lvbiI7czozOiIw
LjUiO3M6NjoiYXV0aG9yIjtzOjE1OiJSdXVkIHZhbiBNZWxpY2siO3M6MTA6ImF1dGhvcl91
cmkiO3M6MjE6Imh0dHA6Ly92YW5tZWxpY2suY29tLyI7czoxMToiZGVzY3JpcHRpb24iO3M6
NDU6IkN1dCBwbGFpbiB0ZXh0IGF0IGEgc3BlY2lmaWVkIGNoYXJhY3RlciBsaW1pdCI7czo0
OiJ0eXBlIjtpOjA7czo0OiJoZWxwIjtzOjEzNDk6IjxwPlRoaXMgaXMgYSBzaW1wbGUgcGx1
Z2luIHRvIGN1dCBhIHN0cmluZyBvZiBwbGFpbiB0ZXh0IChub3QgKFgpSFRNTCEpIGF0IGEg
c3BlY2lmaWVkIGNoYXJhY3RlciBsaW1pdCAoPHNwYW4gY2xhc3M9ImNhcHMiPlVURjwvc3Bh
bj4tOCBhd2FyZSkgYW5kIHRoZW4gYWRkIGEgdHJhaWxpbmcgc3RyaW5nIChpLmUuIGVsbGlw
c2lzKS48L3A+Cgo8cD5Zb3UgY2FuIHVzZSBpdCB0byB0YWtlIGFuIGFydGljbGUgdGl0bGUg
KG9yIGFueSBvdGhlciBub24taHRtbCBlc2NhcGVkIHRleHQpIGFuZCB0cmltIGl0IGRvd24g
dG8gYSBzcGVjaWZpZWQgY2hhcmFjdGVyIGxpbWl0IHRoZW4gYWRkIGFuIGVsbGlwc2VzLiBQ
b3NzaWJseSB1c2VkIGZvciBhcnRpY2xlIG5hdmlnYXRpb24gKHByZXYvbmV4dCkgb3IgYW4g
YXJ0aWNsZSBsaXN0IHdoZXJlIHlvdSB3YW50IHRvIGtlZXAgdGhlIHRpdGxlcyBzaG9ydC48
L3A+Cgo8cD48c3Ryb25nPkV4YW1wbGU6PC9zdHJvbmc+PC9wPgoKPHByZT48Y29kZT4mbHQ7
dHhwOnNhYl9zdWJzdHIgbGltaXQ9JnF1b3Q7MTAmcXVvdDsgdHJhaWw9JnF1b3Q7Li4uJnF1
b3Q7Jmd0OyZsdDt0eHA6dGl0bGUgLyZndDsmbHQ7L3R4cDpzYWJfc3Vic3RyJmd0OzwvY29k
ZT48L3ByZT4KCjxwPndpbGwgb3V0cHV0ICYjODIyMDtsb25nIHN0cmluZyYjODIzMDsmIzgy
MjE7LCBhc3N1bWluZyB0aGUgdGl0bGUgaXMgJiM4MjE2O2xvbmcgc3RyaW5nIHRpdGxlJiM4
MjE3Oy48L3A+Cgo8cD48c3Ryb25nPkF0dHJpYnV0ZXM6PC9zdHJvbmc+PC9wPgoKPHVsPgoJ
PGxpPnRyYWlsPSYjODIyMDtodG1sIHRleHQmIzgyMjE7PGJyIC8+ClRoZSBzdHJpbmcgeW91
IHdhbnQgYXBwZW5kZWQgdG8gdGhlIHJlc3VsdC4gSXQgd2lsbCA8c3BhbiBjbGFzcz0iY2Fw
cyI+Tk9UPC9zcGFuPiBiZSBhcHBlbmRlZCA8c3BhbiBjbGFzcz0iY2FwcyI+VU5MRVNTPC9z
cGFuPiB0aGUgY29udGVudCB3YXMgdHJpbW1lZC4gRGVmYXVsdHMgdG8gJiM4MjE2OyYjODIz
MDsmIzgyMTc7IChlbGxpcHNpcykuPC9saT4KCTxsaT5saW1pdD0mIzgyMjA7aW50ZWdlciYj
ODIyMTs8YnIgLz4KVGhlIGxlbmd0aCBvZiB0aGUgc3RyaW5nIHlvdSB3YW50IHJldHVybmVk
LCBub3QgY291bnRpbmcgdGhlIGxlbmd0aCBvZiB0aGUgdHJhaWxpbmcgdGV4dC4gRGVmYXVs
dHMgdG8gMTAuPC9saT4KPC91bD4KCjxwPlBTLiBUaGlzIHBsdWdpbiB3YXMgb3JpZ2luYWxs
eSByZWxlYXNlZCBieSBTdGV2ZSBmcm9tIGJsdWVjYW1lbC5vcmcsIGJ1dCB3aGVuIGl0IHdh
cyBubyBsb25nZXIgYXZhaWxhYmxlLCBJIHdyb3RlIGl0IGFuZXcgZnJvbSBzY3JhdGNoIHRv
IGJlIGEgZHJvcC1pbiByZXBsYWNlbWVudC48L3A+IjtzOjQ6ImNvZGUiO3M6NTEwOiIKaWYg
KGNsYXNzX2V4aXN0cygnXFRleHRwYXR0ZXJuXFRhZ1xSZWdpc3RyeScpKSB7CiAgVHhwOjpn
ZXQoJ1xUZXh0cGF0dGVyblxUYWdcUmVnaXN0cnknKS0+cmVnaXN0ZXIoJ3NhYl9zdWJzdHIn
KTsKfQoKCmZ1bmN0aW9uIHNhYl9zdWJzdHIoJGF0dHMsICR0aGluZykKewogIGV4dHJhY3Qo
bEF0dHMoYXJyYXkoCiAgICAnbGltaXQnID0+IDEwLAogICAgJ3RyYWlsJyA9PiAnJiM4MjMw
OycKICApLCAkYXR0cykpOwoKICBhc3NlcnRfaW50KCRsaW1pdCk7CgogICR0aGluZyA9IHBh
cnNlKCR0aGluZyk7CgogIGlmIChzdHJsZW4odXRmOF9kZWNvZGUoJHRoaW5nKSkgPiAkbGlt
aXQpCiAgewogICAgICR0aGluZyA9IHByZWdfcmVwbGFjZSgnL14oLnsnLiRsaW1pdC4nfSku
KiQvdXMnLCAnJDEnLCAkdGhpbmcpOwogICAgIHJldHVybiBodG1sc3BlY2lhbGNoYXJzKCR0
aGluZykuJHRyYWlsOwogIH0KCiAgZWxzZQogIHsKICAgICByZXR1cm4gaHRtbHNwZWNpYWxj
aGFycygkdGhpbmcpOwogIH0KfQoiO3M6MzoibWQ1IjtzOjMyOiJjNWUzNDkzMGNmYWFlNjdh
OGMyM2FlODg2NTk2MTVlMiI7fQ==