update bind via net::dns

Hello, I would like to update the bind nameserver via a perl script. Named is running on the same machine I start the script. I copied the key from named.conf key DHCP_UPDATER { algorithm HMAC-MD5.SIG-ALG.REG.INT; secret mykeyishere; }; inserted it into my script and run it. I always get

Re: update bind via net::dns ( NOT resolved )

Hello, I made the following modification to the script $res = new Net::DNS::Resolver(nameservers = [qw(127.0.0.1)]); and now I get Update error code: NOTAUTH. This now looks really like a authorization problem, but, as I wrote, I got the key from named.conf. Bye Andreas -- To

get acl's of directory

Hello, is it possible to get the acl entrie of a directory on linux with perl ? Thanks Andreas -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

get path to linked directory

Hello, I have a entry in my directory that is a soft-link to another directory. Is there a way in perl to get, starting from the link, the path of the real directory ? Thanks Andreas -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail:

Re: get acl's of directory

Andreas Moroder schrieb: Hello, is it possible to get the acl entrie of a directory on linux with perl ? Thanks Andreas Hello, probably I have found the module I need, it is File-ExtAttr but I when i start perl Makefile.pl I get this error Can't build and link to 'attr' Does anyone know

perl, ldap list of mmebers of a group

Hello, I would like to get a list of the memberUids from a openldap group. I tried with the script above, but even if I have 3 members I get as count only 1 and the results contains a single string with all 3 members. Can anyone please help me. Thank you Andreas use Net::LDAP qw(:all); use

Re: perl, ldap list of mmebers of a group

Andreas Moroder schrieb: Hello, I would like to get a list of the memberUids from a openldap group. I tried with the script above, but even if I have 3 members I get as count only 1 and the results contains a single string with all 3 members. Can anyone please help me. Thank you Andreas

Re: paths that work in windows and linux + Umlaute

JWK 5) It is Perl4 code from 8 years ago. that code is an abomination. one quick bug is the GetDir recursive descent sub to get all dirs doesn't check for symlinks so it can easily fall into an infinite recursion. the abuse of undef() is beyond bad nor needed. and as john said, it is perl4

Re: paths that work in windows and linux + Umlaute

AM I did not ask because I want to learn perl, but because I need the AM functionality of this application. I did not find anything else that AM does a similar job. then why did you ask here, on a list aimed at teaching perl to beginners? this is not the place to ask for help on how to fix

paths that work in windows and linux + Umlaute

Hello, I have found a nice utility http://www.novell.com/communities/node/389/adm+file+utilities+2+5 that has two problems: 1) It creates directories and files but it uses the \ backslash so it does not work on a linux machine. Is there a constant or a function that give back the right

tabular printing

Hello, I want pro print to screen two strings. The problem ist that the length of the strings are variable, so I get a unreadable output. Even using \t does not help because the lenght can vary from 5 to 15 characters. Is there a simple way to expand the first columnt to a fixex size. Thanks

Re: tabular printing

Алексеев Александр schrieb: $ perl printf %15s %15s\n, hello, world; ^D hello world -- Alexandr A Alexeev Hello Alexander, thanks you for the hint. %s-15 with the - is what I searched for. Thanks Andreas -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For

get list of files sorted by date

Hello, according to the man glob can only sort by name. Is there a way to get a list of files sorted by date ? Bye Andreas -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

imap module

Hello, does a IMAP library exist that supports this functionality: connect to the IMAP server as administrator and create a mail with a attachment in the drafts folder of a specified user. I searched cpan, but from the documentation I dit not find out if the libraries does what I want.

create a tree of a configuration file content

Hello, I would like to parse ms .adm files. This files have a tree structure that look like Category Name1 category Name2 categor Name3 Policy pol1 data lines here ... End policy Policy pol2 data lines here ... End policy end

get list of accessible directories

Hello, on our linux system I have a script that runs as root that should return a list of subdirectorys a specific user can access. I have the four directories and aside the users that can access them dira ( usera,userb, userc) dirb ( userb ) dirc ( userc ) dird ( usera, userc )

store more values in a hash array

Hello, I have to store more then one value in a hash array. I tried to store a array as value in the hash. But when I try to retriev it I don't get the array I have stroed. Can anyone please help me. Thanks Andreas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands,

compare two arrays

Hello, I have two arrays with strings and I have to find out the differences between this arrays. Is a perl function available that does this ? Thanks andreas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

php to perl translation

Hello, after a long search I found a script that creates oracle password hashes. I need the result of this script to store the password in out LDAP database in the oracle hashed format. The problem is that it is a php script and I need it in perl. I am a perl beginner and I am not able to

Re: Convert german umlaut to ascii

Thank you to all for your help. Andreas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Convert german umlaut to ascii

Hello, in our application I have to convert all german Umlaute in a string to a two char combination ä to ae, Ö to OE and so on. Can anyone please tell me how to do this ? Thanks Andreas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Encryption

Hello, I got this steps from http://www.ecuoug.org/papers/OraclePasswordAlgorithm.pdf I'm a bit unclear about step 5, but it should be doable in Perl once you determine the EXACT steps you need to take. Here are some tips to maybe get you through the first four steps. This my be far off from

Re: Encryption

I'm a bit unclear about step 5, but it should be doable in Perl once you determine the EXACT steps you need to take. Here are some tips to maybe get you through the first four steps. This my be far off from what Oracle needs, but it seems to work for your first 4 steps. Some questions remain,

Re: Encryption

Sorry, I know I should write all in one answer ;) I think in this place the algorithm is explained better. http://groups.google.com/group/comp.databases.oracle/msg/83ae557a977fb6ed?hl=en Bye Andreas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL

Encryption

Hello, I have to calculate a hash of username and password in perl. The calculation should be done this way: 1. Concatenate the username and the password to produce a plaintext string; 2. Convert the plaintext string to uppercase characters; 3. Convert the plaintext string to multi-byte storage

Re: Scan disk for files with certain owner

{ my ($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_); if (!(defined(getpwuid($uid)) defined(getgrgid($gid { print $File::Find::name . \n; } } On Feb 28, 2007, at 12:12 AM, Andreas Moroder wrote: Hello Neal, It works like a charm. thank you very much

RE: perl script instead of grep

Hope fully this helps ### Script start use strict; ... Hello, problem solved. The script was writeen for windows with \\ in the path. It should run on a linux box. I replaced the \\ with // and now it works. Is ti possible, for compatibility, to use // in windows too ? Thanks Andreas

RE: perl script instead of grep

Quoting Roman [EMAIL PROTECTED]: Hope fully this helps ### Script start use strict; my $process_dir = 'C:\work\_RHWork\projects\perl-beginers\directory-read\files-dir'; opendir(DIR,$process_dir) or die Can't open dir: $! \n; my @files = readdir(DIR) or die Can't read dir: $! \n;

Re: perl script instead of grep

Based on your specs this should work: perl -lne'print $ARGV =~ /^PC=([^,]+)/, $1 if /^Mac-Adresse:\s*([[:xdigit:]:]+)/' PC* John Hello John, no, it doesn't It returns two times the name of the pc. Bye Andreas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail:

perl script instead of grep

Hello, I have a directory with many files with names made like this two: PC=laptop-fortbild,USER=fsigmund,OS=95-98 PC=INFO-FABIAN,USER=fsigmund,OS=W2K-XP This text files may contain a line like this one Mac-Adresse: 00:10:D7:09:5E:16 With grep grep Mac-Adresse PC* | awk -F , '{print $1