zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-22 10:02:22 +02:00
Code Issues Projects Releases Packages Wiki Activity

Added limitation note + excluded permanent data script

Browse source
This commit is contained in:
lasers 2014-10-19 08:11:13 -05:00
commit 5112f30570
1 changed files with 17 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

25
scripts/scriptsave.pl
View file

@ -4,7 +4,7 @@ use Irssi;
use File::Basename; use File::Basename;
use vars qw($VERSION %IRSSI); use vars qw($VERSION %IRSSI);
$VERSION = '0.03'; $VERSION = '0.05';
%IRSSI = ( %IRSSI = (
authors => 'lasers', authors => 'lasers',
contact => 'lasers on freenode', contact => 'lasers on freenode',
@ -13,16 +13,25 @@ $VERSION = '0.03';
license => 'Public Domain', license => 'Public Domain',
); );
# ──── USAGE: ───── # ──── USAGE ────
# Outside irssi: # Outside irssi:
# Remove ~/.irssi/scripts/autorun # Remove ~/.irssi/scripts/autorun
# Add "script load scriptsave" to ~/.irssi/startup # Add "script load scriptsave" to ~/.irssi/startup
# #
# Inside irssi: # Inside irssi:
# /script save # /help script
# /script save
# #
# ──── NOTE: ──── # ──── NOTE ────
# Scripts will be saved to ~/.irssi/config.scriptsave # Scripts will be saved to ~/.irssi/config.scriptsave
#
# ──── LIMITATIONS ────
# This script will not work for scripts with a dash
# in their filenames. If possible, omit them or replace
# them with an underscore.
# ✖ Script-name.pl
# ✔ Script_name.pl
# ✔ Scriptname.pl
my $name = basename(__FILE__); my $name = basename(__FILE__);
$name =~ s/\.[^.]+$//; $name =~ s/\.[^.]+$//;
@ -43,7 +52,7 @@ sub cmd_save_scripts {
unlink $lst; unlink $lst;
foreach (sort grep(s/::$//, keys %Irssi::Script::)){ foreach (sort grep(s/::$//, keys %Irssi::Script::)){
open(my $fh, ">>", $lst); open(my $fh, ">>", $lst);
if ($_ ne $name){ if (($_ ne $name) && ($_ !~ m/data+(\d)/)){
print $fh "$_\n"; print $fh "$_\n";
} }
close $fh; close $fh;
@ -60,4 +69,4 @@ sub cmd_print_help() {
} }
cmd_load_scripts; cmd_load_scripts;
Irssi::command_bind('script save', 'cmd_save_scripts'); Irssi::command_bind('script save', 'cmd_save_scripts');
Irssi::command_bind_last('help', 'cmd_print_help'); Irssi::command_bind_last('help', 'cmd_print_help');