You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

99 lines
2.7 KiB

# --- SDE-COPYRIGHT-NOTE-BEGIN ---
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
#
# Filename: package/.../webmin/stone_mod_webmin.sh
# Copyright (C) 2004 - 2006 The T2 SDE Project
# Copyright (C) 1998 - 2003 Clifford Wolf
#
# More information can be found in the files COPYING and README.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License. A copy of the
# GNU General Public License can be found in the file COPYING.
# --- SDE-COPYRIGHT-NOTE-END ---
#
# [MAIN] 80 webmin Webmin Configuration
WEBMINDIR=/opt/webmin
USERFILE=/etc/opt/webmin/miniserv.users
CONFFILE=/etc/opt/webmin/miniserv.conf
ACLFILE=/etc/opt/webmin/webmin.acl
set_pw() {
LOGIN="$1"
PASSWORD=1
PASSWORD2=2
while [ "$PASSWORD" != "$PASSWORD2" ] ; do
gui_input "Enter $LOGIN password" "" PASSWORD ;
gui_input "Re-Enter $LOGIN password" "" PASSWORD2 ;
if [ "$PASSWORD" != "$PASSWORD2" ] ; then
gui_message "Passwords are different: no change!"
fi
done
if [ "$2" = 1 ] ; then
gui_message "Changeing $LOGIN password."
tmp="`mktemp`"
sed "/^$LOGIN:.*/ s/^$LOGIN:[^:]*:/$LOGIN:`perl -e 'print crypt($ARGV[0], "XX");' "$PASSWORD"`:/ ;" < $USERFILE > $tmp
cat $tmp > $USERFILE ; rm -f $tmp
else
gui_message "Setting $LOGIN password."
perl -e 'print "$ARGV[0]:",crypt($ARGV[1], "XX"),":0::\n"' "$LOGIN" "$PASSWORD" >> $USERFILE
fi
}
set_acl() {
LOGIN="$1"
ALLMODS=`echo $WEBMINDIR/*/module.info | sed -e "s,$WEBMINDIR/,,g ; s,/module.info,,g"`
if [ "$2" = 1 ] ; then
gui_message "Resetting $LOGIN acls to default."
tmp="`mktemp`"
sed "/^$LOGIN:.*/ s/:.*/: $ALLMODS/ ;" < $ACLFILE > $tmp
cat $tmp > $ACLFILE ; rm -f $tmp
else
gui_message "Setting $LOGIN acls to default."
echo "$LOGIN: $ALLMODS" >> $ACLFILE
fi
}
set_user() {
gui_input "Enter user login" "admin" LOGIN ;
if [ "`grep \"^$LOGIN:\" $USERFILE`" = "" ] ; then
gui_message "New user $LOGIN !"
set_pw $LOGIN 0
set_acl $LOGIN 0
else
gui_message "Existing user $LOGIN !"
if gui_yesno "Change $LOGIN password?" ; then
set_pw $LOGIN 1
fi
if gui_yesno "Reset $LOGIN acls?" ; then
set_acl $LOGIN 1
fi
fi
}
edit() {
gui_edit "Edit file $1" "$1"
exec $STONE webmin
}
main() {
while
cmd="gui_menu webmin 'Webmin Configuration - Select an item to'"
cmd="$cmd 'Add/(Re-)Set user password and acls' 'set_user'"
cmd="$cmd '' '' 'Configure runlevels for webmin service'"
cmd="$cmd '$STONE runlevel edit_srv webmin'"
cmd="$cmd '(Re-)Start webmin init script'"
cmd="$cmd '$STONE runlevel restart webmin'"
cmd="$cmd '' ''"
cmd="$cmd 'View/Edit $CONFFILE file' 'edit $CONFFILE'"
eval "$cmd"
do : ; done
}