storm/ttyverse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Found and removed some more old Twitter references.

Browse Source
This commit is contained in:
Storm Dragon
2025-07-30 19:47:30 -04:00
parent 063229e796
commit 732affaeff
1 changed files with 7 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ttyverse.pl
+7 -42
View File
@@ -195,7 +195,6 @@ BEGIN {
# exception_is_maskable=0 # Allow masking exceptions
# simplestart=0 # Simple startup mode
# noratelimit=0 # Ignore rate limiting
# notco=0 # Disable t.co URL expansion
# === ADVANCED/TECHNICAL ===
# runcommand= # Command to run on startup
@@ -293,7 +292,7 @@ EOF
leader ssl rc norc vcheck apibase notifytype exts
noreblogs synch runcommand authtype oauthkey oauthsecret
tokenkey tokensecret credurl keyf readlinerepaint
simplestart exception_is_maskable oldperl notco
simplestart exception_is_maskable oldperl
notify_tool_path oauthurl oauthauthurl oauthaccurl oauthbase
signals_use_posix dostream eventbuf streamallreplies
createrc
@@ -1943,9 +1942,9 @@ for(;;) {
"sorry, you can't post anonymously. use an authenticated username.\n")
if ($anonymous && length($status));
die(
"sorry, status too long: reduce by @{[ &length_tco($status)-$linelength ]} chars, ".
"sorry, status too long: reduce by @{[ length($status)-$linelength ]} chars, ".
"or use -autosplit={word,char,cut}.\n")
if (&length_tco($status) > $linelength && !$autosplit);
if (length($status) > $linelength && !$autosplit);
($status, $next) = &csplit($status, ($autosplit eq 'char' ||
$autosplit eq 'cut') ? 1 : 0)
if (!length($next));
@@ -2249,7 +2248,6 @@ sub defaultmain {
print C "rsga---------------\n";
$dont_use_counter = $nocounter;
eval '$termrl->hook_no_counter';
$tco_sub = sub { return &main::fastturntotco(shift); };
eval '$termrl->hook_no_tco';
if ($termrl) {
print $stdout "-- DEBUG: Starting readline loop with implementation: " . $termrl->ReadLine . "\n" if ($verbose);
@@ -3629,7 +3627,7 @@ EOF
}
# pull out entities. this works for DMs and posts.
# btw: T.CO IS WACK.
# extract URL entities from fediverse posts
if (m#^/ent?(ities)? ([dDzZ]?[a-zA-Z]?[0-9]+)$#) {
my $v;
my $w;
@@ -9998,11 +9996,10 @@ sub grabjson {
return &map_mastodon_fields($my_json_ref);
}
# convert t.co into actual URLs. separate from normalizejson because other
# expand shortened URLs into actual URLs. separate from normalizejson because other
# things need this. modified from /entities.
sub destroy_all_tco {
my $hash = shift;
return $hash if ($notco);
my $v;
my $w;
@@ -10799,43 +10796,11 @@ sub uhex {
return $k;
}
# for t.co
# adapted from github.com/fediverse/fediverse-text-js/blob/master/fediverse-text.js
# this is very hard to get right, and I know there are edge cases. this first
# one is designed to be quick and dirty because it needs to be fast more than
# it needs to be accurate, since T:RL:T calls it a LOT. however, it can be
# fooled, see below.
sub fastturntotco {
my $s = shift;
my $w;
# turn domain names into http urls. this should look at .com, .net,
# .etc., but things like you.suck.too probably *should* hit this
# filter. this uses the heuristic that a domain name over some limit
# is probably not actually a domain name.
($s =~ s#\b(([a-zA-Z0-9-_]\.)+([a-zA-Z]){2,})\b#((length($w="$1")>45)?$w:"http://$w")#eg);
# now turn all http and https URLs into t.co strings
($s =~ s#\b(https?)://[a-zA-Z0-9-_]+[^\s]*?('|\\|\s|[\.;:,!\?]\s+|[\.;:,!\?]$|$)#\1://t.co/1234567\2#gi);
return $s;
}
# slow t.co converter. this is for future expansion.
sub turntotco {
return &fastturntotco(shift);
}
sub ulength_tco {
my $w = shift;
return &ulength(($notco) ? $w : &turntotco($w));
}
sub length_tco {
my $w = shift;
return length(($notco) ? $w : &turntotco($w));
}
# take a string and return up to $linelength CHARS plus the rest.
sub csplit { return &cosplit(@_, sub { return &length_tco(shift); }); }
sub csplit { return &cosplit(@_, sub { return length(shift); }); }
# take a string and return up to $linelength BYTES plus the rest.
sub usplit { return &cosplit(@_, sub { return &ulength_tco(shift); }); }
sub usplit { return &cosplit(@_, sub { return &ulength(shift); }); }
sub cosplit {
# this is the common code for &csplit and &usplit.
# this is tricky because we don't want to split up UTF-8 sequences, so