Tweet
file: build.pl 51: if (@to_tweet == 1) { 52: my $node = $to_tweet[0]; 53: my $status = $node->stash->{tweet}; 54: my $length_check = $status; 55: $length_check=~s{https?://.* }{'x' x 24}ge; # twitter short urls are 23 characters + 1 trailing space 56: if (length($length_check) > 89) { 57: $status=substr($status, 0,87).'â¦'; 58: }
Get the tweet and shorten it if it's too long