Update 'tool/irssi_cf_alturl.pl'
This commit is contained in:
parent
9664160253
commit
2f214ad63b
|
@ -270,7 +270,7 @@ sub GotUrl {
|
||||||
$url =
|
$url =
|
||||||
'https://ux.nu/api/short?format=plain&url=' . $myurl;
|
'https://ux.nu/api/short?format=plain&url=' . $myurl;
|
||||||
$browser = LWP::UserAgent->new;
|
$browser = LWP::UserAgent->new;
|
||||||
$browser->agent("Mozilla/5.0 (Windows NT 6.1; rv:60.0) Gecko/20100101 Firefox/60.0");
|
$browser->agent("Mozilla/5.0 (Windows NT 6.1; rv:78.0) Gecko/20100101 Firefox/78.0");
|
||||||
$response = $browser->get($url);
|
$response = $browser->get($url);
|
||||||
$answer = $response->content;
|
$answer = $response->content;
|
||||||
if ( index( $answer, 'https://ux.nu/' ) == 0 ) {
|
if ( index( $answer, 'https://ux.nu/' ) == 0 ) {
|
||||||
|
|
Loading…
Reference in New Issue