симпле...

Sergey M. 24.04.2003 13:32

@main[]
# создаём именованную таблицу пользователей 
$users[^table::create{name password 
alice xxxxxx 
bob yyyyyy 
}] 

# начинаем набивать тестовый файл .htpasswd 
# для этого создаём nameless таблицу $htpasswd
$htpasswd[^table::create[nameless]{}]

# менюшим исходную таблицу с пользователями
# с каждой интерацией цикла menu добавляя в таблицу $htpasswd
# новую строку в формате "пользователь:криптованый_пароль" 
^users.menu{ 
^htpasswd.append{$users.name:^math:crypt[$users.password;^$apr1^$]} 
}
 
# сохраняем получившееся в файл
^htpasswd.save[nameless;.htpasswd-parser-test]