diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-10-14 15:40:50 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-10-14 15:40:50 +0000 |
| commit | 69cafa1018efb7d707925b02b2cf01ba6bc71827 (patch) | |
| tree | 8e07b24fddf945ef979ce65c6aaff5e26667b1db /scripts | |
| parent | 77b3ab3c44f4a4baf2d879d889f0aad65cfa2eef (diff) | |
| download | irssi-69cafa1018efb7d707925b02b2cf01ba6bc71827.zip | |
Updated from scripts.irssi.org
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2951 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/scriptassist.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl index ce6667b6..144b2673 100644 --- a/scripts/scriptassist.pl +++ b/scripts/scriptassist.pl @@ -8,7 +8,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = '2002101202'; +$VERSION = '2002101401'; %IRSSI = ( authors => 'Stefan \'tommie\' Tomanek', contact => 'stefan@pico.ruhr.de', @@ -844,6 +844,7 @@ sub download_script ($$) { my $response = $ua->request($request); if ($response->is_success()) { my $file = $response->content(); + mkdir $dir.'/scripts/', 0750 unless (-e $dir.'/scripts/'); local *F; open(F, '>'.$dir.'/scripts/'.$script.'.pl.new'); print F $file; @@ -856,7 +857,7 @@ sub download_script ($$) { if ($response2->is_success()) { local *S; my $sig_dir = $dir.'/scripts/signatures/'; - mkdir $sig_dir unless (-e $sig_dir); + mkdir $sig_dir, 0750 unless (-e $sig_dir); open(S, '>'.$sig_dir.$script.'.pl.asc'); my $file2 = $response2->content(); print S $file2; @@ -891,7 +892,7 @@ sub download_script ($$) { } if ($result{installed}) { my $old_dir = "$dir/scripts/old/"; - mkdir $old_dir unless (-e $old_dir); + mkdir $old_dir, 0750 unless (-e $old_dir); rename "$dir/scripts/$script.pl", "$old_dir/$script.pl.old" if -e "$dir/scripts/$script.pl"; rename "$dir/scripts/$script.pl.new", "$dir/scripts/$script.pl"; } @@ -921,7 +922,7 @@ sub print_check (%) { sub toggle_autorun ($) { my ($script) = @_; my $dir = Irssi::get_irssi_dir()."/scripts/"; - mkdir $dir."autorun/" unless (-e $dir."autorun/"); + mkdir $dir."autorun/", 0750 unless (-e $dir."autorun/"); return unless (-e $dir.$script.".pl"); if (check_autorun($script)) { if (readlink($dir."/autorun/".$script.".pl") eq "../".$script.".pl") { |