New /perl autoload command

10 files changed, 230 insertions, 200 deletions

diff --git a/po/fr.po b/po/fr.po
index 7abbfa10e..c7806f454 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: WeeChat 0.0.8-pre2\n"
 "Report-Msgid-Bugs-To: flashcode@flashtux.org\n"
-"POT-Creation-Date: 2004-09-12 19:30+0200\n"
+"POT-Creation-Date: 2004-09-13 21:42+0200\n"
 "PO-Revision-Date: 2004-08-08 20:47+0200\n"
 "Last-Translator: FlashCode <flashcode@flashtux.org>\n"
 "Language-Team: weechat-dev <weechat-dev@nongnu.org>\n"
@@ -1172,7 +1172,7 @@ msgstr "%s utilisateur non trouvé pour la commande \"%s\"\n"
 msgid "%s cannot create new private window \"%s\"\n"
 msgstr "%s impossible de créer la fenêtre privée \"%s\"\n"
 
-#: src/irc/irc-send.c:622 src/common/command.c:1176
+#: src/irc/irc-send.c:622 src/common/command.c:1178
 #, c-format
 msgid "%s wrong argument count for \"%s\" command\n"
 msgstr "%s nombre de paramètres erroné pour la commande \"%s\"\n"
@@ -1655,12 +1655,17 @@ msgstr "Erreur Perl: trop de valeurs de \"%s\" (%d). Attendue: 1.\n"
 msgid "loading Perl script \"%s\"\n"
 msgstr "chargement du script Perl \"%s\"\n"
 
-#: src/plugins/perl/wee-perl.c:531
+#: src/plugins/perl/wee-perl.c:484
+#, c-format
+msgid "Loading Perl script \"%s\"\n"
+msgstr "Chargement du script Perl \"%s\"\n"
+
+#: src/plugins/perl/wee-perl.c:533
 #, c-format
 msgid "unloading Perl script \"%s\"\n"
 msgstr "déchargement du script Perl \"%s\"\n"
 
-#: src/plugins/perl/wee-perl.c:548
+#: src/plugins/perl/wee-perl.c:550
 msgid "unloading all Perl scripts...\n"
 msgstr "déchargement de tous les scripts Perl...\n"
 
@@ -1811,8 +1816,8 @@ msgid "list/load/unload Perl scripts"
 msgstr "liste/charge/décharge des scripts Perl"
 
 #: src/common/command.c:69
-msgid "[load filename] | [unload]"
-msgstr "[load fichier] | [unload]"
+msgid "[load filename] | [autoload] | [unload]"
+msgstr "[load fichier] | [autoload] | [unload]"
 
 #: src/common/command.c:70
 msgid ""
@@ -2101,16 +2106,16 @@ msgstr "Commandes Perl :\n"
 msgid "  Command /%s => Perl(%s)\n"
 msgstr "  Commande /%s => Perl(%s)\n"
 
-#: src/common/command.c:1145
+#: src/common/command.c:1147
 msgid "Perl scripts unloaded\n"
 msgstr "Scripts Perl déchargés\n"
 
-#: src/common/command.c:1170 src/common/command.c:1708
+#: src/common/command.c:1172 src/common/command.c:1710
 #, c-format
 msgid "%s unknown option for \"%s\" command\n"
 msgstr "%s option inconnue pour la commande \"%s\"\n"
 
-#: src/common/command.c:1181
+#: src/common/command.c:1183
 msgid ""
 "WeeChat was build without Perl support.\n"
 "Please rebuild WeeChat with \"--enable-perl\" option for ./configure script\n"
@@ -2119,188 +2124,188 @@ msgstr ""
 "Merci de reconstruire WeeChat avec l'option \"--enable-perl\" pour le "
 "script ./configure\n"
 
-#: src/common/command.c:1225
+#: src/common/command.c:1227
 msgid "Server: "
 msgstr "Serveur: "
 
-#: src/common/command.c:1236
+#: src/common/command.c:1238
 msgid "connected"
 msgstr "connecté"
 
-#: src/common/command.c:1236
+#: src/common/command.c:1238
 msgid "not connected"
 msgstr "non connecté"
 
-#: src/common/command.c:1243
+#: src/common/command.c:1245
 #, c-format
 msgid "  Autoconnect: %s%s\n"
 msgstr "  Autoconnect: %s%s\n"
 
-#: src/common/command.c:1244
+#: src/common/command.c:1246
 msgid "yes"
 msgstr "oui"
 
-#: src/common/command.c:1244
+#: src/common/command.c:1246
 msgid "no"
 msgstr "non"
 
-#: src/common/command.c:1246
+#: src/common/command.c:1248
 msgid " (temporary server, will not be saved)"
 msgstr " (serveur temporaire, ne sera pas sauvé)"
 
-#: src/common/command.c:1251
+#: src/common/command.c:1253
 #, c-format
 msgid "  Hostname   : %s\n"
 msgstr "  Nom/IP     : %s\n"
 
-#: src/common/command.c:1256
+#: src/common/command.c:1258
 #, c-format
 msgid "  Port       : %d\n"
 msgstr "  Port       : %d\n"
 
-#: src/common/command.c:1262
+#: src/common/command.c:1264
 msgid "  Password   : (hidden)\n"
 msgstr "  Mot passe  : (caché)\n"
 
-#: src/common/command.c:1266
+#: src/common/command.c:1268
 msgid "  Password   : (none)\n"
 msgstr "  Mot passe  : (aucun)\n"
 
-#: src/common/command.c:1270
+#: src/common/command.c:1272
 #, c-format
 msgid "  Nicks      : %s"
 msgstr "  Pseudos    : %s"
 
-#: src/common/command.c:1287
+#: src/common/command.c:1289
 #, c-format
 msgid "  Username   : %s\n"
 msgstr "  Nom utilis.: %s\n"
 
-#: src/common/command.c:1292
+#: src/common/command.c:1294
 #, c-format
 msgid "  Realname   : %s\n"
 msgstr "  Nom réel   : %s\n"
 
-#: src/common/command.c:1298
+#: src/common/command.c:1300
 #, c-format
 msgid "  Command    : %s\n"
 msgstr "  Commande   : %s\n"
 
-#: src/common/command.c:1303
+#: src/common/command.c:1305
 msgid "  Command    : (none)\n"
 msgstr "  Commande   : (aucune)\n"
 
-#: src/common/command.c:1308
+#: src/common/command.c:1310
 #, c-format
 msgid "  Auto-join  : %s\n"
 msgstr "  Auto-join  : %s\n"
 
-#: src/common/command.c:1313
+#: src/common/command.c:1315
 msgid "  Auto-join  : (none)\n"
 msgstr "  Auto-join  : (aucun)\n"
 
-#: src/common/command.c:1317
+#: src/common/command.c:1319
 msgid "No server.\n"
 msgstr "Pas de serveur.\n"
 
-#: src/common/command.c:1326
+#: src/common/command.c:1328
 #, c-format
 msgid "%s missing servername for \"%s\" command\n"
 msgstr "%s il manque le nom du serveur pour la commande \"%s\"\n"
 
-#: src/common/command.c:1332
+#: src/common/command.c:1334
 #, c-format
 msgid "%s too much arguments for \"%s\" command, ignoring arguments\n"
 msgstr "%s trop de paramètres pour la commande \"%s\", paramètres ignorés\n"
 
-#: src/common/command.c:1349
+#: src/common/command.c:1351
 #, c-format
 msgid "%s server \"%s\" not found for \"%s\" command\n"
 msgstr "%s le serveur \"%s\" n'existe pas pour la commande \"%s\"\n"
 
-#: src/common/command.c:1355 src/common/command.c:1486
+#: src/common/command.c:1357 src/common/command.c:1488
 msgid "Server"
 msgstr "Serveur"
 
-#: src/common/command.c:1358
+#: src/common/command.c:1360
 msgid "has been deleted\n"
 msgstr "a été supprimé\n"
 
-#: src/common/command.c:1372
+#: src/common/command.c:1374
 #, c-format
 msgid "%s missing parameters for \"%s\" command\n"
 msgstr "%s paramètres manquants pour la commande \"%s\"\n"
 
-#: src/common/command.c:1381
+#: src/common/command.c:1383
 #, c-format
 msgid "%s server \"%s\" already exists, can't create it!\n"
 msgstr "%s le serveur \"%s\" existe déjà, impossible de le créer !\n"
 
-#: src/common/command.c:1405 src/common/command.c:1431
-#: src/common/command.c:1443 src/common/command.c:1467
+#: src/common/command.c:1407 src/common/command.c:1433
+#: src/common/command.c:1445 src/common/command.c:1469
 #, c-format
 msgid "%s missing password for \"%s\" parameter\n"
 msgstr "%s mot de passe manquant pour le paramètre \"%s\"\n"
 
-#: src/common/command.c:1417
+#: src/common/command.c:1419
 #, c-format
 msgid "%s missing nick(s) for \"%s\" parameter\n"
 msgstr "%s pseudo(s) manquant(s) pour le paramètre \"%s\"\n"
 
-#: src/common/command.c:1455
+#: src/common/command.c:1457
 #, c-format
 msgid "%s missing command for \"%s\" parameter\n"
 msgstr "%s commande manquante pour le paramètre \"%s\"\n"
 
-#: src/common/command.c:1489
+#: src/common/command.c:1491
 msgid "created\n"
 msgstr "créé\n"
 
-#: src/common/command.c:1494
+#: src/common/command.c:1496
 #, c-format
 msgid "%s unable to create server\n"
 msgstr "%s impossible de créer le serveur\n"
 
-#: src/common/command.c:1548
+#: src/common/command.c:1550
 #, c-format
 msgid "%s option \"%s\" can not be changed while WeeChat is running\n"
 msgstr "%s l'option \"%s\" ne peut pas être changée lorsque WeeChat tourne\n"
 
-#: src/common/command.c:1560
+#: src/common/command.c:1562
 #, c-format
 msgid "%s incorrect value for option \"%s\"\n"
 msgstr "%s valeur incorrecte pour l'option \"%s\"\n"
 
-#: src/common/command.c:1566
+#: src/common/command.c:1568
 #, c-format
 msgid "%s config option \"%s\" not found\n"
 msgstr "%s option de configuration \"%s\" non trouvée\n"
 
-#: src/common/command.c:1616
+#: src/common/command.c:1618
 msgid "(unknown)"
 msgstr "(inconnu)"
 
-#: src/common/command.c:1636 src/common/command.c:1639
+#: src/common/command.c:1638 src/common/command.c:1641
 #, c-format
 msgid "No config option found with \"%s\"\n"
 msgstr "Aucune option de configuration trouvée avec \"%s\"\n"
 
-#: src/common/command.c:1644
+#: src/common/command.c:1646
 #, c-format
 msgid "%d config option(s) found with \"%s\"\n"
 msgstr "%d option(s) de configuration trouvées avec \"%s\"\n"
 
-#: src/common/command.c:1647
+#: src/common/command.c:1649
 #, c-format
 msgid "%d config option(s) found\n"
 msgstr "%d option(s) de configuration trouvées\n"
 
-#: src/common/command.c:1667
+#: src/common/command.c:1669
 #, c-format
 msgid "%s alias or command \"%s\" not found\n"
 msgstr "%s alias ou commande \"%s\" non trouvé\n"
 
-#: src/common/command.c:1676
+#: src/common/command.c:1678
 #, c-format
 msgid "Alias \"%s\" removed\n"
 msgstr "Alias \"%s\" supprimé\n"
diff --git a/po/weechat.pot b/po/weechat.pot
index 80615da92..48e132e52 100644
--- a/po/weechat.pot
+++ b/po/weechat.pot
@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: PACKAGE VERSION\n"
 "Report-Msgid-Bugs-To: flashcode@flashtux.org\n"
-"POT-Creation-Date: 2004-09-12 19:30+0200\n"
+"POT-Creation-Date: 2004-09-13 21:42+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -1078,7 +1078,7 @@ msgstr ""
 msgid "%s cannot create new private window \"%s\"\n"
 msgstr ""
 
-#: src/irc/irc-send.c:622 src/common/command.c:1176
+#: src/irc/irc-send.c:622 src/common/command.c:1178
 #, c-format
 msgid "%s wrong argument count for \"%s\" command\n"
 msgstr ""
@@ -1550,12 +1550,17 @@ msgstr ""
 msgid "loading Perl script \"%s\"\n"
 msgstr ""
 
-#: src/plugins/perl/wee-perl.c:531
+#: src/plugins/perl/wee-perl.c:484
+#, c-format
+msgid "Loading Perl script \"%s\"\n"
+msgstr ""
+
+#: src/plugins/perl/wee-perl.c:533
 #, c-format
 msgid "unloading Perl script \"%s\"\n"
 msgstr ""
 
-#: src/plugins/perl/wee-perl.c:548
+#: src/plugins/perl/wee-perl.c:550
 msgid "unloading all Perl scripts...\n"
 msgstr ""
 
@@ -1696,7 +1701,7 @@ msgid "list/load/unload Perl scripts"
 msgstr ""
 
 #: src/common/command.c:69
-msgid "[load filename] | [unload]"
+msgid "[load filename] | [autoload] | [unload]"
 msgstr ""
 
 #: src/common/command.c:70
@@ -1956,203 +1961,203 @@ msgstr ""
 msgid "  Command /%s => Perl(%s)\n"
 msgstr ""
 
-#: src/common/command.c:1145
+#: src/common/command.c:1147
 msgid "Perl scripts unloaded\n"
 msgstr ""
 
-#: src/common/command.c:1170 src/common/command.c:1708
+#: src/common/command.c:1172 src/common/command.c:1710
 #, c-format
 msgid "%s unknown option for \"%s\" command\n"
 msgstr ""
 
-#: src/common/command.c:1181
+#: src/common/command.c:1183
 msgid ""
 "WeeChat was build without Perl support.\n"
 "Please rebuild WeeChat with \"--enable-perl\" option for ./configure script\n"
 msgstr ""
 
-#: src/common/command.c:1225
+#: src/common/command.c:1227
 msgid "Server: "
 msgstr ""
 
-#: src/common/command.c:1236
+#: src/common/command.c:1238
 msgid "connected"
 msgstr ""
 
-#: src/common/command.c:1236
+#: src/common/command.c:1238
 msgid "not connected"
 msgstr ""
 
-#: src/common/command.c:1243
+#: src/common/command.c:1245
 #, c-format
 msgid "  Autoconnect: %s%s\n"
 msgstr ""
 
-#: src/common/command.c:1244
+#: src/common/command.c:1246
 msgid "yes"
 msgstr ""
 
-#: src/common/command.c:1244
+#: src/common/command.c:1246
 msgid "no"
 msgstr ""
 
-#: src/common/command.c:1246
+#: src/common/command.c:1248
 msgid " (temporary server, will not be saved)"
 msgstr ""
 
-#: src/common/command.c:1251
+#: src/common/command.c:1253
 #, c-format
 msgid "  Hostname   : %s\n"
 msgstr ""
 
-#: src/common/command.c:1256
+#: src/common/command.c:1258
 #, c-format
 msgid "  Port       : %d\n"
 msgstr ""
 
-#: src/common/command.c:1262
+#: src/common/command.c:1264
 msgid "  Password   : (hidden)\n"
 msgstr ""
 
-#: src/common/command.c:1266
+#: src/common/command.c:1268
 msgid "  Password   : (none)\n"
 msgstr ""
 
-#: src/common/command.c:1270
+#: src/common/command.c:1272
 #, c-format
 msgid "  Nicks      : %s"
 msgstr ""
 
-#: src/common/command.c:1287
+#: src/common/command.c:1289
 #, c-format
 msgid "  Username   : %s\n"
 msgstr ""
 
-#: src/common/command.c:1292
+#: src/common/command.c:1294
 #, c-format
 msgid "  Realname   : %s\n"
 msgstr ""
 
-#: src/common/command.c:1298
+#: src/common/command.c:1300
 #, c-format
 msgid "  Command    : %s\n"
 msgstr ""
 
-#: src/common/command.c:1303
+#: src/common/command.c:1305
 msgid "  Command    : (none)\n"
 msgstr ""
 
-#: src/common/command.c:1308
+#: src/common/command.c:1310
 #, c-format
 msgid "  Auto-join  : %s\n"
 msgstr ""
 
-#: src/common/command.c:1313
+#: src/common/command.c:1315
 msgid "  Auto-join  : (none)\n"
 msgstr ""
 
-#: src/common/command.c:1317
+#: src/common/command.c:1319
 msgid "No server.\n"
 msgstr ""
 
-#: src/common/command.c:1326
+#: src/common/command.c:1328
 #, c-format
 msgid "%s missing servername for \"%s\" command\n"
 msgstr ""
 
-#: src/common/command.c:1332
+#: src/common/command.c:1334
 #, c-format
 msgid "%s too much arguments for \"%s\" command, ignoring arguments\n"
 msgstr ""
 
-#: src/common/command.c:1349
+#: src/common/command.c:1351
 #, c-format
 msgid "%s server \"%s\" not found for \"%s\" command\n"
 msgstr ""
 
-#: src/common/command.c:1355 src/common/command.c:1486
+#: src/common/command.c:1357 src/common/command.c:1488
 msgid "Server"
 msgstr ""
 
-#: src/common/command.c:1358
+#: src/common/command.c:1360
 msgid "has been deleted\n"
 msgstr ""
 
-#: src/common/command.c:1372
+#: src/common/command.c:1374
 #, c-format
 msgid "%s missing parameters for \"%s\" command\n"
 msgstr ""
 
-#: src/common/command.c:1381
+#: src/common/command.c:1383
 #, c-format
 msgid "%s server \"%s\" already exists, can't create it!\n"
 msgstr ""
 
-#: src/common/command.c:1405 src/common/command.c:1431
-#: src/common/command.c:1443 src/common/command.c:1467
+#: src/common/command.c:1407 src/common/command.c:1433
+#: src/common/command.c:1445 src/common/command.c:1469
 #, c-format
 msgid "%s missing password for \"%s\" parameter\n"
 msgstr ""
 
-#: src/common/command.c:1417
+#: src/common/command.c:1419
 #, c-format
 msgid "%s missing nick(s) for \"%s\" parameter\n"
 msgstr ""
 
-#: src/common/command.c:1455
+#: src/common/command.c:1457
 #, c-format
 msgid "%s missing command for \"%s\" parameter\n"
 msgstr ""
 
-#: src/common/command.c:1489
+#: src/common/command.c:1491
 msgid "created\n"
 msgstr ""
 
-#: src/common/command.c:1494
+#: src/common/command.c:1496
 #, c-format
 msgid "%s unable to create server\n"
 msgstr ""
 
-#: src/common/command.c:1548
+#: src/common/command.c:1550
 #, c-format
 msgid "%s option \"%s\" can not be changed while WeeChat is running\n"
 msgstr ""
 
-#: src/common/command.c:1560
+#: src/common/command.c:1562
 #, c-format
 msgid "%s incorrect value for option \"%s\"\n"
 msgstr ""
 
-#: src/common/command.c:1566
+#: src/common/command.c:1568
 #, c-format
 msgid "%s config option \"%s\" not found\n"
 msgstr ""
 
-#: src/common/command.c:1616
+#: src/common/command.c:1618
 msgid "(unknown)"
 msgstr ""
 
-#: src/common/command.c:1636 src/common/command.c:1639
+#: src/common/command.c:1638 src/common/command.c:1641
 #, c-format
 msgid "No config option found with \"%s\"\n"
 msgstr ""
 
-#: src/common/command.c:1644
+#: src/common/command.c:1646
 #, c-format
 msgid "%d config option(s) found with \"%s\"\n"
 msgstr ""
 
-#: src/common/command.c:1647
+#: src/common/command.c:1649
 #, c-format
 msgid "%d config option(s) found\n"
 msgstr ""
 
-#: src/common/command.c:1667
+#: src/common/command.c:1669
 #, c-format
 msgid "%s alias or command \"%s\" not found\n"
 msgstr ""
 
-#: src/common/command.c:1676
+#: src/common/command.c:1678
 #, c-format
 msgid "Alias \"%s\" removed\n"
 msgstr ""
diff --git a/src/common/command.c b/src/common/command.c
index a5abbb0d8..bcd8b3031 100644
--- a/src/common/command.c
+++ b/src/common/command.c
@@ -66,7 +66,7 @@ t_weechat_command weechat_commands[] =
     N_("[command]"), N_("command: name of a WeeChat or IRC command"),
     0, 1, weechat_cmd_help, NULL },
   { "perl", N_("list/load/unload Perl scripts"),
-    N_("[load filename] | [unload]"),
+    N_("[load filename] | [autoload] | [unload]"),
     N_("filename: Perl script (file) to load\n"
     "Without argument, /perl command lists all loaded Perl scripts."),
     0, 2, weechat_cmd_perl, NULL },
@@ -1137,6 +1137,8 @@ weechat_cmd_perl (int argc, char **argv)
             
             break;
         case 1:
+            if (strcmp (argv[0], "autoload") == 0)
+                plugin_auto_load (PLUGIN_TYPE_PERL, "perl/autoload");
             if (strcmp (argv[0], "unload") == 0)
             {
                 /* unload all Perl scripts */
diff --git a/src/plugins/perl/wee-perl.c b/src/plugins/perl/wee-perl.c
index 12c0051c2..775b77b9b 100644
--- a/src/plugins/perl/wee-perl.c
+++ b/src/plugins/perl/wee-perl.c
@@ -480,6 +480,8 @@ wee_perl_load (char *filename)
 {
     /* execute Perl script */
     wee_log_printf (_("loading Perl script \"%s\"\n"), filename);
+    irc_display_prefix (NULL, PREFIX_PLUGIN);
+    gui_printf (NULL, _("Loading Perl script \"%s\"\n"), filename);
     return wee_perl_exec ("wee_perl_load_eval_file", filename);
 }
 
diff --git a/src/plugins/plugins.h b/src/plugins/plugins.h
index ac073d4fe..db687dcc6 100644
--- a/src/plugins/plugins.h
+++ b/src/plugins/plugins.h
@@ -59,6 +59,7 @@ extern t_plugin_handler *last_plugin_cmd_handler;
 extern t_plugin_script *perl_scripts;
 #endif
 
+extern void plugin_auto_load (int, char *);
 extern void plugin_init ();
 extern void plugin_load (int, char *);
 extern void plugin_unload (int, /*@null@*/ char *);
diff --git a/weechat/po/fr.po b/weechat/po/fr.po
index 7abbfa10e..c7806f454 100644
--- a/weechat/po/fr.po
+++ b/weechat/po/fr.po
@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: WeeChat 0.0.8-pre2\n"
 "Report-Msgid-Bugs-To: flashcode@flashtux.org\n"
-"POT-Creation-Date: 2004-09-12 19:30+0200\n"
+"POT-Creation-Date: 2004-09-13 21:42+0200\n"
 "PO-Revision-Date: 2004-08-08 20:47+0200\n"
 "Last-Translator: FlashCode <flashcode@flashtux.org>\n"
 "Language-Team: weechat-dev <weechat-dev@nongnu.org>\n"
@@ -1172,7 +1172,7 @@ msgstr "%s utilisateur non trouvé pour la commande \"%s\"\n"
 msgid "%s cannot create new private window \"%s\"\n"
 msgstr "%s impossible de créer la fenêtre privée \"%s\"\n"
 
-#: src/irc/irc-send.c:622 src/common/command.c:1176
+#: src/irc/irc-send.c:622 src/common/command.c:1178
 #, c-format
 msgid "%s wrong argument count for \"%s\" command\n"
 msgstr "%s nombre de paramètres erroné pour la commande \"%s\"\n"
@@ -1655,12 +1655,17 @@ msgstr "Erreur Perl: trop de valeurs de \"%s\" (%d). Attendue: 1.\n"
 msgid "loading Perl script \"%s\"\n"
 msgstr "chargement du script Perl \"%s\"\n"
 
-#: src/plugins/perl/wee-perl.c:531
+#: src/plugins/perl/wee-perl.c:484
+#, c-format
+msgid "Loading Perl script \"%s\"\n"
+msgstr "Chargement du script Perl \"%s\"\n"
+
+#: src/plugins/perl/wee-perl.c:533
 #, c-format
 msgid "unloading Perl script \"%s\"\n"
 msgstr "déchargement du script Perl \"%s\"\n"
 
-#: src/plugins/perl/wee-perl.c:548
+#: src/plugins/perl/wee-perl.c:550
 msgid "unloading all Perl scripts...\n"
 msgstr "déchargement de tous les scripts Perl...\n"
 
@@ -1811,8 +1816,8 @@ msgid "list/load/unload Perl scripts"
 msgstr "liste/charge/décharge des scripts Perl"
 
 #: src/common/command.c:69
-msgid "[load filename] | [unload]"
-msgstr "[load fichier] | [unload]"
+msgid "[load filename] | [autoload] | [unload]"
+msgstr "[load fichier] | [autoload] | [unload]"
 
 #: src/common/command.c:70
 msgid ""
@@ -2101,16 +2106,16 @@ msgstr "Commandes Perl :\n"
 msgid "  Command /%s => Perl(%s)\n"
 msgstr "  Commande /%s => Perl(%s)\n"
 
-#: src/common/command.c:1145
+#: src/common/command.c:1147
 msgid "Perl scripts unloaded\n"
 msgstr "Scripts Perl déchargés\n"
 
-#: src/common/command.c:1170 src/common/command.c:1708
+#: src/common/command.c:1172 src/common/command.c:1710
 #, c-format
 msgid "%s unknown option for \"%s\" command\n"
 msgstr "%s option inconnue pour la commande \"%s\"\n"
 
-#: src/common/command.c:1181
+#: src/common/command.c:1183
 msgid ""
 "WeeChat was build without Perl support.\n"
 "Please rebuild WeeChat with \"--enable-perl\" option for ./configure script\n"
@@ -2119,188 +2124,188 @@ msgstr ""
 "Merci de reconstruire WeeChat avec l'option \"--enable-perl\" pour le "
 "script ./configure\n"
 
-#: src/common/command.c:1225
+#: src/common/command.c:1227
 msgid "Server: "
 msgstr "Serveur: "
 
-#: src/common/command.c:1236
+#: src/common/command.c:1238
 msgid "connected"
 msgstr "connecté"
 
-#: src/common/command.c:1236
+#: src/common/command.c:1238
 msgid "not connected"
 msgstr "non connecté"
 
-#: src/common/command.c:1243
+#: src/common/command.c:1245
 #, c-format
 msgid "  Autoconnect: %s%s\n"
 msgstr "  Autoconnect: %s%s\n"
 
-#: src/common/command.c:1244
+#: src/common/command.c:1246
 msgid "yes"
 msgstr "oui"
 
-#: src/common/command.c:1244
+#: src/common/command.c:1246
 msgid "no"
 msgstr "non"
 
-#: src/common/command.c:1246
+#: src/common/command.c:1248
 msgid " (temporary server, will not be saved)"
 msgstr " (serveur temporaire, ne sera pas sauvé)"
 
-#: src/common/command.c:1251
+#: src/common/command.c:1253
 #, c-format
 msgid "  Hostname   : %s\n"
 msgstr "  Nom/IP     : %s\n"
 
-#: src/common/command.c:1256
+#: src/common/command.c:1258
 #, c-format
 msgid "  Port       : %d\n"
 msgstr "  Port       : %d\n"
 
-#: src/common/command.c:1262
+#: src/common/command.c:1264
 msgid "  Password   : (hidden)\n"
 msgstr "  Mot passe  : (caché)\n"
 
-#: src/common/command.c:1266
+#: src/common/command.c:1268
 msgid "  Password   : (none)\n"
 msgstr "  Mot passe  : (aucun)\n"
 
-#: src/common/command.c:1270
+#: src/common/command.c:1272
 #, c-format
 msgid "  Nicks      : %s"
 msgstr "  Pseudos    : %s"
 
-#: src/common/command.c:1287
+#: src/common/command.c:1289
 #, c-format
 msgid "  Username   : %s\n"
 msgstr "  Nom utilis.: %s\n"
 
-#: src/common/command.c:1292
+#: src/common/command.c:1294
 #, c-format
 msgid "  Realname   : %s\n"
 msgstr "  Nom réel   : %s\n"
 
-#: src/common/command.c:1298
+#: src/common/command.c:1300
 #, c-format
 msgid "  Command    : %s\n"
 msgstr "  Commande   : %s\n"
 
-#: src/common/command.c:1303
+#: src/common/command.c:1305
 msgid "  Command    : (none)\n"
 msgstr "  Commande   : (aucune)\n"
 
-#: src/common/command.c:1308
+#: src/common/command.c:1310
 #, c-format
 msgid "  Auto-join  : %s\n"
 msgstr "  Auto-join  : %s\n"
 
-#: src/common/command.c:1313
+#: src/common/command.c:1315
 msgid "  Auto-join  : (none)\n"
 msgstr "  Auto-join  : (aucun)\n"
 
-#: src/common/command.c:1317
+#: src/common/command.c:1319
 msgid "No server.\n"
 msgstr "Pas de serveur.\n"
 
-#: src/common/command.c:1326
+#: src/common/command.c:1328
 #, c-format
 msgid "%s missing servername for \"%s\" command\n"
 msgstr "%s il manque le nom du serveur pour la commande \"%s\"\n"
 
-#: src/common/command.c:1332
+#: src/common/command.c:1334
 #, c-format
 msgid "%s too much arguments for \"%s\" command, ignoring arguments\n"
 msgstr "%s trop de paramètres pour la commande \"%s\", paramètres ignorés\n"
 
-#: src/common/command.c:1349
+#: src/common/command.c:1351
 #, c-format
 msgid "%s server \"%s\" not found for \"%s\" command\n"
 msgstr "%s le serveur \"%s\" n'existe pas pour la commande \"%s\"\n"
 
-#: src/common/command.c:1355 src/common/command.c:1486
+#: src/common/command.c:1357 src/common/command.c:1488
 msgid "Server"
 msgstr "Serveur"
 
-#: src/common/command.c:1358
+#: src/common/command.c:1360
 msgid "has been deleted\n"
 msgstr "a été supprimé\n"
 
-#: src/common/command.c:1372
+#: src/common/command.c:1374
 #, c-format
 msgid "%s missing parameters for \"%s\" command\n"
 msgstr "%s paramètres manquants pour la commande \"%s\"\n"
 
-#: src/common/command.c:1381
+#: src/common/command.c:1383
 #, c-format
 msgid "%s server \"%s\" already exists, can't create it!\n"
 msgstr "%s le serveur \"%s\" existe déjà, impossible de le créer !\n"
 
-#: src/common/command.c:1405 src/common/command.c:1431
-#: src/common/command.c:1443 src/common/command.c:1467
+#: src/common/command.c:1407 src/common/command.c:1433
+#: src/common/command.c:1445 src/common/command.c:1469
 #, c-format
 msgid "%s missing password for \"%s\" parameter\n"
 msgstr "%s mot de passe manquant pour le paramètre \"%s\"\n"
 
-#: src/common/command.c:1417
+#: src/common/command.c:1419
 #, c-format
 msgid "%s missing nick(s) for \"%s\" parameter\n"
 msgstr "%s pseudo(s) manquant(s) pour le paramètre \"%s\"\n"
 
-#: src/common/command.c:1455
+#: src/common/command.c:1457
 #, c-format
 msgid "%s missing command for \"%s\" parameter\n"
 msgstr "%s commande manquante pour le paramètre \"%s\"\n"
 
-#: src/common/command.c:1489
+#: src/common/command.c:1491
 msgid "created\n"
 msgstr "créé\n"
 
-#: src/common/command.c:1494
+#: src/common/command.c:1496
 #, c-format
 msgid "%s unable to create server\n"
 msgstr "%s impossible de créer le serveur\n"
 
-#: src/common/command.c:1548
+#: src/common/command.c:1550
 #, c-format
 msgid "%s option \"%s\" can not be changed while WeeChat is running\n"
 msgstr "%s l'option \"%s\" ne peut pas être changée lorsque WeeChat tourne\n"
 
-#: src/common/command.c:1560
+#: src/common/command.c:1562
 #, c-format
 msgid "%s incorrect value for option \"%s\"\n"
 msgstr "%s valeur incorrecte pour l'option \"%s\"\n"
 
-#: src/common/command.c:1566
+#: src/common/command.c:1568
 #, c-format
 msgid "%s config option \"%s\" not found\n"
 msgstr "%s option de configuration \"%s\" non trouvée\n"
 
-#: src/common/command.c:1616
+#: src/common/command.c:1618
 msgid "(unknown)"
 msgstr "(inconnu)"
 
-#: src/common/command.c:1636 src/common/command.c:1639
+#: src/common/command.c:1638 src/common/command.c:1641
 #, c-format
 msgid "No config option found with \"%s\"\n"
 msgstr "Aucune option de configuration trouvée avec \"%s\"\n"
 
-#: src/common/command.c:1644
+#: src/common/command.c:1646
 #, c-format
 msgid "%d config option(s) found with \"%s\"\n"
 msgstr "%d option(s) de configuration trouvées avec \"%s\"\n"
 
-#: src/common/command.c:1647
+#: src/common/command.c:1649
 #, c-format
 msgid "%d config option(s) found\n"
 msgstr "%d option(s) de configuration trouvées\n"
 
-#: src/common/command.c:1667
+#: src/common/command.c:1669
 #, c-format
 msgid "%s alias or command \"%s\" not found\n"
 msgstr "%s alias ou commande \"%s\" non trouvé\n"
 
-#: src/common/command.c:1676
+#: src/common/command.c:1678
 #, c-format
 msgid "Alias \"%s\" removed\n"
 msgstr "Alias \"%s\" supprimé\n"
diff --git a/weechat/po/weechat.pot b/weechat/po/weechat.pot
index 80615da92..48e132e52 100644
--- a/weechat/po/weechat.pot
+++ b/weechat/po/weechat.pot
@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: PACKAGE VERSION\n"
 "Report-Msgid-Bugs-To: flashcode@flashtux.org\n"
-"POT-Creation-Date: 2004-09-12 19:30+0200\n"
+"POT-Creation-Date: 2004-09-13 21:42+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -1078,7 +1078,7 @@ msgstr ""
 msgid "%s cannot create new private window \"%s\"\n"
 msgstr ""
 
-#: src/irc/irc-send.c:622 src/common/command.c:1176
+#: src/irc/irc-send.c:622 src/common/command.c:1178
 #, c-format
 msgid "%s wrong argument count for \"%s\" command\n"
 msgstr ""
@@ -1550,12 +1550,17 @@ msgstr ""
 msgid "loading Perl script \"%s\"\n"
 msgstr ""
 
-#: src/plugins/perl/wee-perl.c:531
+#: src/plugins/perl/wee-perl.c:484
+#, c-format
+msgid "Loading Perl script \"%s\"\n"
+msgstr ""
+
+#: src/plugins/perl/wee-perl.c:533
 #, c-format
 msgid "unloading Perl script \"%s\"\n"
 msgstr ""
 
-#: src/plugins/perl/wee-perl.c:548
+#: src/plugins/perl/wee-perl.c:550
 msgid "unloading all Perl scripts...\n"
 msgstr ""
 
@@ -1696,7 +1701,7 @@ msgid "list/load/unload Perl scripts"
 msgstr ""
 
 #: src/common/command.c:69
-msgid "[load filename] | [unload]"
+msgid "[load filename] | [autoload] | [unload]"
 msgstr ""
 
 #: src/common/command.c:70
@@ -1956,203 +1961,203 @@ msgstr ""
 msgid "  Command /%s => Perl(%s)\n"
 msgstr ""
 
-#: src/common/command.c:1145
+#: src/common/command.c:1147
 msgid "Perl scripts unloaded\n"
 msgstr ""
 
-#: src/common/command.c:1170 src/common/command.c:1708
+#: src/common/command.c:1172 src/common/command.c:1710
 #, c-format
 msgid "%s unknown option for \"%s\" command\n"
 msgstr ""
 
-#: src/common/command.c:1181
+#: src/common/command.c:1183
 msgid ""
 "WeeChat was build without Perl support.\n"
 "Please rebuild WeeChat with \"--enable-perl\" option for ./configure script\n"
 msgstr ""
 
-#: src/common/command.c:1225
+#: src/common/command.c:1227
 msgid "Server: "
 msgstr ""
 
-#: src/common/command.c:1236
+#: src/common/command.c:1238
 msgid "connected"
 msgstr ""
 
-#: src/common/command.c:1236
+#: src/common/command.c:1238
 msgid "not connected"
 msgstr ""
 
-#: src/common/command.c:1243
+#: src/common/command.c:1245
 #, c-format
 msgid "  Autoconnect: %s%s\n"
 msgstr ""
 
-#: src/common/command.c:1244
+#: src/common/command.c:1246
 msgid "yes"
 msgstr ""
 
-#: src/common/command.c:1244
+#: src/common/command.c:1246
 msgid "no"
 msgstr ""
 
-#: src/common/command.c:1246
+#: src/common/command.c:1248
 msgid " (temporary server, will not be saved)"
 msgstr ""
 
-#: src/common/command.c:1251
+#: src/common/command.c:1253
 #, c-format
 msgid "  Hostname   : %s\n"
 msgstr ""
 
-#: src/common/command.c:1256
+#: src/common/command.c:1258
 #, c-format
 msgid "  Port       : %d\n"
 msgstr ""
 
-#: src/common/command.c:1262
+#: src/common/command.c:1264
 msgid "  Password   : (hidden)\n"
 msgstr ""
 
-#: src/common/command.c:1266
+#: src/common/command.c:1268
 msgid "  Password   : (none)\n"
 msgstr ""
 
-#: src/common/command.c:1270
+#: src/common/command.c:1272
 #, c-format
 msgid "  Nicks      : %s"
 msgstr ""
 
-#: src/common/command.c:1287
+#: src/common/command.c:1289
 #, c-format
 msgid "  Username   : %s\n"
 msgstr ""
 
-#: src/common/command.c:1292
+#: src/common/command.c:1294
 #, c-format
 msgid "  Realname   : %s\n"
 msgstr ""
 
-#: src/common/command.c:1298
+#: src/common/command.c:1300
 #, c-format
 msgid "  Command    : %s\n"
 msgstr ""
 
-#: src/common/command.c:1303
+#: src/common/command.c:1305
 msgid "  Command    : (none)\n"
 msgstr ""
 
-#: src/common/command.c:1308
+#: src/common/command.c:1310
 #, c-format
 msgid "  Auto-join  : %s\n"
 msgstr ""
 
-#: src/common/command.c:1313
+#: src/common/command.c:1315
 msgid "  Auto-join  : (none)\n"
 msgstr ""
 
-#: src/common/command.c:1317
+#: src/common/command.c:1319
 msgid "No server.\n"
 msgstr ""
 
-#: src/common/command.c:1326
+#: src/common/command.c:1328
 #, c-format
 msgid "%s missing servername for \"%s\" command\n"
 msgstr ""
 
-#: src/common/command.c:1332
+#: src/common/command.c:1334
 #, c-format
 msgid "%s too much arguments for \"%s\" command, ignoring arguments\n"
 msgstr ""
 
-#: src/common/command.c:1349
+#: src/common/command.c:1351
 #, c-format
 msgid "%s server \"%s\" not found for \"%s\" command\n"
 msgstr ""
 
-#: src/common/command.c:1355 src/common/command.c:1486
+#: src/common/command.c:1357 src/common/command.c:1488
 msgid "Server"
 msgstr ""
 
-#: src/common/command.c:1358
+#: src/common/command.c:1360
 msgid "has been deleted\n"
 msgstr ""
 
-#: src/common/command.c:1372
+#: src/common/command.c:1374
 #, c-format
 msgid "%s missing parameters for \"%s\" command\n"
 msgstr ""
 
-#: src/common/command.c:1381
+#: src/common/command.c:1383
 #, c-format
 msgid "%s server \"%s\" already exists, can't create it!\n"
 msgstr ""
 
-#: src/common/command.c:1405 src/common/command.c:1431
-#: src/common/command.c:1443 src/common/command.c:1467
+#: src/common/command.c:1407 src/common/command.c:1433
+#: src/common/command.c:1445 src/common/command.c:1469
 #, c-format
 msgid "%s missing password for \"%s\" parameter\n"
 msgstr ""
 
-#: src/common/command.c:1417
+#: src/common/command.c:1419
 #, c-format
 msgid "%s missing nick(s) for \"%s\" parameter\n"
 msgstr ""
 
-#: src/common/command.c:1455
+#: src/common/command.c:1457
 #, c-format
 msgid "%s missing command for \"%s\" parameter\n"
 msgstr ""
 
-#: src/common/command.c:1489
+#: src/common/command.c:1491
 msgid "created\n"
 msgstr ""
 
-#: src/common/command.c:1494
+#: src/common/command.c:1496
 #, c-format
 msgid "%s unable to create server\n"
 msgstr ""
 
-#: src/common/command.c:1548
+#: src/common/command.c:1550
 #, c-format
 msgid "%s option \"%s\" can not be changed while WeeChat is running\n"
 msgstr ""
 
-#: src/common/command.c:1560
+#: src/common/command.c:1562
 #, c-format
 msgid "%s incorrect value for option \"%s\"\n"
 msgstr ""
 
-#: src/common/command.c:1566
+#: src/common/command.c:1568
 #, c-format
 msgid "%s config option \"%s\" not found\n"
 msgstr ""
 
-#: src/common/command.c:1616
+#: src/common/command.c:1618
 msgid "(unknown)"
 msgstr ""
 
-#: src/common/command.c:1636 src/common/command.c:1639
+#: src/common/command.c:1638 src/common/command.c:1641
 #, c-format
 msgid "No config option found with \"%s\"\n"
 msgstr ""
 
-#: src/common/command.c:1644
+#: src/common/command.c:1646
 #, c-format
 msgid "%d config option(s) found with \"%s\"\n"
 msgstr ""
 
-#: src/common/command.c:1647
+#: src/common/command.c:1649
 #, c-format
 msgid "%d config option(s) found\n"
 msgstr ""
 
-#: src/common/command.c:1667
+#: src/common/command.c:1669
 #, c-format
 msgid "%s alias or command \"%s\" not found\n"
 msgstr ""
 
-#: src/common/command.c:1676
+#: src/common/command.c:1678
 #, c-format
 msgid "Alias \"%s\" removed\n"
 msgstr ""
diff --git a/weechat/src/common/command.c b/weechat/src/common/command.c
index a5abbb0d8..bcd8b3031 100644
--- a/weechat/src/common/command.c
+++ b/weechat/src/common/command.c
@@ -66,7 +66,7 @@ t_weechat_command weechat_commands[] =
     N_("[command]"), N_("command: name of a WeeChat or IRC command"),
     0, 1, weechat_cmd_help, NULL },
   { "perl", N_("list/load/unload Perl scripts"),
-    N_("[load filename] | [unload]"),
+    N_("[load filename] | [autoload] | [unload]"),
     N_("filename: Perl script (file) to load\n"
     "Without argument, /perl command lists all loaded Perl scripts."),
     0, 2, weechat_cmd_perl, NULL },
@@ -1137,6 +1137,8 @@ weechat_cmd_perl (int argc, char **argv)
             
             break;
         case 1:
+            if (strcmp (argv[0], "autoload") == 0)
+                plugin_auto_load (PLUGIN_TYPE_PERL, "perl/autoload");
             if (strcmp (argv[0], "unload") == 0)
             {
                 /* unload all Perl scripts */
diff --git a/weechat/src/plugins/perl/wee-perl.c b/weechat/src/plugins/perl/wee-perl.c
index 12c0051c2..775b77b9b 100644
--- a/weechat/src/plugins/perl/wee-perl.c
+++ b/weechat/src/plugins/perl/wee-perl.c
@@ -480,6 +480,8 @@ wee_perl_load (char *filename)
 {
     /* execute Perl script */
     wee_log_printf (_("loading Perl script \"%s\"\n"), filename);
+    irc_display_prefix (NULL, PREFIX_PLUGIN);
+    gui_printf (NULL, _("Loading Perl script \"%s\"\n"), filename);
     return wee_perl_exec ("wee_perl_load_eval_file", filename);
 }
 
diff --git a/weechat/src/plugins/plugins.h b/weechat/src/plugins/plugins.h
index ac073d4fe..db687dcc6 100644
--- a/weechat/src/plugins/plugins.h
+++ b/weechat/src/plugins/plugins.h
@@ -59,6 +59,7 @@ extern t_plugin_handler *last_plugin_cmd_handler;
 extern t_plugin_script *perl_scripts;
 #endif
 
+extern void plugin_auto_load (int, char *);
 extern void plugin_init ();
 extern void plugin_load (int, char *);
 extern void plugin_unload (int, /*@null@*/ char *);