#!/usr/bin/perl # # REF: resoouploadconf.pl # ResooSite v.0.9.5.3 -(p)Resoo 2002-2004 # (c)2004 - pascal blain / GNU GPL - General Public License # http://www.resoo.com/resoosite # pascal@resoo.org # # inspiré par psupload script #################################################################### # Configuration utilisateur # les répertoires ouverts au téléchargement # écrase le tableau par defaut si une config utilisateur existe if ($myuprep_list) { @myupreplist = split(/\,/, $myuprep_list); # découpe la liste en utilisant les points } # sinon utilise la config par défaut else { @myupreplist = (&listage_rep("../$dir_rep","$dir_rep"),&listage_rep("$dir_img","$dir_i")); #@myupreplist = qw~ #doc #img/cadre #img/images #img/jour #~; } # le chemin absolu du répertoire de destination des fichiers. # par ex: /var/www/html/images # ne pas terminer le chemin par un slash # CHMOD 777 /var/www/html/images (permission en écriture) $urldir = "$domainurl/$myuprep"; # URL absolue du même répertoire # par ex: http://votreserveur.com/images/ $folder = "$server/$dir/$myuprep/"; # si le script est appelé directement (sans paramètre) # 0 : affiche un message d'erreur # x : affiche un formulaire de téléchargement (ou x est le nombre de champs fichier) $printform = 3; # sécurité : # pour n'accepter les téléchargement que depuis un domaine précis # entrer ici ce nom de domaine (ou une partie du nom de domaine) # le laisser vide ("") pour accepter toutes les sources. $domain = ""; # lorsque le téléchargement à réussi, entrer l'URL de la page vers laquelle # le client est redirigé. # le laisser vide ("") pour avoir l'affichage du message par défaut. $redirect = ""; # si vous voulez être prévenus à chaque téléchargement, indiquez une adresse email # le laisser vide pour ne rien recevoir. #$notify = 'vous@votreserveur.com'; $notify = ''; # si vous donnez une valeur à $notify, vous devez indiquer le chemin pour accèder # à sendmail sur le serveur. (par ex : /usr/sbin/sendmail) $send_mail_path = "/usr/sbin/sendmail"; # 1 : le message par défaut après un téléchargement réussi (seulement si $redirect est vide) # listera les fichiers présent dans le répertoire de destination. # 0 : les fichiers ne seront pas listés. $print_contents = 0; # permettre l'écrasement de fichiers : 1 = oui, 0 = non (0 renommera les fichiers en # ajoutant un nombre à fin de leur nom). $overwrite = 1; # forcer le téléchargement des fichiers en minuscules # 1 = oui, 0 = non (ne rien changer) $lowercase = 1; # change l'extension .jpeg en .jpg # 1 = oui, 0 = non (ne rien changer) $jpegjpg = 1; # types de fichiers acceptés en téléchargement, une nouvelle ligne par type de fichier # entrez le mot "ALL" (en majuscule) pour les accepter tous. @typesdefaut = qw~ txt ~; @typesdoc = qw~ ogg mp3 jpeg jpg gif png bmp rtf pdf txt ~; @typesimg = qw~ jpeg jpg gif png ~; # taille maxi de chaque fichier (kb) $maxdefaut = 1; $maxdoc = 4000; $maximg = 1000; #################################################################### # fin configuration #################################################################### if ($myuprep =~ /^doc/) { $max = $maxdoc; @types = @typesdoc; } elsif ($myuprep =~ /^img/) { $max = $maximg; @types = @typesimg; } else { $max = $maxdefaut; @types = @typesdefaut; } 1;