Ecrire des attributs à partir de scripts perl
Si vous utilisez un serveur web BeOS autre que PoorMan (i.e., qui supporte les CGI) et
si vous voulez être capable d'extraire les attributs des fichiers BFS, regardez la
page TrackerBase sur le
site d'astuces anglophone BeTips. Ce que cette page ne vous dit pas c'est comment
créer des attributs à partir de vos scripts perl.
Une fois que vous avez installé le module perl Be::Attribute de Tom Spindler, utilisez la syntaxe:
Be::Attribute::WriteAttr(node, attr, what, type, howbig);
Par exemple, si vous voulez changer l'attribut d'un fichier email appelé
"emailfilename", votre script devra ressembler à ceci:
use Be::Attribute;
$MailNode = Be::Attribute::GetBNode("/boot/home/mail/in/emailfilename");
Be::Attribute::WriteAttr($MailNode, "MAIL:status", "New", "String", "50");
Read this Tip in English here
Hier findest Du den Tip in Deutsch
Cette astuce est une contribution de Michael Schomer.
Astuce traduite par: Nicolas.
Traduction
Française du Serveur BeTips © 2000 BeTrayer et équipe
|
