[scriptassist] improve autorun creation

diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl
index cf397e91acf6f57cc61e544e8017e0c21df01150..687089455ae1a33a70a5eeadd904dc6b3bf3cb1c 100644 (file)
--- a/scripts/scriptassist.pl
+++ b/scripts/scriptassist.pl
@@ -5,7 +5,7 @@
 
 use strict;
 
-our $VERSION = '2003020805';
+our $VERSION = '2003020806';
 our %IRSSI = (
     authors     => 'Stefan \'tommie\' Tomanek',
     contact     => 'stefan@pico.ruhr.de',
@@ -1053,7 +1053,7 @@ sub toggle_autorun {
     my $dir = Irssi::get_irssi_dir()."/scripts/";
     mkdir $dir."autorun/" unless (-e $dir."autorun/");
     return unless (-e $dir.$plname);
-    if (check_autorun($sname)) {
+    if (-e $dir."/autorun/".$plname) {
        if (readlink($dir."/autorun/".$plname) eq "../".$plname) {
            if (unlink($dir."/autorun/".$plname)) {
                print CLIENTCRAP "%R>>%n Autorun of ".$sname." disabled";
@@ -1064,8 +1064,11 @@ sub toggle_autorun {
            print CLIENTCRAP "%R>>%n ".$dir."/autorun/".$plname." is not a correct link";
        }
     } else {
-       symlink("../".$plname, $dir."/autorun/".$plname);
-       print CLIENTCRAP "%R>>%n Autorun of ".$sname." enabled";
+       if (symlink("../".$plname, $dir."/autorun/".$plname)) {
+           print CLIENTCRAP "%R>>%n Autorun of ".$sname." enabled";
+       } else {
+           print CLIENTCRAP "%R>>%n Unable to create autorun link";
+       }
     }
 }