Files
ncpfs/contrib/tcl-utils/chgpwd.c
2026-04-28 20:56:05 +02:00

348 lines
8.7 KiB
C

/*
chgpwd.c - NWDSChangeObjectPasswor() API demo
Copyright (C) 2000 Petr Vandrovec
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; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Revision history:
1.00 2000, April 25 Petr Vandrovec <vandrove@vc.cvut.cz>
Initial revision.
1.01 2001, February 23 Petr Vandrovec <vandrove@vc.cvut.cz>
Added '-r' option. Feature request from Patrick Pollet.
1.02 2001, March 14 Patrick Pollet
Added -T' option.
Added errors code specific to password changing
1.03 2001, December 16 Petr Vandrovec <vandrove@vc.cvut.cz>
const <-> non-const pointers cleanup
Moved error codes to libncp.
1.04 2002 March 14 , Patrick Pollet
try to fix absent context problem by retrieving Default context if it exists
*/
#ifdef N_PLAT_MSW4
#include <nwcalls.h>
#include <nwnet.h>
#include <nwclxcon.h>
#include <stdlib.h>
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include "getopt.h"
#define _(X) X
typedef unsigned int u_int32_t;
typedef unsigned long NWObjectID;
typedef u_int32_t Time_T;
#else
#include <ncp/nwcalls.h>
#include <ncp/nwnet.h>
#include <ncp/nwclient.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <wchar.h>
#include "private/libintl.h"
#define _(X) gettext(X)
#endif
static char *progname;
static void
usage(void)
{
fprintf(stderr, _("usage: %s [options]\n"), progname);
}
static void
help(void)
{
printf(_("\n"
"usage: %s [options]\n"), progname);
printf(_("\n"
"-h Print this help text\n"
"-v value Context DCK_FLAGS value (default 0)\n"
"-o object_name Name of object (default [Root])\n"
"-c context_name Name of current context (default [Root])\n"
"-C confidence DCK_CONFIDENCE value (default 0)\n"
"-S server Server to start with (no default)\n"
"-T tree NDS tree (no default)\n"
"-P password Old password (default TEST)\n"
"-n newpassword New password (default T2)\n"
"-r Raw, do not uppercase passwords\n"
"\n"));
}
#ifdef N_PLAT_MSW4
char* strnwerror(int dserr) {
static char errc[200];
sprintf(errc, "error %u / %d / 0x%X", dserr, dserr, dserr);
return errc;
}
#endif
static const char*
strnwerror2(int err)
{
return strnwerror(err);
}
/* Uppercase string. Do NOT write to string if all characters are
uppercase, const uppercased strings (TEST, T2) may be passed
to this function! */
static void safe_strupr(char* p) {
while (*p) {
if (islower(*p))
*p = toupper(*p);
p++;
}
}
int main(int argc, char *argv[]) {
NWDSCCODE dserr;
NWDSContextHandle ctx;
NWCONN_HANDLE conn=NULL;
const char* objectname = "[Root]";
char context[MAX_TREE_NAME_CHARS +1]="";
const char* server = NULL;
const char* pwd = "TEST";
const char* newpwd = "T2";
char treeName[MAX_TREE_NAME_CHARS +1]="";
int opt;
int raw = 0;
u_int32_t ctxflag = 0;
u_int32_t confidence = 0;
#ifndef N_PLAT_MSW4
setlocale(LC_ALL, "");
bindtextdomain(NCPFS_PACKAGE, LOCALEDIR);
textdomain(NCPFS_PACKAGE);
#endif
progname = argv[0];
NWCallsInit(NULL, NULL);
#ifndef N_PLAT_MSW4
NWDSInitRequester();
#endif
while ((opt = getopt(argc, argv, "h?o:c:v:S:C:P:n:T:r")) != EOF)
{
switch (opt)
{
case 'C':
confidence = strtoul(optarg, NULL, 0);
break;
case 'o':
objectname = optarg;
break;
//case 'c':
// context = optarg;
// break;
case 'c':
if (strlen(optarg) <sizeof(context))
strcpy(context,optarg);
else {
fprintf(stderr,"failed:parameter context is too long.\n");
exit(3);
}
break;
case 'P':
pwd = optarg;
break;
case 'v':
ctxflag = strtoul(optarg, NULL, 0);
break;
case 'h':
case '?':
help();
goto finished;
case 'S':
server = optarg;
break;
case 'T': if (strlen(optarg) <sizeof(treeName))
strcpy(treeName,optarg);
else {
fprintf(stderr,"failed:parameter treename is too long.\n");
exit(3);
}
break;
case 'n':
newpwd = optarg;
break;
case 'r':
raw = 1;
break;
default:
usage();
goto finished;
}
}
if (!raw) {
safe_strupr(pwd);
safe_strupr(newpwd);
}
if (server && treeName[0]) {
fprintf(stderr, "failed:cannot have both -T tree and -S server options\n");
exit (4);
}
dserr = NWDSCreateContextHandle(&ctx);
if (dserr) {
fprintf(stderr, "NWDSCreateContextHandle failed with %s\n", strnwerror(dserr));
return 123;
}
ctxflag |= DCV_XLATE_STRINGS;
ctxflag |= DCV_CANONICALIZE_NAMES;
dserr = NWDSSetContext(ctx, DCK_FLAGS, &ctxflag);
if (dserr) {
fprintf(stderr, "NWDSSetContext(DCK_FLAGS) failed: %s\n",
strnwerror(dserr));
dserr= 120;
goto finished;
}
if (!context[0])
NWCXGetDefaultNameContext(treeName,context,sizeof(context));
/* got one */
if (context[0]) {
dserr = NWDSSetContext(ctx, DCK_NAME_CONTEXT, context);
if (dserr) {
fprintf(stderr, "NWDSSetContext(DCK_NAME_CONTEXT) failed: %s\n",
strnwerror(dserr));
dserr= 121;
goto finished;
}
}
dserr = NWDSSetContext(ctx, DCK_CONFIDENCE, &confidence);
if (dserr) {
fprintf(stderr, "NWDSSetContext(DCK_CONFIDENCE) failed: %s\n",
strnwerror(dserr));
dserr=122;
goto finished;
}
#ifndef N_PLAT_MSW4
{
static const NET_ADDRESS_TYPE add[] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15};
dserr = NWDSSetTransport(ctx, 16, add);
if (dserr) {
fprintf(stderr, "NWDSSetTransport failed: %s\n",
strnwerror(dserr));
dserr= 124;
goto finished;
}
}
#endif
#ifdef N_PLAT_MSW4
dserr = NWDSOpenConnToNDSServer(ctx, server, &conn);
#else
if (server) {
if (server[0] == '/') {
dserr = ncp_open_mount(server, &conn);
if (dserr) {
fprintf(stderr, "ncp_open_mount failed with %s\n",
strnwerror(dserr));
dserr= 112;
goto finished;
}
} else {
struct ncp_conn_spec connsp;
long err;
memset(&connsp, 0, sizeof(connsp));
strcpy(connsp.server, server);
conn = ncp_open(&connsp, &err);
if (!conn) {
fprintf(stderr, "ncp_open failed with %s\n",
strnwerror(dserr));
dserr=113;
goto finished;
}
}
} else {
if (!treeName[0]) {
dserr=NWCXGetPreferredDSTree(treeName,sizeof(treeName));
}
if (!treeName[0]) {
fprintf(stderr,"failed: You must specify a server or a tree\n");
/*dserr=114;*/
goto finished;
}
if ((dserr=NWCXAttachToTreeByName (&conn,treeName))) {
fprintf(stderr,"failed:Cannot attach to tree %s.dserr:%s\n",
treeName,strnwerror(dserr));
dserr=115;
goto finished;
}
}
dserr = NWDSAddConnection(ctx, conn);
#endif
if (dserr) {
fprintf(stderr, "Cannot bind connection to context: %s\n",
strnwerror(dserr));
}
{
char tstcontext[256];
dserr = NWDSGetContext(ctx, DCK_NAME_CONTEXT, tstcontext);
if (dserr) {
fprintf(stderr, "NWDSFetContext(DCK_NAME_CONTEXT) failed: %s\n",
strnwerror(dserr));
dserr= 121;
goto finished;
}
/*printf ("changing password of user %s.%s\n",objectname,tstcontext);*/
}
dserr = NWDSChangeObjectPassword(ctx, NDS_PASSWORD, objectname, pwd, newpwd);
if (dserr) {
fprintf(stderr, "Change password failed: %s\n",
strnwerror2(dserr));
}
finished:
if (conn) NWCCCloseConn(conn);
dserr = NWDSFreeContext(ctx);
if (dserr) {
fprintf(stderr, "NWDSFreeContext failed with %s\n", strnwerror(dserr));
dserr=121;
}
return dserr;
}