Messages

16

Web Server - Ask For Help / Webserver + secwin 7 stopped using altered access rights

« on: July 14, 2023, 09:14:39 PM »

A Nt webserver using secwin 7 and multi-tenant
Been up and running since late May.
This week so one was able to access anything.
The rights are applied to a group that is normally deny with appropriate procedures set to access.
Login was ok, but nothing at all was available. Looked like the overrides of the group were ignored.
No messages in the log.

This was fixed by restarting the service.  Then back to normal.

Anyone have any ideas as to what went wrong?

17

Web Server - Ask For Help / Re: Next freezes browse

« on: June 11, 2023, 02:34:48 PM »

Activate Clarion driver trace and look at that.  It could be an error occurring, NTWS is not good with errors from the file system.

18

Web Server - Ask For Help / Re: Failing on Loc:Err = RM.Open()?

« on: June 09, 2023, 10:48:47 PM »

A slight problem with NTWS is that if the file operation fails, you don't always know about it. 
I've had a few problems with relational constraints in the DB, and a few other things, that just sort of fail silently.
While using MessageBox catches some, it doesn't catch any that don't notify.
I only found them by turning on the Clarion driver trace and looking at that.

19

Web Server - Ask For Help / Re: NetLDAP bug in SetUser procedure

« on: May 11, 2023, 08:45:27 PM »

Done

20

Web Server - Ask For Help / Re: NetLDAP bug in SetUser procedure

« on: May 09, 2023, 04:50:29 PM »

How much of the NetLdap code is you, Bruce, someone else?

Mostly Bruce.  I added a number of methods, the get attributes one for instance, and I've fixed a few others.  Because I was one of the first I found a few missing bits and "would be nice to have"s, so I added them.   Most recently was the problem where samaccount and upn names differed. 

But is it you or Bruce who vets this code?

Absolutely Bruce, it all gets filtered through him. But since my dirty fingerprints are on some it I know it better than most.

21

Web Server - Ask For Help / Re: NetLDAP bug in SetUser procedure

« on: May 08, 2023, 03:11:57 PM »

Where are you finding that code, Sean?

Sorry I didn't make it clear.  That 's code from the login procedure of my nettalk app.  I have a configuration item the client fills out for Config:Logon:Domain
So I do some pre-fiddling of the name before sending out for authorization.

Thanks for the additional info.  I can totally see the problem.  I think it could certainly be fixed in NetLdap, but not easily. the problem, as you say, is the multiple recursion that effectively rebuilds the upn.  There is an implied rule that the domain on the upn is always an AD domain. 
we'd have to save the first dn in a property perhaps to reuse?

I agree that the \ is a bug.

either way I'm happy to help if you need any

22

Web Server - Ask For Help / Re: NetLDAP bug in SetUser procedure

« on: May 07, 2023, 10:38:59 PM »

Long rants are better than short blow up with no info!

Yes, your assessment of my client is correct.  As for plain jane login, I found this in my code:

IF NOT INSTRING('\',parms.pAuthUser) AND NOT INSTRING('@',parms.pAuthUser)
            parms.pAuthUser = CLIP(Config:Logon:Domain) & '\' & parms.pAuthUser
END

Now that's very old and may not be needed as such anymore, but it works, so I'm not touching it!
Not sure about your upn of theEmailDomain that isn't in AD , That just seems very odd

23

Web Server - Ask For Help / Re: NetLDAP bug in SetUser procedure

« on: May 07, 2023, 03:45:47 AM »

Thanks the the amazing detail Jane,

I think this problem of defaulting to NetLDAP:UserPrincipalName is actually my doing.  In discussing with Bruce years ago the various login names users can enter I think I suggested defaulting to creating a UPN.  Shame on me... sigh...)

LOL Not to worry. I was one of the first users of the LDAP code.  In fact I made a number of changes and additions. If you search a few of my comment made it in. So I'm an accomplice here, and I think I also championed upn as a default, it just seemed logical.  Unfortunately our strategy didn't last the confrontation with the enemy (client)

In the 20+ years I've worked on AD networks I haven't been part of one where the UPN didn't match the AD domain name until now.  (Lucky me.)

Yep, I will confirm you're the lucky one.  Took me a good few weeks to figure out what the problem was and and find a solution. so, again my code got added. Not sure how that \ made it through though. 

I'll have to digest the rest tomorrow

 

24

Web Server - Ask For Help / Re: NetLDAP bug in SetUser procedure

« on: May 05, 2023, 11:30:55 PM »

Hmm I'm wrong.   my code is
  self.User = 'sAMAccountName=' & clip(self.User) ! clip(self.LoginDomain) &

Somehow that didn't make it through to Bruce

25

Web Server - Ask For Help / Re: NetLDAP bug in SetUser procedure

« on: May 05, 2023, 11:28:20 PM »

I was working on that area and made some changes mid last year.
I have a vague memory of there being problems if the user didn't use domain\name  but just name
in which case the \ is needed for the 2nd pass

In my case it was because the samaccount and upn were different names

I'll check but I think I'm using that code in production and it works.  So we may need to dig a bit

26

Web Server - Ask For Help / Re: Does the PostInsert Routine ever get called?

« on: April 02, 2023, 11:10:46 PM »

Do you have any auto-numbering in the table?

Yes.  It's an Invoice header.  Id is GUID but Invoice number is auto Numbered.

Is the <form> tag turned on?

No idea.  It mostly as generated.  Where's that?

Id the form in "insert mode"?

It's called from a browse Insert Button, so Yes.

27

Web Server - Ask For Help / Form Template Insert another

« on: March 30, 2023, 04:19:33 PM »

In the form template is a drop 'On Save, When inserting:'  With a drop with options: Return to Browse; Insert Another;

Setting this to Insert Another seems to have no affect at all.  Is this normal?

28

Web Server - Ask For Help / Does the PostInsert Routine ever get called?

« on: March 30, 2023, 04:16:14 PM »

I've set some traces in the postInsert routine, but they never fire?

Is this normal?

29

Web Server - Ask For Help / Re: How to open a new a page after insert

« on: February 28, 2023, 06:46:55 PM »

I got this working the way I want.
I added to the form an additional Save Button and changed the text to 'Save and Print'

In the browse in embed Browse Procedure -> 3 End of Procedure  I put
      IF p_web.GetValue('_buttontext_') = 'Save and Print'
          p_web.Script( p_web.WindowOpen('DocketPrint','_blank'),1)
      END

Which open a new window/tab with the print and leaves the browse in the origianal window.

30

Web Server - Ask For Help / Re: How to open a new a page after insert

« on: February 27, 2023, 09:08:13 PM »

Thanks Bruce,  Yes, I know, and I have a page that does just what you suggest. 
What I don't know how to do is to call that page between saving the form and return to the browse.

Any pointers on that?