:: //
: alterator-openldap
Gear Bugs and FR Repocop
alterator-openldap-0.8.1/ 0000755 0000000 0000000 00000000000 12044301455 0015311 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/Makefile 0000644 0000000 0000000 00000000400 12044301455 0016743 0 ustar 00root root 0000000 0000000 NAME=openldap
DESCRIPTION="OpenLDAP server"
all:
clean:
install: install-module install-data
include /usr/share/alterator/build/module.mak
install-data:
$(INSTALL) -d $(sysconfdir)/alterator/openldap
cp -a openldap/* $(sysconfdir)/alterator/openldap
alterator-openldap-0.8.1/applications/ 0000755 0000000 0000000 00000000000 12044301455 0017777 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/applications/openldap.desktop 0000644 0000000 0000000 00000000410 12044301455 0023167 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Type=Application
Categories=X-Alterator-Servers
Icon=openldap
Terminal=false
Name=Directory service LDAP
Name[ru_RU]=Служба каталогов LDAP
X-Alterator-UI=html
X-Alterator-URI=/openldap
X-Alterator-Weight=10
X-Alterator-Help=openldap
alterator-openldap-0.8.1/backend3/ 0000755 0000000 0000000 00000000000 12044301455 0016763 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/backend3/openldap 0000755 0000000 0000000 00000042026 12044301455 0020517 0 ustar 00root root 0000000 0000000 #!/bin/sh
po_domain="alterator-openldap"
alterator_api_version=1
set -f
. alterator-sh-functions
. alterator-openldap-functions
. shell-quote
. cert-sh-functions
. shell-config
SLAPD_CONF_DIR="/etc/openldap"
MAIN_SLAPD_CONF="$SLAPD_CONF_DIR/slapd.conf"
LDAP_SYSCONFIG="/etc/sysconfig/ldap"
LDAP_CONF="$SLAPD_CONF_DIR/ldap.conf"
CERT_FILE="/var/lib/ssl/certs/slapd.pem"
KEY_FILE="/var/lib/ssl/private/slapd.key"
SERVICEDIR="/etc/alterator/openldap"
CONTAINERS="$SERVICEDIR/knowncontainers"
DEFAULT_CONTAINERS="People;Group;Computers"
cache_dir=/var/cache/alterator/openldap
reset_cache()
{
rm -rf -- "$cache_dir"
mkdir -p -- "$cache_dir"
}
validate_cert()
{
get_expire_date()
{
local cert="$1"; shift
local d="$(openssl x509 -text -noout -in "$cert" | sed -nr 's/^[[:blank:]]*Not After : (.+)$/\1/p' 2>/dev/null)"
[ -n "$d" ] && date --date="$d" +%d.%m.%Y%t%H:%M
}
if [ -f "$CERT_FILE" ]; then
expire="$(get_expire_date "$CERT_FILE")"
[ -n "$expire" ] && str="`_ "Certificate expire"`: $expire"
else
str="`_ "Certificate not found"`"
fi
printf "$str"
}
write_tls()
{
quote_sed_regexp_variable certfile "$CERT_FILE"
quote_sed_regexp_variable keyfile "$KEY_FILE"
if [ "$in_enable_tls" = "#t" -o "$in_local_and_tls" = "#t" ] ;then
for i in TLSCACertificateFile TLSCertificateFile ;do
sed -e "/^#$i[[:space:]]/s/.*/$i $certfile/" -i $MAIN_SLAPD_CONF
done
sed -e "/^#TLSCertificateKeyFile[[:space:]]/s/.*/TLSCertificateKeyFile $keyfile/" -i $MAIN_SLAPD_CONF
else
for i in TLSCACertificateFile TLSCertificateFile TLSCertificateKeyFile;do
sed -e "/^$i[[:space:]]/s/.*/#$i /" -i $MAIN_SLAPD_CONF
done
fi
}
list_dn()
{
local name=
local conf=
local master_conf=
local master_dn=
master_dn=$(/usr/sbin/system-auth status|cut -f2 -d' ')
check_method(){
local rootpw=$(egrep "rootpw" "$1"|cut -f2 -d' ')
method=$(echo "$rootpw"|sed -n -e "s/^.*{\([^}]*\)}.*$/\1/p")
if [ -n "$method" ]; then
echo "`_ "Encoded password"`"
else
echo "`_ "Unsafe password"`"
fi
}
ldap-dn list|
while read name conf;do
if [ "$master_dn" != "$name" ];then
dst=""
else
dst="`_ "Used for autentification", `"
fi
write_table_item \
name "$name" \
conf "$conf" \
dstat "$dst $(check_method $conf)"
done
}
list_schema(){
local name=
local conf=
grep "/schema" "$MAIN_SLAPD_CONF"|
while read status conf;do
name=$(echo "$conf"| sed -e 's/\/etc\/openldap\/schema\///i'|sed -e 's/\.schema//i')
write_table_item \
name "$name" \
conf "$conf"
done
}
status_schema(){
local name= included=
grep "/schema" "$MAIN_SLAPD_CONF"|
{
while read status conf;do
name=$(echo "$conf"| sed -e 's/\/etc\/openldap\/schema\///i'|sed -e 's/\.schema//i')
[ "$status" != "#include" ] && included="$name;$included"
done
write_string_param "avail_schema" "$included"
}
}
check_samba3(){
local included=
grep "samba.schema" "$MAIN_SLAPD_CONF"|
{
while read status conf;do
[ "$status" != "#include" ] && included="Yes" || included="No"
done
write_string_param "samba3" "$included"
}
}
repair_samba3(){
sed -e "/^#include.*\/samba\.schema/s/^#//g" -i "$MAIN_SLAPD_CONF"
/etc/init.d/slapd restart >/dev/null
check_samba3
}
write_schemas(){
#Turn OFF all schemas
sed 's/^\(include[[:space:]][[:space:]]*.*schema\).*$/\#\1/g' -i "$MAIN_SLAPD_CONF"
#Turn ON selected schemas
local IFS=";"
for i in $in_schemas; do
sed -e "/^#include.*\/$i\.schema/s/^#//g" -i "$MAIN_SLAPD_CONF"
done
/etc/init.d/slapd restart >/dev/null
}
new_schema(){
cp -f "$in_schema_file" "$cache_dir/$in_schema_name.schema"
new_name="/etc/openldap/schema/$in_schema_name.schema"
cp -f "$in_schema_file" "$new_name"
chown root.root "$new_name"
chmod 444 "$new_name"
#determine last line with include
line="$(grep -n include.*\.schema /etc/openldap/slapd.conf|tail -1|cut -f1 -d:)"
# Write new include in config after last including
sed -e "$line a\#include\t\t\/etc\/openldap\/schema\/$in_schema_name\.schema" -i "$MAIN_SLAPD_CONF"
reset_cache
}
list_actions()
{
write_enum_item "publish" "`_ "Publish"`"
write_enum_item "unpublish" "`_ "Unpublish"`"
write_enum_item "delete" "`_ "Delete"`"
}
present_list() {
ldapsearch -x -H ldap://127.0.0.1 -LLL -b "$in_base" -s one | \
grep "^dn:" | cut -f2 -d:| sed -e "s/^ //g"|sort| \
while read node ; do
name=$(echo "$node"|sed -e "s/,$in_base//g"|sed -e "s/.*=//g")
write_enum_item "$name" "$name"
done
}
all_containers(){
find_known(){
cat $CONTAINERS | sort |
while IFS=':' read name description; do
echo "$name"
done
}
container_def(){
alterator-dump-desktop \
-v lang="$in_language" \
-v out="Name" \
-v def="notfound;" \
$SERVICEDIR/containers/$name.def
}
for name in $(find_known); do
write_enum_item "$name" "ou=$name" "$(container_def)"
done
}
container_list(){
find_container(){
ldapsearch -x -H ldap://127.0.0.1 -LLL -b $in_base -s one | \
grep "^dn:" | cut -f2 -d:| sed -e "s/^ //g"|sort| \
while read node ; do
echo $node|sed -e "s/,$in_base//g"|sed -e "s/.*=//g"
done
}
find_known(){
cat $CONTAINERS | sort |
while IFS=':' read name description; do
echo "$name"
done
}
container_def(){
alterator-dump-desktop \
-v lang="$in_language" \
-v out="Name" \
-v def="notfound;" \
$SERVICEDIR/containers/$name.def
}
for name in $(find_known); do
if [ -n "$in_base" ];then
found=
for ex in $(find_container); do
[ "$ex" == "$name" ] || continue
found=1
break
done
fi
[ -z "$found" ] && write_enum_item "$name" "ou=$name" "$(container_def)"
done
}
new_base_from_ldif(){
newdn="$(head -n 1 $cache_dir/new_base.ldif|cut -f2 -d ' ')"
local domain=$(dn_2_host "$newdn")
local basedir="$SLAPD_CONF_DIR"
local template="$basedir/slapd-template.conf"
local new_dn_conf="$basedir/slapd-$domain.conf"
local binddn="cn=ldaproot,$newdn"
local bindpw="$in_bindpw"
#copy template into slapd-domain.conf
cp "$template" "$new_dn_conf"
chmod 640 "$new_dn_conf"
chown root:ldap "$new_dn_conf"
[ "$in_encript_pw" == "on" ] && bindpw=`slappasswd -h {SSHA} -s $bindpw`
#fix dc=. base, password
sed -i -e "s/dc=template/$newdn/g" $new_dn_conf
sed -i -e "s/template/$domain/g" $new_dn_conf
sed -i -e "s/^rootdn.*/rootdn \"$binddn\"/g" $new_dn_conf
sed -i -e "s/secret/$(quote_sed_regexp "$bindpw")/g" $new_dn_conf
sed -i -e "s/REALM/$(to_realm "$domain")/g" $new_dn_conf
echo "include $new_dn_conf" >> "$MAIN_SLAPD_CONF"
export DN_CONF="$new_dn_conf"
db_dir="$(read_config "$DN_CONF" directory)"
mkdir -p "$db_dir"
chmod 700 "$db_dir"
# copy default berkeley db config into $db_dir
# before initial slapadd
cp "/var/lib/ldap/bases/DB_CONFIG" "$db_dir"
chown root:ldap "$db_dir/DB_CONFIG"
chmod 640 "$db_dir/DB_CONFIG"
# initial slapadd
slapadd -b "$newdn" -l "$cache_dir/new_base.ldif"
chown -R ldap:ldap "$db_dir"
/etc/init.d/slapd restart >/dev/null
reset_cache
}
read_ldif(){
newdn="$(head -n 1 $cache_dir/new_base.ldif|cut -f2 -d ' ')"
prepare_new_base "$newdn"
}
prepare_new_base(){
local newdnname
local newfqdnname
echo "$1" | grep -qs "^dc="
if [ $? -eq 0 ];then
newdnname="$1"
newfqdnname=$(dn_2_host "$1")
else
newdnname=$(host_2_dn "$1")
newfqdnname="$1"
fi
grep -qs "$SLAPD_CONF_DIR/slapd-$newfqdnname.conf$" "$MAIN_SLAPD_CONF"
if [ $? -eq 0 ];then
write_error "`_ "Base DN"` $1 `_ "already exists in the system"`"
write_string_param "newfqdnname" ""
write_string_param "basedn" ""
write_string_param "binddn" ""
write_string_param "bindpw" ""
else
write_string_param "newfqdnname" "$newfqdnname"
write_string_param "basedn" "$newdnname"
write_string_param "binddn" "cn=ldaproot,$newdnname"
write_string_param "bindpw" `pwqgen`
fi
}
read_main_config(){
local url
url="$(shell_config_get "$LDAP_SYSCONFIG" SLAPDURLLIST)"
[ "${url/\/\/127\.0\.0\.1\/}" != "$url" ] && write_bool_param 'local' 'yes'
[ "${url/localhost/}" != "$url" ] && write_bool_param 'local' 'yes'
[ "${url/ldaps:\/\//}" != "$url" ] && write_bool_param 'enable_tls' 'yes'
if [ "${url/ldap:\/\/localhost\/[[:space:]]ldaps:\/\/\//}" != "$url" ];then
write_bool_param 'local_and_tls' 'yes'
write_bool_param 'local' 'no'
write_bool_param 'enable_tls' 'no'
fi
write_string_param key_state "$(validate_cert)"
}
delete_selected_dn(){
master_dn=$(/usr/sbin/system-auth status|cut -f2 -d' ')
local IFS=";"
for i in $in_avail_dn; do
if [ "$master_dn" != "$i" ];then
ldap-dn delete "$i" ;
else
write_error "`_ "Base DN"` $i `_ " used for system autentification."`"
fi
done
}
check_and_create() {
local newdnname
echo "$1" | grep -qs "^dc="
if [ $? -eq 0 ];then
newdnname="$1"
else
newdnname=$(host_2_dn "$1")
fi
grep -qs "$SLAPD_CONF_DIR/slapd-$(dn_2_host "$newdnname").conf$" "$MAIN_SLAPD_CONF"
if [ $? -eq 0 ];then
write_error "`_ "Base DN"` $newdnname `_ "already exists in the system"`"
else
ldap-dn create "$newdnname"
fi
}
to_realm()
{
echo "$1"|tr '[[:lower:]]' '[[:upper:]]'
}
create_expert_dn(){
local dn="$1"; shift
local binddn="$1";shift
local bindpw="$1";shift
local encript_pw="$1";shift
local containers="$1";shift
local plus_containers="$1";shift
local domain=$(dn_2_host "$dn")
local basedir="$SLAPD_CONF_DIR"
local template="$basedir/slapd-template.conf"
local new_dn_conf="$basedir/slapd-$domain.conf"
#copy template into slapd-domain.conf
cp "$template" "$new_dn_conf"
chmod 640 "$new_dn_conf"
chown root:ldap "$new_dn_conf"
[ "$encript_pw" == "on" ] && bindpw=`slappasswd -h {SSHA} -s $bindpw`
#fix dc=. base, password
sed -i -e "s/dc=template/$dn/g" $new_dn_conf
sed -i -e "s/template/$domain/g" $new_dn_conf
sed -i -e "s/^rootdn.*/rootdn \"$binddn\"/g" $new_dn_conf
sed -i -e "s/secret/$(quote_sed_regexp "$bindpw")/g" $new_dn_conf
sed -i -e "s/REALM/$(to_realm "$domain")/g" $new_dn_conf
echo "include $new_dn_conf" >> "$MAIN_SLAPD_CONF"
export DN_CONF="$new_dn_conf"
# base_rootdn_rootpw
# ldap-init
init_ldap_base "$dn" "$binddn" "$containers;$(echo "$plus_containers"|tr ', ' ';')"
/etc/init.d/slapd restart >/dev/null
}
init_ldap_base(){
local base="$1";shift
local rootdn="$1";shift
local containers="$1";shift
TMPFILE="$(mktemp -t "ldap-db-init.XXXXXXXXXX")" || fatal "can't create tempfile"
set_cleanup_handler cleanup_function
cleanup_function(){
[ -z "$TMPFILE" ] || rm -rf -- "$TMPFILE"
}
db_dir="$(read_config "$DN_CONF" directory)"
# Default entries
cat > "$TMPFILE" <<EOF
dn: $base
objectclass: organization
objectclass: dcObject
$(printf %s\\n "$base" | sed -r 's/^dc=([^[:blank:],]*).*$/dc: \1/')
$(printf %s\\n "$base" | sed -r 's/^.*dc=([^[:blank:],]*)/o: \1/')
dn: $rootdn
objectclass: organizationalRole
$(printf %s\\n "$rootdn" | sed -r 's/^cn=([^[:blank:],]*).*$/cn: \1/')
dn: ou=kdcroot,$base
objectClass: organizationalUnit
ou: kdcroot
EOF
# Creating checked containers
local IFS=";"
for container in $containers; do
cat >> "$TMPFILE" <<EOF
dn: ou=$container,$base
objectClass: organizationalUnit
ou: $container
EOF
done
mkdir -p "$db_dir"
chmod 700 "$db_dir"
# copy default berkeley db config into $db_dir
# before initial slapadd
cp "/var/lib/ldap/bases/DB_CONFIG" "$db_dir"
chown root:ldap "$db_dir/DB_CONFIG"
chmod 640 "$db_dir/DB_CONFIG"
# initial slapadd
slapadd -b "$base" -l "$TMPFILE"
chown -R ldap:ldap "$db_dir"
}
upgrade_base(){
# local base="$in_base"
# local rootdn="$in_binddn"
# local rootpw="$in_bindpw"
local containers="$in_containers;$(echo "$in_plus_containers"|tr ', ' ';')"
TMPFILE="$(mktemp -t "ldap-db-upgr.XXXXXXXXXX")" || fatal "can't create tempfile"
set_cleanup_handler cleanup_function
cleanup_function(){
[ -z "$TMPFILE" ] || rm -rf -- "$TMPFILE"
}
# Creating checked containers
local IFS=";"
for container in $containers; do
cat >> "$TMPFILE" <<EOF
dn: ou=$container,$in_base
objectClass: organizationalUnit
ou: $container
EOF
done
ldapadd -a -c -x -D "$in_binddn" -w "$in_bindpw" -h "localhost" -f $TMPFILE
}
determine_mode(){
DN_CONF=$(ldap-dn find "$in_name")
rootdn=$(egrep "rootdn" "$DN_CONF"|cut -f2 -d' '|tr -d '"')
rootpw=$(egrep "rootpw" "$DN_CONF"|cut -f2 -d' ')
write_string_param DN_CONF "$DN_CONF"
write_string_param rootdn "$rootdn"
write_string_param rootpw "$rootpw"
method=$(echo "$rootpw"|sed -n -e "s/^.*{\([^}]*\)}.*$/\1/p")
if [ -n "$method" ]; then
write_string_param bind_info "encoded"
else
write_string_param bind_info "present"
fi
}
make_ldif(){
file="$cache_dir/$(dn_2_host $in_base)_$(date +%Y-%m-%d).ldif"
/usr/sbin/slapcat -b "$in_base" > $file
write_blob_param "ldif_file" "$file"
}
reset_cache
on_message()
{
case "$in_action" in
check)
check_samba3
;;
repair)
repair_samba3
;;
list)
case "$in__objects" in
avail_dn)
list_dn
;;
avail_actions)
list_actions
;;
available_containers)
if [ -n "$in_base" ]; then
container_list "$in_base"
else
all_containers
fi
;;
present_containers)
[ -n "$in_base" ] && present_list "$in_base"
;;
avail_schema)
list_schema
;;
*)
;;
esac
;;
read)
case "$in__objects" in
config)
! slapd_daemon_status
write_bool_param daemon "$?"
write_string_param daemon_state "$(service slapd status)"
read_main_config
;;
selected_dn)
write_string_param bdn "$in_name"
determine_mode
;;
available_containers)
write_string_param "available_containers" "$DEFAULT_CONTAINERS"
;;
base)
[ -n "$in_newdnname" ] || return 0
prepare_new_base "$in_newdnname"
;;
fromldif)
[ -f "$cache_dir/new_base.ldif" ] && read_ldif "$cache_dir/new_base.ldif"
;;
avail_schema)
status_schema
;;
*)
;;
esac
;;
save)
local host=""
local url="ldap://localhost/"
if [ "$in_enable_tls" = "#t" ]; then
url="ldaps:///"
fi
if [ "$in_enable_tls" = "#t" -a "$in_local" = "#t" ]; then
url="ldaps://localhost/"
fi
if [ "$in_local_and_tls" = "#t" ]; then
url="ldap://localhost/ ldaps:///"
fi
write_tls
shell_config_set "$LDAP_SYSCONFIG" SLAPDURLLIST "\"'$url'\""
;;
write)
case "$in__objects" in
avail_schema)
[ -n "$in_schemas" ] && write_schemas "$in_schemas"
;;
daemon)
if test_bool "$in_status"; then
slapd_daemon_on
else
slapd_daemon_off
fi
;;
newldif)
[ -z "$in_ldif_file" ] || cp -f "$in_ldif_file" "$cache_dir/new_base.ldif"
;;
*)
;;
esac
;;
new)
case "$in__objects" in
base)
[ -n "$in_newdnname" ] || fatal "DN not set"
prepare_new_base "$in_newdnname"
;;
dn)
# create new dn
#echo "$(set|grep -a "in_")" >&2
[ -n "$in_newdnname" ] || fatal "DN not set"
check_and_create "$in_newdnname"
;;
schema)
[ -z "$in_schema_file" ] || new_schema
;;
fromldif)
[ -n "$in_bindpw" -a -n "$in_encript_pw" ] || \
write_error "`_ "Not all data present."`"
[ -f "$cache_dir/new_base.ldif" ] && new_base_from_ldif
;;
exp_dn)
#echo "$(set|grep -a "in_")" >&2
[ -n "$in_basedn" -a -n "$in_binddn" -a -n "$in_bindpw" -a -n "$in_encript_pw" ] || \
write_error "`_ "Not all data present."`"
create_expert_dn "$in_basedn" "$in_binddn" "$in_bindpw" "$in_encript_pw" "$in_containers" "$in_plus_containers"
esac
;;
delete)
# echo "$(set|grep -a "in_")" >&2
[ -z "$in_avail_dn" ] || delete_selected_dn "$in_avail_dn"
;;
generate)
write_string_param "bindpw" $(pwqgen)
;;
upgrade)
case "$in__objects" in
exp_dn)
[ -z "$in_containers" ] || upgrade_base
;;
esac
;;
download)
[ -n "$in_base" ] && make_ldif $in_base
;;
esac
}
message_loop
alterator-openldap-0.8.1/help/ 0000755 0000000 0000000 00000000000 12044301455 0016241 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/help/ru_RU/ 0000755 0000000 0000000 00000000000 12044301455 0017275 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/help/ru_RU/openldap.html 0000644 0000000 0000000 00000003275 12044301455 0021774 0 ustar 00root root 0000000 0000000 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
</head>
<body>
<h2>Служба каталогов</h2>
<h3>Назначение модуля</h3>
<p>
Служба каталогов представляет собой средство
централизованного хранения данных, организованных в виде
древовидной (иерархической) структуры.
</p>
<p>
Модуль предназначен для выполнения следующих операций:
<ul>
<li>настройка параметров приёма соединений;</li>
<li>включение и выключение отдельных модулей сервера;</li>
</ul>
</p>
<h4>Общие параметры конфигурации</h4>
<p>
В данном разделе расположен набор переключателей. Первые три из
них: "<b>Принимать только локальные соединения</b>",
"<b>Включить порт LDAP</b>" и "<b>Включить LDAPS</b>",
предназначены для конфигурации режима приёма соединений.</p>
<p>Внимание! Новые настройки вступают в силу только после перезапуска
службы. Осуществить это можно, воспользовавшись модулем «Системные
службы».</p>
</body>
</html>
alterator-openldap-0.8.1/openldap/ 0000755 0000000 0000000 00000000000 12044301455 0017113 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/openldap/containers/ 0000755 0000000 0000000 00000000000 12044301455 0021260 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/openldap/containers/AddressBook.def 0000644 0000000 0000000 00000000166 12044301455 0024143 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for Corporative AddressBook
Name[ru]=Корпоративная адресная книга
alterator-openldap-0.8.1/openldap/containers/Aliases.def 0000644 0000000 0000000 00000000153 12044301455 0023320 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for mail aliases
Name[ru]=Псевдонимы электронной почты
alterator-openldap-0.8.1/openldap/containers/Computers.def 0000644 0000000 0000000 00000000200 12044301455 0023711 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for Workstations
Name[ru]=Узел для зарегистрированных компьютеров
alterator-openldap-0.8.1/openldap/containers/Group.def 0000644 0000000 0000000 00000000153 12044301455 0023033 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for User's Groups
Name[ru]=Узел для Групп пользователей
alterator-openldap-0.8.1/openldap/containers/Hosts.def 0000644 0000000 0000000 00000000103 12044301455 0023032 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for Hosts
Name[ru]=Узел для Hosts
alterator-openldap-0.8.1/openldap/containers/Networks.def 0000644 0000000 0000000 00000000113 12044301455 0023547 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for Networks
Name[ru]=Узел для Сетей
alterator-openldap-0.8.1/openldap/containers/People.def 0000644 0000000 0000000 00000000105 12044301455 0023160 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for People
Name[ru]=Узел для People
alterator-openldap-0.8.1/openldap/containers/Protocols.def 0000644 0000000 0000000 00000000166 12044301455 0023727 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for Protokols
Name[ru]=Узел для описания сетевых протоколов
alterator-openldap-0.8.1/openldap/containers/Rpc.def 0000644 0000000 0000000 00000000120 12044301455 0022455 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for RPC
Name[ru]=Узел для описания RPC
alterator-openldap-0.8.1/openldap/containers/Services.def 0000644 0000000 0000000 00000000161 12044301455 0023521 0 ustar 00root root 0000000 0000000 [Desktop Entry]
Name=Node for Services
Name[ru]=Узел для описания сетевых сервисов
alterator-openldap-0.8.1/openldap/knowncontainers 0000644 0000000 0000000 00000000121 12044301455 0022252 0 ustar 00root root 0000000 0000000 AddressBook
Aliases
Computers
Group
Hosts
Networks
People
Protocols
Rpc
Services
alterator-openldap-0.8.1/ui/ 0000755 0000000 0000000 00000000000 12044301455 0015726 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/ui/openldap/ 0000755 0000000 0000000 00000000000 12044301455 0017530 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/ui/openldap/ajax.scm 0000644 0000000 0000000 00000017102 12044301455 0021160 0 ustar 00root root 0000000 0000000 (define-module (ui openldap ajax)
:use-module (alterator woo)
:use-module (alterator ajax)
:use-module (alterator str)
:use-module (alterator card-index)
:export (init))
(define *have-ldif* "no")
(define *samba* "No")
(define *mode* "RO")
(define (check_samba)
(let* ((data (woo "check" "/openldap/" )))
(set! *samba* (woo-get-option (car data) 'samba3)))
(if (equal? *samba* "Yes") (set! *mode* "RW"))
)
(define (repair_samba)
(let* ((data (woo "repair" "/openldap/" )))
(set! *samba* (woo-get-option (car data) 'samba3)))
(ui-init)
)
(define (read_only)
(set! *mode* "RO")
(form-update-visibility '("ro_info") #t )
(form-update-activity '("newdn_btn" "expert_dn_btn") #f )
(ui-init)
)
(define (read_ports)
(form-update-value-list
'("daemon" "daemon_state" "local" "enable_tls" "local_and_tls" "key_state")
(woo-read-first "/openldap/config" 'language (form-value "language"))))
(define (change_daemon)
(catch/message
(lambda() (woo-write "/openldap/daemon" 'status (form-value "daemon"))))
(read_ports)
)
(define (save-main)
(let ((local (form-value "local"))
(enable_tls (form-value "enable_tls"))
(local_and_tls (form-value "local_and_tls")) )
(woo "save" "/openldap" 'local local 'enable_tls enable_tls 'local_and_tls local_and_tls))
(read_ports))
(define (newdn)
(if (string-contains-ci (form-value "newdnname") "?")
(begin
(form-update-value "newdnname" (string-append (form-value "newdnname") "?")))
(begin
(if (not (string-null? (form-value "newdnname") ))
(begin
(let ((newdnname (form-value "newdnname")))
(catch/message
(lambda()
(woo-new "/openldap/dn"
'newdnname newdnname
'language (form-value "language"))
(ui-init)
(form-update-visibility '("new_dn_area") #f )
(form-update-visibility '("list_dn_area") #t )))))
(begin
(form-update-value "newdnname" "?"))))
)
)
(define (adddn)
(reset_exp_form)
(form-update-visibility '("new_dn_area") #t )
(form-update-visibility '("list_dn_area") #f )
(form-update-visibility '("config") #f )
(f-update-list "available_containers" "/openldap/available_containers")
(f-reset "/openldap/available_containers")
(if (string-contains-ci (form-value "newdnname") "?")
(form-update-value "newdnname" ""))
)
(define (ret_list)
(form-update-visibility '("new_dn_area") #f )
(form-update-visibility '("list_dn_area") #t )
(form-update-visibility '("config") #t )
(form-update-visibility '("schema_area") #f )
)
(define (show_schema)
(form-update-visibility '("new_dn_area") #f )
(form-update-visibility '("list_dn_area") #f )
(form-update-visibility '("config") #f )
(form-update-visibility '("schema_area") #t )
)
(define (include_schema)
(catch/message
(lambda()
(woo-write "/openldap/avail_schema"
'schemas (form-value "avail_schema"))))
(ui-init))
(define (ldif_prepare_base)
(if (not (string-null? (form-value "ldif_file")))
(call-with-form-file "ldif_file"
(lambda(path)
(catch/message
(lambda()
(woo-write "/openldap/newldif" 'ldif_file path
'language (form-value "language"))
(let* ((data (woo-read "/openldap/fromldif"
'language (form-value "language"))))
(form-update-value-list data))
)))))
(set! *have-ldif* "yes")
)
(define (add_schema)
(call-with-form-file "schema_file"
(lambda(path)
(catch/message
(lambda()
(woo-new "/openldap/schema" 'schema_file path 'schema_name (form-value "newschemaname"))
))))
(form-update-enum "avail_schema" (woo-list "/openldap/avail_schema" 'language (form-value "language")))
(f-reset "/openldap/avail_schema")
(form-update-value "newschemaname" "")
(form-update-value "schema_file" "")
)
(define (deldn)
(catch/message
(lambda()
(apply woo-delete "/openldap"
'language (form-value "language")
(form-value-list '("avail_dn" "name" "conf" "dstat")))
(ui-init)
)))
(define (use_encript_pw)
(let ((status (form-value "encript_pw")))
(form-update-visibility '("pw_alert") status)))
(define (prepare_base)
(let ((newdnname (form-value "newfqdnname")))
(f-reset "/openldap/base" 'newdnname newdnname )))
(define (change_ports)
(form-update-value "local" "#f")
(form-update-value "enable_tls" "#f"))
(define (set_local)
(form-update-value "local_and_tls" "#f"))
(define (reset_exp_form)
(form-update-visibility '("pw_alert") #f)
(form-update-value "newfqdnname" "")
(form-update-value "basedn" "")
(form-update-value "binddn" "")
(form-update-value "bindpw" "")
(form-update-value "encript_pw" "#f")
(set! *have-ldif* "no")
(form-update-value "ldif_file" "")
)
(define (addexpert_dn)
(if (equal? *have-ldif* "no")
(begin
(woo "new" "/openldap/exp_dn"
'basedn (form-value "basedn")
'binddn (form-value "binddn")
'bindpw (form-value "bindpw")
'encript_pw (form-value "encript_pw")
'containers (form-value "available_containers")
'plus_containers (form-value "plus_containers")
'language (form-value "language")))
(begin
(woo "new" "/openldap/fromldif"
'bindpw (form-value "bindpw")
'encript_pw (form-value "encript_pw")
'language (form-value "language")))
)
(reset_exp_form)
(ui-init)
(form-update-visibility '("new_dn_area") #f )
(form-update-visibility '("list_dn_area") #t )
)
(define (new_pass)
(form-update-value-list
'("bindpw")
(car (woo "generate" "/openldap")))
)
(define (ui-init)
(check_samba)
(if (or (equal? *samba* "Yes") (equal? *mode* "RO"))
(begin
(form-update-visibility '("samba_warn") #f )
(read_ports)
(form-update-value "newdnname" "")
(form-update-enum "avail_dn" (woo-list "/openldap/avail_dn" 'language (form-value "language")))
(form-update-enum "avail_schema" (woo-list "/openldap/avail_schema" 'language (form-value "language")))
(f-reset "/openldap/avail_schema")
(form-update-visibility '("config" "list_dn_area") #t)
(form-update-visibility '("schema_area" "new_dn_area") #f)
(if (equal? *mode* "RW")
(begin
(form-update-activity '("newdn_btn" "expert_dn_btn") #t)
(form-update-visibility '("ro_info") #f))
(begin
(form-update-activity '("newdn_btn" "expert_dn_btn") #f)
(form-update-visibility '("ro_info") #t)) ))
(begin
(form-update-visibility '("config" "list_dn_area" ) #f )
(form-update-visibility '("samba_warn") #t )) )
)
(define (init)
(ui-init)
(form-bind "repair" "click" repair_samba)
(form-bind "readonly" "click" read_only)
(form-bind "main_btn" "click" save-main)
(form-bind "newdn_btn" "click" newdn)
(form-bind "deldn_btn" "click" deldn)
(form-bind "adddn_btn" "click" adddn)
(form-bind "expert_dn_btn" "click" addexpert_dn)
(form-bind "ret_btn" "click" ret_list)
(form-bind "new_pass_btn" "click" new_pass)
(form-bind "manage_schema" "click" show_schema)
(form-bind "schema_btn" "click" include_schema)
(form-bind-upload "addschema_btn" "click" "schema_file" add_schema)
(form-bind-upload "prepare_ldif_btn" "click" "ldif_file" ldif_prepare_base)
(form-bind "newfqdnname" "change" prepare_base)
(form-bind "encript_pw" "change" use_encript_pw)
(form-bind "daemon" "change" change_daemon)
(form-bind "local_and_tls" "change" change_ports)
(form-bind "local" "change" set_local)
(form-bind "enable_tls" "change" set_local)
)
alterator-openldap-0.8.1/ui/openldap/index.html 0000644 0000000 0000000 00000023076 12044301455 0021535 0 ustar 00root root 0000000 0000000 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
<html wf="none">
<body>
<form method="POST">
<table width="98%" name="ro_info" style="display:none">
<tr>
<td align="center">
<b><span translate="_">RO mode. You can delete some bases and can't create new bases.</span></b><br/>
<hr width="50%"/>
<b><span translate="_"> You can manage schemas.</span></b><br/>
</td>
</tr>
</table>
<table width="98%" name="samba_warn" style="display:none">
<tr>
<td align="center" colspan="2">
<b><span translate="_">Samba scheme not included in /etc/slapd.conf</span></b><br/>
<b><span translate="_">Creation of new base can make your slapd service inaccessible !!!</span></b><br/>
<hr width="40%"/>
<b><span translate="_">Repair configuration?</span></b><br/>
</td>
</tr>
<tr>
<td width="50%" align="right">
<input style="width:200px;" type="button" name="repair" value="Yes. Include samba.schema" class="btn"/>
</td>
<td width="50%" align="left">
<input style="width:200px;" type="button" name="readonly" value="No. Only show bases" class="btn"/>
</td>
</tr>
</table>
<br/>
<table width="98%" name="config" style="display:none">
<tr>
<td><b><span translate="_">Main server option</span></b><hr/></td>
</tr>
<tr>
<td>
<table width="100%">
<tr>
<td width="40%">
<input type="checkbox" name="daemon" value="#t"/>
<b><span translate="_">Enable SLAPD server</span></b>
</td>
<td>
<span translate="_">Current state</span>:
<span class="alterator-label" name="daemon_state"/>
</td>
</tr>
<tr>
<td colspan="2">
<hr/>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%">
<tr>
<td><input type="checkbox" name="local" value="#t"/>
<span translate="_">Accept only local connections</span></td>
<td valign="middle" rowspan="3"><span class="alterator-label" name="key_state"/></td>
</tr>
<tr>
<td><input type="checkbox" name="enable_tls" value="#t"/>
<span translate="_">Enable LDAPS (TLS)</span></td>
</tr>
<tr>
<td><input type="checkbox" name="local_and_tls" value="#t"/>
<span translate="_">LDAP on local and LDAPS (TLS) on all interfaces</span></td>
</tr>
</table>
</td>
</tr>
<tr><td>
<table width="100%" >
<tr>
<td align="left"><input type="button" name="main_btn" value="Save options" class="btn"/></td>
<td align="right"><input type="button" name="manage_schema" value="Manage schema" class="btn"/></td>
</tr>
</table>
</td></tr>
</table>
<br/>
<table width="98%" name="schema_area" style="display:none">
<tr>
<td><b><span translate="_">Schema management</span></b><hr />
</td>
</tr>
<tr>
<td>
<div style="max-height:250px; overflow: auto">
<table class="alterator-listbox multi-select" name="avail_schema">
<thead>
<tr>
<th><span translate="_">Schema</span></th>
<th><span translate="_">Config File</span></th>
</tr>
</thead>
<tbody>
<tr>
<td><span class="alterator-label" name="name"/></td>
<td><span class="alterator-label" name="conf"/></td>
</tr>
</tbody>
</table>
</div><br/>
</td>
</tr>
<tr>
<td style="float:none;border:double;text-align:center;">
<span translate="_">Addition of the conflicting schemes or</span><br/>
<span translate="_">disabling some schemes may cause your databases inoperable!</span><br/>
<hr width="60%"/>
<span translate="_">You have been warned...</span>
</td>
</tr>
<tr><td>
<hr/>
<span translate="_">New schema name:</span>
<input type="text" class="text" name="newschemaname"/>
<span translate="_">from file:</span>
<input type="file" name="schema_file" class="text"/>
<input type="button" name="addschema_btn" value="Add" class="btn"/>
</td></tr>
<tr><td><br/>
<table width="100%" >
<tr>
<td align="left">
<input type="button" name="schema_btn" value="Include selected" class="btn"/></td>
<td align="right">
<input type="button" name="ret_btn" value="Return to list" class="btn"/></td>
</tr>
</table>
</td></tr>
</table>
<table width="98%" name="list_dn_area" style="display:none" >
<tr><td><b><span translate="_">Bases management</span></b><hr/></td></tr>
<tr>
<td>
<table class="alterator-listbox multi-select" name="avail_dn">
<thead>
<tr>
<th><span translate="_">Base DN</span></th>
<th><span translate="_">Config File</span></th>
<th><span translate="_">Status</span></th>
</tr>
</thead>
<tbody>
<tr>
<td>
<a class="alterator-href" prefix-href="/openldap/selected_dn?name=" name="name">
<span class="alterator-label" name="name"/></a>
</td>
<td nowrap="nowrap"><span class="alterator-label" name="conf"/></td>
<td nowrap="nowrap"><span class="alterator-label" name="dstat"/></td>
</tr>
</tbody>
<tfoot>
<tr><td colspan="3"> </td></tr>
<tr>
<td colspan="2">
<input type="button" name="deldn_btn" value="Delete selected bases" class="btn"/>
</td>
<td align="right" colspan="2">
<span translate="_" name="name">New base DN:</span>
<input type="text" class="text" name="newdnname"/>
<input type="button" name="newdn_btn" value="Create" class="btn"/>
<input type="button" name="adddn_btn" value="Expert mode" class="btn"/>
</td>
</tr>
</tfoot>
</table>
</td>
</tr>
</table>
<table name="new_dn_area" style="display:none">
<tr>
<td colspan="2">
<span translate="_">Load from LDIF file</span>:
<input type="file" name="ldif_file" class="text" style="width:250px"/>
<input type="button" name="prepare_ldif_btn" value="Prepare base from LDIF file" class="btn"/>
<hr/>
</td>
</tr>
<tr>
<td width="60%"><b><span translate="_">New base:</span></b><br/>
<table width="100%">
<tr>
<td><span translate="_">Your FQDN:</span></td>
<td><input type="text" class="text" name="newfqdnname" style="width:245px;" /></td>
</tr>
<tr>
<td><span translate="_">Base DN:</span></td>
<td><input type="text" class="text" name="basedn" style="width:245px;"/></td>
</tr>
<tr>
<td><span translate="_">Bind DN:</span></td>
<td><input type="text" class="text" name="binddn" style="width:245px;"/></td>
</tr>
<tr>
<td><span translate="_">Bind PW:</span></td>
<td><input type="text" class="text" name="bindpw" style="width:185px;"/>
<input type="button" name="new_pass_btn" value="New" class="btn" style="width:53px;"/>
</td>
</tr>
<tr>
<td><span translate="_">Encript rootPW</span></td>
<td><input type="checkbox" name="encript_pw"/></td>
</tr>
<tr style="display:none">
<td><span translate="_">For SAMBA PDC</span></td>
<td><input type="checkbox" name="samba_containers"/>(coming soon...)</td>
</tr>
<tr>
<td colspan="2">
<div name="pw_alert" style="float:none;display:none;text-align:center">
<hr width="60%"/>
<span translate="_">Please, remember this password!!!</span>
<hr width="60%"/>
<span translate="_">Encripted passwor NOT accessible for other modules.</span><br/>
<span translate="_">You will be asked for a password every time </span><br/>
<span translate="_">of using modules, e.g. "Users" and "Groups".</span><br/>
</div>
<div name="base_alert" style="float:none;display:none">
<span class="alterator-label" name="new_base_sample"/>
</div>
</td>
</tr>
</table>
</td>
<td name="addcontainer_area" >
<b><span translate="_">Create containers:</span></b><br/>
<table name="available_containers" class="alterator-checklistbox"/><br/>
<input type="text" class="text" name="plus_containers" style="width:280px;"/><br/>
<small><span translate="_">(Separated by commas or spaces. Without ou=)</span></small>
</td>
</tr>
<tr>
<td>
<input type="button" name="expert_dn_btn" value="Create new base" class="btn"/>
<input type="button" name="ret_btn" value="Return to list" class="btn"/>
</td>
<td>
</td>
</tr>
</table>
</form>
</body>
</html>
alterator-openldap-0.8.1/ui/openldap/selected_dn/ 0000755 0000000 0000000 00000000000 12044301455 0022001 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/ui/openldap/selected_dn/ajax.scm 0000644 0000000 0000000 00000005543 12044301455 0023437 0 ustar 00root root 0000000 0000000 (define-module (ui openldap selected_dn ajax)
:use-module (alterator ajax)
:use-module (alterator woo)
:use-module (alterator card-index)
:use-module (alterator str)
:use-module (alterator effect)
:export (init))
(define *rootdn* "")
(define *rootpw* "")
(define *bind_info* "")
(define (ui-read)
(form-update-value "bdn" (form-value "name"))
(test_bind)
(form-update-enum "actions"
(woo-list "/openldap/avail_actions"
'language (form-value "language")))
(form-update-enum "container_dn"
(woo-list "/openldap/present_containers"
'base (form-value "name")
'language (form-value "language")))
(let ((available-list (woo-list "/openldap/available_containers"
'base (form-value "name")
'language (form-value "language"))))
(form-update-enum "available_new" available-list)
; (if (null? available-list)
; (begin
; (form-update-visibility "create-containers_btn" #f)
; (form-update-visibility "addcontainer_area" #f))
; (begin
; (form-update-visibility "create-containers_btn" #t)
; (form-update-visibility "addcontainer_area" #t)
; (form-update-enum "available_new" available-list))
; )
)
(form-update-value "plus_containers_new" "")
)
(define (test_bind)
(if (not (string-contains-ci *rootdn* (form-value "name")))
(begin
(let* ((data (woo-read "/openldap/selected_dn" 'name (form-value "name"))))
(set! *bind_info* (woo-get-option (car data) 'bind_info))
(set! *rootdn* (woo-get-option (car data) 'rootdn))
(set! *rootpw* (woo-get-option (car data) 'rootpw))
(form-update-value "bind_rootdn" *rootdn*)
(form-update-value "bind_rootpw" *rootpw*)
)))
(bind_request)
)
(define (bind_request)
(if (equal? *bind_info* "present")
(begin
(form-update-visibility "main_table" #t)
(form-update-visibility "need_bind_info" #f))
(begin
(form-update-visibility "main_table" #f)
(form-update-visibility "need_bind_info" #t)))
)
(define (set_bind)
(if (not (string-null? (form-value "bind_rootpw")))
(begin
(set! *rootpw* (form-value "bind_rootpw"))
(set! *rootdn* (form-value "bind_rootdn"))
(set! *bind_info* "present")))
(bind_request)
)
(define (upgrade_dn)
(woo "upgrade" "/openldap/exp_dn"
'base (form-value "name")
'binddn *rootdn*
'bindpw *rootpw*
'containers (form-value "available_new")
'plus_containers (form-value "plus_containers_new")
'language (form-value "language"))
(ui-read)
)
(define (download-ldif)
(form-replace "/openldap/selected_dn/download" 'base (form-value "name"))
)
(define (return)
(form-replace "/openldap"))
(define (init)
(ui-read)
(form-bind "bind_btn" "click" set_bind)
(form-bind "return_to" "click" return)
(form-bind "export_to_ldif_btn" "click" download-ldif)
(form-bind "create-containers_btn" "click" upgrade_dn)
)
alterator-openldap-0.8.1/ui/openldap/selected_dn/download/ 0000755 0000000 0000000 00000000000 12044301455 0023610 5 ustar 00root root 0000000 0000000 alterator-openldap-0.8.1/ui/openldap/selected_dn/download/ajax.scm 0000644 0000000 0000000 00000001051 12044301455 0025234 0 ustar 00root root 0000000 0000000 (define-module (ui openldap selected_dn download ajax)
:use-module (alterator algo)
:use-module (alterator ajax)
:use-module (alterator woo)
:export (ui))
(define (ui)
(let ((base (form-value "base")))
(and (string? base)
(ui-blob "ldif_file"
(cond-car (woo "download" "/openldap" 'base base))
"text/plain"
(string-append (string-join
(map (lambda (s) (cadr (string-split s #\=)))
(string-split base #\,)) ".") ".ldif")))))
alterator-openldap-0.8.1/ui/openldap/selected_dn/index.html 0000644 0000000 0000000 00000004704 12044301455 0024003 0 ustar 00root root 0000000 0000000 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
<html wf="none?redirect-url=%2fopenldap">
<body>
<form method="POST">
<h2><span translate="_" name="name">Managed base:</span>
<span class="alterator-label" name="bdn"/></h2>
<hr/>
<table border="0" name="need_bind_info" style="display:none">
<tr>
<td rowspan="2" style="vertical-align:middle;padding:5px;">
<img src="/design/images/attention.gif"/>
</td>
<td style="text-align: center;">
<span translate="_">Please enter correct bind data for this base</span>
</td>
<td> </td>
</tr>
<tr>
<td>
<span translate="_">root dn:</span>
<input type="text" class="text" name="bind_rootdn" style="width:200px;"/>
<span translate="_" nameref="newusername">root password:</span>
<input type="password" class="text" name="bind_rootpw" style="width:200px;"/>
</td>
<td>
<input type="button" name="bind_btn" value="Bind" class="btn"/>
</td>
</tr>
</table>
<table name="main_table" style="width:100%;">
<tr>
<td style="text-align:right;width:30%"><span translate="_">Select action:</span></td>
<td>
<select name="actions" enumref="/openldap/avail_actions"/>
</td>
</tr>
<tr><td colspan="2"><hr/></td></tr>
<tr name="container_d">
<td rowspan="3"><b><span translate="_">Containers in base:</span></b><br/>
<select name="container_dn" size="12" style="width:170px"/><br/>
</td>
<td name="addcontainer_area">
<b><span translate="_">Available Containers:</span></b><br/>
<table class="alterator-checklistbox" name="available_new"/>
</td>
</tr>
<tr>
<td height="10%">
<input type="text" class="text" name="plus_containers_new" style="width:200px;"/>
<br/>
<small><span translate="_">(Separated by commas or spaces. Without ou=)</span></small>
</td>
</tr>
<tr>
<td height="10%">
<input value="Add" name="create-containers_btn" type="button" class="btn"></input>
</td>
</tr>
<tr>
<td colspan="2"><hr/></td>
</tr>
<tr>
<td>
<input value="Save LDIF file" name="export_to_ldif_btn" type="button" class="btn"></input>
</td>
<td>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
<hr/><input name="return_to" type="button" class="btn" value="Return to list"/><br/>
</form>
</body>
</html>