Skip to content

Commit f920838

Browse files
laama1laama1
committed
use correct lib dir
1 parent 39702b5 commit f920838

29 files changed

+114
-68
lines changed

‎KaaosRadioClass.pm

+4-1
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,7 @@ my $currentDir = $ENV{HOME}.'/.irssi/scripts';
4141
my $tsfile = "$currentDir/ts";
4242
my $djlist = "$currentDir/dj_list.txt";
4343

44-
my $DEBUG = 1;
44+
my $DEBUG = 0;
4545
my $DEBUG_decode = 0;
4646

4747
my $floodernick = '';
@@ -439,6 +439,7 @@ sub fetchUrl {
439439
my ($url, $getsize, $headers);
440440
($url, $getsize, $headers) = @_;
441441
dp(__LINE__.': fetchUrl url: '. $url);
442+
da(__LINE__, $headers);
442443
#$url = decode_entities($url);
443444
my $useragent = 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.11) Gecko/20100721 Firefox/3.0.6';
444445
my $cookie_file = $currentDir .'/KRCcookies.dat';
@@ -554,4 +555,6 @@ sub conway {
554555
my @moonarray = ('🌑 uusikuu', '🌒 kuun kasvava sirppi', '🌓 kuun ensimmäinen neljännes', '🌔 kasvava kuperakuu', '🌕 täysikuu', '🌖 laskeva kuperakuu', '🌗 kuun viimeinen neljännes', '🌘 kuun vähenevä sirppi');
555556
return $moonarray[$r] .", ikä: $age vrk.";
556557
}
558+
559+
print ">>>> using .irssi/scripts/irssi-scripts/KaaosRadioClass.pm";
557560
1; # loaded OK

‎addquote.pl

+1
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,7 @@
88
use utf8;
99
binmode STDOUT, ':utf8';
1010
binmode STDIN, ':utf8';
11+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1112
use KaaosRadioClass; # LAama1 30.12.2016
1213

1314
my $tiedosto = '/mnt/music/quotes.txt';

‎asciimorse.pl

+14-14
Original file line numberDiff line numberDiff line change
@@ -9,27 +9,27 @@
99

1010
$VERSION = '0.1';
1111
%IRSSI = (
12-
authors => 'LAama1',
13-
contact => 'LAama1@Ircnet',
14-
name => 'ascii 2 morse',
15-
description => 'Tulostaa morsekooodia.',
16-
license => 'BSD',
17-
url => 'https://8-b.fi',
18-
changed => $VERSION
12+
authors => 'LAama1',
13+
contact => 'LAama1@Ircnet',
14+
name => 'ascii 2 morse',
15+
description => 'Tulostaa morsekooodia.',
16+
license => 'BSD',
17+
url => 'https://8-b.fi',
18+
changed => $VERSION
1919
);
2020

2121
sub pubmsg {
2222
my ($serverrec, $msg, $nick, $address, $target) = @_;
2323
return if ($nick eq $serverrec->{nick}); # self-test
2424
return if $nick eq 'kaaosradio'; # ignore this nick
2525

26-
if ($msg =~ /\!morse (.*)/ui) {
27-
return if KaaosRadioClass::floodCheck() == 1; # return if flooding
28-
my $searchw = decode('ISO-8859-1', $1);
29-
print("asciimorse> Searchword: ".$searchw);
30-
my $morse = as_morse($searchw);
31-
$serverrec->command("MSG $target Morse: $morse") if $morse;
32-
}
26+
if ($msg =~ /\!morse (.*)/ui) {
27+
return if KaaosRadioClass::floodCheck() == 1; # return if flooding
28+
my $searchw = decode('ISO-8859-1', $1);
29+
print("asciimorse> Searchword: ".$searchw);
30+
my $morse = as_morse($searchw);
31+
$serverrec->command("MSG $target Morse: $morse") if $morse;
32+
}
3333
return;
3434
}
3535

‎auroras.pl

+4-4
Original file line numberDiff line numberDiff line change
@@ -2,11 +2,11 @@
22
use warnings;
33
use Irssi;
44
use vars qw($VERSION %IRSSI);
5-
use lib $ENV{HOME}.'/.irssi/irssi-scripts/';
6-
#use KaaosRadioClass;
5+
#use lib $ENV{HOME}.'/.irssi/irssi-scripts/';
6+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
77
use Data::Dumper;
8-
9-
require "$ENV{HOME}/.irssi/scripts/irssi-scripts/KaaosRadioClass.pm";
8+
use KaaosRadioClass;
9+
#require "$ENV{HOME}/.irssi/scripts/irssi-scripts/KaaosRadioClass.pm";
1010

1111
$VERSION = '0.51';
1212
%IRSSI = (

‎dronebl_check.pl

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,9 +2,9 @@
22
use warnings;
33
use Irssi;
44
use Data::Dumper;
5+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
56
use KaaosRadioClass;
67

7-
88
use vars qw($VERSION %IRSSI);
99
$VERSION = '0.1';
1010
%IRSSI = (

‎elisavihihi3.pl

+1-1
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@
99
use Data::Dumper;
1010
use utf8;
1111
use Time::Piece;
12-
12+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1313
use KaaosRadioClass; # LAama1 20.10.2016
1414

1515
use vars qw($VERSION %IRSSI);

‎fetch_auroras.pl

+2-1
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,8 @@
88
use strict;
99
use Data::Dumper;
1010

11-
use lib $ENV{HOME}.'/.irssi/scripts';
11+
#use lib $ENV{HOME}.'/.irssi/scripts';
12+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1213
use KaaosRadioClass;
1314
use JSON;
1415

‎fetch_horos2.pl

+2-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,8 @@
33
#use warnings;
44
use utf8;
55
use Data::Dumper;
6-
use lib $ENV{HOME}.'/.irssi/scripts';
6+
#use lib $ENV{HOME}.'/.irssi/scripts';
7+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
78
use KaaosRadioClass; # LAama1 16.2.2017
89
#use Getopt::Long;
910
use vars qw($VERSION);

‎fingrid.pl

+1
Original file line numberDiff line numberDiff line change
@@ -6,6 +6,7 @@
66
use JSON;
77
use POSIX;
88
use DateTime;
9+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
910
use KaaosRadioClass;
1011
use Time::HiRes;
1112
use HTTP::Headers;

‎fmi_weather.pl

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22
use strict;
33
use Irssi;
44
use utf8;
5-
#use lib $ENV{HOME} . '/.irssi/scripts/irssi-scripts';
5+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
66
use KaaosRadioClass;
77
use IO::Socket;
88
use Fcntl;

‎franklin3.pl

+1-1
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@
1313
use Encode;
1414
use MIME::Base64;
1515
use Data::Dumper;
16-
16+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1717
use KaaosRadioClass;
1818
our $localdir = $ENV{HOME}."/.irssi/scripts/";
1919

‎gsheet.pl

+1-1
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
use Data::Dumper;
1111

1212
use Encode;
13-
13+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1414
use KaaosRadioClass; # LAama1 13.11.2016
1515

1616
use vars qw($VERSION %IRSSI);

‎hamqsl.pl

+1-2
Original file line numberDiff line numberDiff line change
@@ -6,8 +6,7 @@
66
#use Irssi::Irc;
77
use Data::Dumper;
88
use XML::LibXML;
9-
10-
#require "$ENV{HOME}/.irssi/scripts/irssi-scripts/KaaosRadioClass.pm";
9+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1110
use KaaosRadioClass;
1211

1312
$VERSION = '0.1';

‎help.pl

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
use Irssi;
55
use vars qw($VERSION %IRSSI);
66
use Irssi::Irc;
7-
7+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
88
use KaaosRadioClass;
99

1010
$VERSION = '0.50';

‎horos2.pl

+2-1
Original file line numberDiff line numberDiff line change
@@ -7,13 +7,14 @@
77
use LWP::Simple;
88
use utf8;
99
use Data::Dumper;
10+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1011
use KaaosRadioClass; # LAama1 16.2.2017
1112
use POSIX qw(strftime);
1213
use POSIX qw(locale_h); # necessary?
1314
use locale; # necessary??
1415

1516
use vars qw($VERSION %IRSSI);
16-
$VERSION = '0.35';
17+
$VERSION = '0.36';
1718
%IRSSI = (
1819
authors => 'LAama1',
1920
contact => '#kaaosradio@ircnet',

‎icecast_file_listener.pl

+1
Original file line numberDiff line numberDiff line change
@@ -5,6 +5,7 @@
55
# install next one:
66
#use Time::Format qw(%strftime);
77
use Data::Dumper;
8+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
89
use KaaosRadioClass;
910

1011
use vars qw($VERSION %IRSSI);

‎icecast_socket_listener.pl

+2-1
Original file line numberDiff line numberDiff line change
@@ -5,11 +5,12 @@
55
# install next one:
66
use Time::Format qw(%strftime);
77
use Data::Dumper;
8+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
89
use KaaosRadioClass;
910

1011
use vars qw($VERSION %IRSSI);
1112

12-
$VERSION = '0.1';
13+
$VERSION = '0.11';
1314
%IRSSI = (
1415
authors => 'LAama1',
1516
contact => 'LAama1@ircnet',

‎imdb3.pl

+1
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,7 @@
88
use JSON;
99
use vars qw($VERSION %IRSSI);
1010
use Data::Dumper;
11+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1112
use KaaosRadioClass; # LAama1 26.10.2016
1213

1314
#omdb api http://omdbapi.com/

‎kaaosradio_rss.pl

+1
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@
22
use strict;
33
use Irssi;
44
use utf8;
5+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
56
use KaaosRadioClass; # LAama1 9.5.2018
67
use XML::RSS;
78
use LWP::Simple;

‎kickpelle.pl

+1
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,7 @@
77
use utf8;
88
binmode STDOUT, ':utf8';
99
binmode STDIN, ':utf8';
10+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
1011
use KaaosRadioClass; # LAama1 30.12.2016
1112
use Data::Dumper;
1213
use vars qw($VERSION %IRSSI);

‎killahoe_rss.pl

+1
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@
22
use strict;
33
use Irssi;
44
use utf8;
5+
use lib Irssi::get_irssi_dir() . '/scripts/irssi-scripts'; # LAama1 2024-07-26
56
use KaaosRadioClass; # LAama1 9.5.2018
67
use XML::RSS; # https://metacpan.org/pod/XML::RSS
78
use LWP::Simple;

0 commit comments

Comments
 (0)