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
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
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/
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:
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
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
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
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
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
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
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
Алексеев Александр 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
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/
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.
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
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 )
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,
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/
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
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/
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]
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
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,
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
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
{
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
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
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;
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:
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
30 matches
Mail list logo