|
 |
794a5c |
#include <stdio.h>
|
|
|
794a5c |
#include <stdlib.h>
|
|
|
794a5c |
#include <string.h>
|
|
|
794a5c |
#include <unistd.h>
|
|
|
794a5c |
|
|
|
794a5c |
#include "sasl.h"
|
|
|
794a5c |
|
|
|
794a5c |
static int
|
|
|
794a5c |
my_getopt(void *context, const char *plugin_name,
|
|
|
794a5c |
const char *option, const char **result, unsigned *len)
|
|
|
794a5c |
{
|
|
|
794a5c |
if (result) {
|
|
|
794a5c |
*result = NULL;
|
|
|
794a5c |
#if 0
|
|
|
794a5c |
fprintf(stderr, "Getopt plugin=%s%s%s/option=%s%s%s -> ",
|
|
|
794a5c |
plugin_name ? "\"" : "",
|
|
|
794a5c |
plugin_name ? plugin_name : "(null)",
|
|
|
794a5c |
plugin_name ? "\"" : "",
|
|
|
794a5c |
option ? "\"" : "",
|
|
|
794a5c |
option ? option : "(null)",
|
|
|
794a5c |
option ? "\"" : "");
|
|
|
794a5c |
fprintf(stderr, "'%s'.\n", *result ? *result : "");
|
|
|
794a5c |
#endif
|
|
|
794a5c |
}
|
|
|
794a5c |
if (len) {
|
|
|
794a5c |
*len = 0;
|
|
|
794a5c |
}
|
|
|
794a5c |
return 0;
|
|
|
794a5c |
}
|
|
|
794a5c |
|
|
|
794a5c |
int
|
|
|
794a5c |
main(int argc, char **argv)
|
|
|
794a5c |
{
|
|
|
794a5c |
int ret, i;
|
|
|
794a5c |
const char *mechs, **globals;
|
|
|
794a5c |
sasl_callback_t callbacks[] = {
|
|
|
794a5c |
{SASL_CB_GETOPT, my_getopt, NULL},
|
|
|
794a5c |
{SASL_CB_LIST_END},
|
|
|
794a5c |
};
|
|
|
794a5c |
sasl_conn_t *connection;
|
|
|
794a5c |
char hostname[512];
|
|
|
794a5c |
|
|
|
794a5c |
if ((argc > 1) && (argv[1][0] == '-')) {
|
|
|
794a5c |
fprintf(stderr, "Usage: %s [appname [hostname] ]\n", argv[0]);
|
|
|
794a5c |
return 0;
|
|
|
794a5c |
}
|
|
|
794a5c |
|
|
|
794a5c |
ret = sasl_server_init(callbacks, argc > 1 ? argv[1] : "sasl-mechlist");
|
|
|
794a5c |
if (ret != SASL_OK) {
|
|
|
794a5c |
fprintf(stderr, "Error in sasl_server_init(): %s\n",
|
|
|
794a5c |
sasl_errstring(ret, NULL, NULL));
|
|
|
794a5c |
}
|
|
|
794a5c |
|
|
|
794a5c |
connection = NULL;
|
|
|
794a5c |
strcpy(hostname, "localhost");
|
|
|
794a5c |
gethostname(hostname, sizeof(hostname));
|
|
|
794a5c |
ret = sasl_server_new(argc > 2 ? argv[2] : "host",
|
|
|
794a5c |
hostname,
|
|
|
794a5c |
NULL,
|
|
|
794a5c |
NULL,
|
|
|
794a5c |
NULL,
|
|
|
794a5c |
callbacks,
|
|
|
794a5c |
0,
|
|
|
794a5c |
&connection);
|
|
|
794a5c |
if (ret != SASL_OK) {
|
|
|
794a5c |
fprintf(stderr, "Error in sasl_server_new(): %s\n",
|
|
|
794a5c |
sasl_errstring(ret, NULL, NULL));
|
|
|
794a5c |
}
|
|
|
794a5c |
|
|
|
794a5c |
ret = sasl_listmech(connection,
|
|
|
794a5c |
getenv("USER") ? getenv("USER") : "root",
|
|
|
794a5c |
"Available mechanisms: ",
|
|
|
794a5c |
",",
|
|
|
794a5c |
"\n",
|
|
|
794a5c |
&mechs,
|
|
|
794a5c |
NULL,
|
|
|
794a5c |
NULL);
|
|
|
794a5c |
if (ret != SASL_OK) {
|
|
|
794a5c |
fprintf(stderr, "Error in sasl_listmechs(): %s\n",
|
|
|
794a5c |
sasl_errstring(ret, NULL, NULL));
|
|
|
794a5c |
} else {
|
|
|
794a5c |
fprintf(stdout, "%s", mechs);
|
|
|
794a5c |
}
|
|
|
794a5c |
|
|
|
794a5c |
globals = sasl_global_listmech();
|
|
|
794a5c |
for (i = 0; (globals != NULL) && (globals[i] != NULL); i++) {
|
|
|
794a5c |
if (i == 0) {
|
|
|
794a5c |
fprintf(stdout, "Library supports: ");
|
|
|
794a5c |
}
|
|
|
794a5c |
fprintf(stdout, "%s", globals[i]);
|
|
|
794a5c |
if (globals[i + 1] != NULL) {
|
|
|
794a5c |
fprintf(stdout, ",");
|
|
|
794a5c |
} else {
|
|
|
794a5c |
fprintf(stdout, "\n");
|
|
|
794a5c |
}
|
|
|
794a5c |
}
|
|
|
794a5c |
|
|
|
794a5c |
return 0;
|
|
|
794a5c |
}
|