/* Copyright 1998 Acorn Computers Ltd
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/*
* Lan Manager client
*
* Logon.C -- "Logon" interface to Omniclient
*
* This module produces a "Log on to Lan Manager" icon in the FS List
* !Omni window, which lets the user log on (i.e. set a default
* workgroup/domain, user name, and password).
*
* Versions
* 29-05-96 INH Original, for LanMan 1.69
* 10-06-96 NAS Minor fixes for domain logon/OmniClient interface to work
* 12-06-96 INH "Dismount" call deleted, OmniOp 17 made instead.
* 25-07-96 INH Home directory stuff added
*/
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include "kernel.h"
#include "swis.h"
#include "stdtypes.h"
#include "lanman.h"
#include "lmvars.h"
#include "omni.h"
#include "rpc.h"
#include "logon.h"
#include "xlate.h"
#include "LanMan_MH.h"
/* ----------------------------------- */
static void SetPassword ( char * pwd )
{
static char pass_buf[NAME_LIMIT];
if ( pwd == NULL ) pwd = "";
strcpyn ( pass_buf, pwd, NAME_LIMIT );
Xlt_Jumble ( pass_buf );
LM_Vars.password_ptr = pass_buf;
}
/* ----------------------------------- */
static void SetOSVar ( char *varname, char *value )
{
_kernel_swi_regs R;
R.r[0] = (int) varname;
R.r[1] = (int) value;
if ( value == NULL ) /* Unset it */
R.r[2] = -1;
else
R.r[2] = strlen (value);
R.r[3] = 0;
R.r[4] = 4; /* Literal string */
_kernel_swi ( OS_SetVarVal, &R, &R );
}
/* ----------------------------------- */
char Lgn_PrimaryDCName[NAME_LIMIT]; /* For debugging */
char Lgn_HomeServerName[NAME_LIMIT];
char Lgn_HomeShareName[NAME_LIMIT];
char Lgn_HomeDirName[DOS_NAME_LEN];
static bool get_path ( char **ptr_in_out, char *result )
{
int i;
char *p = *ptr_in_out;
if (*p++ != '\\') return false;
i=0;
while ( *p != '\\' && *p != 0 )
{
if ( i < NAME_LIMIT-1 )
result[i++] = *p;
p++;
}
result[i] = 0;
*ptr_in_out = p;
return (bool) (i>0);
}
/* ----------------------------------- */
static err_t ParseHomeDir ( char *name )
{
char *p;
char leaf_name[NAME_LIMIT];
/* We expect the string to be of the form \\servername\sharename,
with optionally a path on the end of it, which will be
translated to RISCOS format. */
while ( isspace(*name) ) name++; /* Skip leading whitespace */
if ( name[0] != '\\' || name[1] != '\\' ) /* Doesn't start '\\' */
return EHOMEDIRNAME;
name++; /* Make name \SERVER\SHARE[\path] */
if ( !get_path ( &name, Lgn_HomeServerName ) ||
!get_path ( &name, Lgn_HomeShareName ) )
return EHOMEDIRNAME;
sprintf ( Lgn_HomeDirName, "%s::Home.$", FilingSystemName );
p = Lgn_HomeDirName + strlen(Lgn_HomeDirName);
while ( get_path ( &name, leaf_name ) )
{
*p++ = '.';
Xlt_NameDOStoRO ( p, leaf_name );
p += strlen(p);
}
return OK;
}
/* ----------------------------------- */
/* This function should check for CMOS default values, *
* and use them if present - RCE 980122 *
* Achieved by modifying its caller 980127:RCE *
*/
err_t Lgn_Init ( void )
{
strcpy ( LM_Vars.workgroup, "WORKGROUP" );
strcpy ( LM_Vars.username, "GUEST" );
SetPassword ( NULL );
LM_Vars.logged_on = true;
return OK;
}
/* ----------------------------------- */
err_t Lgn_Logon ( char *wkgrp, char *userid, char *pwd )
{
char *serv_name;
char *dir_name;
int tmp;
err_t res;
if ( userid == NULL || userid[0] == 0 )
return EUSERUNKNOWN;
if ( wkgrp != NULL && strlen(wkgrp) > 0 )
strcpyn_upper ( LM_Vars.workgroup, wkgrp, NAME_LIMIT );
/* pwd may be NULL */
strcpyn ( LM_Vars.username, userid, NAME_LIMIT );
SetPassword ( pwd );
LM_Vars.logged_on = true;
SetOSVar("Omni$UserLanMan", LM_Vars.username);
SetOSVar("LanMan$HomeDir", NULL );
Lgn_HomeDirName[0] = 0;
Omni_RecheckInfo (RI_MOUNTS);
Omni_RecheckInfo (RI_SERVERS);
Omni_RecheckInfo (RI_PRINTERS);
/* Now attempt to find home directory */
serv_name = RPC_GetDomainController ( LM_Vars.workgroup );
if ( serv_name == NULL ) /* No DC: Don't worry about it */
{
strcpy ( Lgn_PrimaryDCName, "<not found>");
return OK;
}
strcpy ( Lgn_PrimaryDCName, serv_name );
/* Report bad passwords & other errors, ignore unset home directories */
res = RPC_LogonUser ( serv_name, LM_Vars.username, pwd, &dir_name );
if ( res == ENOTPRESENT ) /* Server doesn't support it */
return OK;
if ( res != OK )
return res;
/* Extract fields from name, & try to connect to it */
if ( dir_name == NULL || dir_name[0] == 0 )
return OK;
res = ParseHomeDir ( dir_name );
if ( res != OK )
return res;
/* Set the home directory name so it is available to the boot file */
SetOSVar ( "LanMan$HomeDir", Lgn_HomeDirName );
res = Omni_MountServer ( Lgn_HomeServerName,
LM_Vars.username,
pwd,
"Home", /* Mountname */
Lgn_HomeShareName,
&tmp ); /* MountID_out */
/* Caution - this could potentially recurse, as the !ARMBOOT file
may contain an LMLogon command!
*/
if ( res == OK || res == ECONNEXISTS )
return OK;
else
return EHOMEDIRCONN;
}
/* ----------------------------------- */
err_t Lgn_Logoff ( void )
{
strcpy ( LM_Vars.username, "" );
SetPassword(NULL);
LM_Vars.logged_on = false;
Omni_ClearLists();
SetOSVar ( "Omni$UserLanMan", NULL );
SetOSVar ( "LanMan$HomeDir", NULL );
Omni_RecheckInfo ( RI_SERVERS );
return OK;
}
/* --------------------------------------- */
void Lgn_Register(void)
{
(void) _swix( SWI_Omni_RegisterClient, _INR(0,6),
LanMan_LogonOp, /* Client ID */
RC_LOGON_TYPE | RC_NEEDS_AUTHSERV | RC_NEEDS_USERID | RC_NEEDS_PASSWD,
"lmlgni",
"LAN Manager", /* Needs to be reasonably short. NAS */
"LanManFS Logon bit", /* Info string - shouldn't appear*/
0, /* Site ID */
"LanMan+"); /* Needs to be unique from LanMan FS name. NAS */
}
/* ---------------------------------------- */
static err_t Lgn_ListServers ( char *buf_ptr, int buf_size, int token_in,
char * *pNextByte_out, int *pToken_out )
{
char *shortname = "LanManager"; /* Needs to be reasonably short. NAS */
char *longname = "LanManager"; /* Needs to be reasonably short. NAS */
char *extradetails = "Logon Network\n \n ";
int serverid = (int) "?"; /* A unique memory address */
int tot_size;
tot_size = sizeof ( serverid ) + strlen(shortname) + 1 +
strlen (longname ) + 1 +
strlen (extradetails) + 1;
tot_size = (tot_size + 3) & ~3; /* Round to dword boundary */
/* We only ever write one record */
if ( token_in != 0 || tot_size > buf_size )
{
*pNextByte_out = buf_ptr; /* No records written */
*pToken_out = 0; /* All done */
return OK;
}
*pNextByte_out = buf_ptr + tot_size;
*pToken_out = 0;
memcpy ( buf_ptr, &serverid, sizeof(serverid) );
buf_ptr += sizeof(serverid);
strcpy ( buf_ptr, shortname );
buf_ptr += strlen(shortname)+1;
strcpy ( buf_ptr, longname );
buf_ptr += strlen(longname)+1;
strcpy ( buf_ptr, extradetails );
return OK;
}
/* ---------------------------------------- */
_kernel_oserror *Lgn_LogonOp_SWI ( _kernel_swi_regs *R )
{
err_t res;
debug1(" Omni Op(%d):", R->r[0]);
#define Rin_int(a) (R->r[a])
#define Rout_int(a) &(R->r[a])
#define Rin_chr(a) (char *)(R->r[a])
#define Rout_chr(a) (char **)&(R->r[a])
switch ( R->r[0] )
{
case 0: /* Mount */
res = Lgn_Logon ( Rin_chr(1), /* "Server" => domain/workgroup */
Rin_chr(2), /* User ID */
Rin_chr(3) ); /* Password */
if ( res == OK || res == EHOMEDIRCONN || res == EHOMEDIRNAME)
R->r[1] = 1; /* Keep the Smith happy */
else
R->r[1] = 0; /* NAS 05/Dec/96: needs to return mount_id of 0 if error */
break;
case 3: /* Enumerate servers */
res = Lgn_ListServers ( Rin_chr(1),
Rin_int(2),
Rin_int(3),
Rout_chr(1),
Rout_int(3) );
break;
case 9: /* Get mount info - (mild bodge - say it's not there!) */
R->r[3] = 0;
res = OK;
break;
case 17: /* Log out of domain */
res = Lgn_Logoff(); /* Clear all user ID's & passwords */
break;
default:
res = ENOTPRESENT;
}
return Xlt_Error(res);
}