On Fri, 2005-02-11 at 00:43 -0700, Craig White wrote:
> On Thu, 2005-02-10 at 23:44 -0700, der.hans wrote:
> So the problems that were manifest - I have a number of variables passed
> to my shell script from Webmin - values of which are obtained by adding
> a line '/bin/env > /tmp/env.txt' in my shell script.
>
> The value of LDAPADMIN_USER must be passed from the shell script to the
> perl script so that it deletes the right mailbox. I have tested each
> step by declaring the value of LDAPADMIN_USER at the start of each shell
> script and then comment it out to test it from within Webmin.
>
> The biggest problem I have now is returning the value of 'success' to
> perl based Webmin. If you can tell me how to do that, I would be ever
> grateful....I am working with 'return 0' but that isn't making Webmin
> happy.
----
OK - I got this worked out - no return values need to be supplied, the
execution must be perfect and that's fine.
I should admit that after every successful mailbox delete, I re-create
it so that it shouldn't fail just because it doesn't exist.
I still can't get variable passed from shell script to perl script.
If I run this perl script - first uncommenting the variable
USERADMIN_USER it runs fine.
#! /usr/bin/perl -w
#my $USERADMIN_USER='test2';
use Cyrus::IMAP::Admin;
$imap = Cyrus::IMAP::Admin->new("localhost")
or die "Failed to connect";
$imap->authenticate("-user" => "cyrus",
"-password" => "PASSWD",
"-mechanism" => "LOGIN")
or die "Failed to authenticate";
$imap->setacl("user.$USERADMIN_USER", "cyrus" => "+c");
$imap->delete("user.$USERADMIN_USER");
die $imap->error if $imap->error;
but if I comment out the assignment of the USERADMIN_USER variable so it
is passed from calling script, it apparently is never passed...
# cat ldap_useradmin.after
#!/bin/sh
USERADMIN_ACTION="DELETE_USER"
USERADMIN_USER="test2"
#export USERADMIN_USER
if [ "${USERADMIN_ACTION}" = "ADD_USER" ]; then
/root/scripts/ldap_useradmin.addabook
fi
if [ "${USERADMIN_ACTION}" = "DELETE_USER" ]; then
/root/scripts/ldap_useradmin.delmail.pl
fi
and this experiment shows the 'export USERADMIN_USER' line commented out
but the result is the same whether it is or isn't commented...
# ./ldap_useradmin.after
Use of uninitialized value in concatenation (.) or string
at /root/scripts/ldap_useradmin.delmail.pl line 13.
Use of uninitialized value in concatenation (.) or string
at /root/scripts/ldap_useradmin.delmail.pl line 14.
Mailbox does not exist at /root/scripts/ldap_useradmin.delmail.pl line
15.
now if I run ldap_useradmin.delmail.pl by itself
# ./ldap_useradmin.delmail.pl
Use of uninitialized value in concatenation (.) or string
at ./ldap_useradmin.delmail.pl line 13.
Use of uninitialized value in concatenation (.) or string
at ./ldap_useradmin.delmail.pl line 14.
Mailbox does not exist at ./ldap_useradmin.delmail.pl line 15.
same results - but if I remove the comment from the line my
#my $USERADMIN_USER='test2';
and then run it again it is happy.
# ./ldap_useradmin.delmail.pl
[root@linuxserver scripts]#
and of course, mailbox is deleted
I find it incredibly frustrating to trace the problems - this clearly
indicates to me that variable USERADMIN_USER doesn't get passed from the
shell script ldap_useradmin.after to the perl script
ldap_useradmin.delmail.pl
Lemme see now, I've only put in like 6 hours on these 2 short scripts
and the other 2 extremely short shell scripts that are working fine.
ARRGH!!!
Craig
---------------------------------------------------
PLUG-discuss mailing list -
PLUG-discuss@lists.plug.phoenix.az.us
To subscribe, unsubscribe, or to change you mail settings:
http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss
(text/plain)