Import nweadmin 0.1b from upstream zip

SRC/STARTFRM.PAS

@@ -0,0 +1,145 @@
+unit Startfrm;
+
+interface
+
+uses
+  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
+  Forms, Dialogs, NwBindry, NWConn, NWServ, StdCtrls, User, Buttons,
+  ExtCtrls, PassForm, SvrUTil;
+
+type
+  TForm1 = class(TForm)
+
+    Label1: TLabel;
+    SpeedButton1: TSpeedButton;
+    SpeedButton2: TSpeedButton;
+    SpeedButton3: TSpeedButton;
+    SpeedButton4: TSpeedButton;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    Image1: TImage;
+    procedure FormCreate(Sender: TObject);
+    procedure Label1Click(Sender: TObject);
+    procedure SpeedButton4Click(Sender: TObject);
+    procedure SpeedButton2Click(Sender: TObject);
+    procedure SpeedButton1Click(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
+    procedure AppActivate(Sender: TObject);
+    procedure FormPaint(Sender: TObject);
+    procedure SpeedButton3Click(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    FirstTime: Boolean;
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+  UzerID: String;
+implementation
+
+{$R *.DFM}
+
+
+
+procedure TForm1.AppActivate(Sender: TObject);
+begin
+  if FirstTime=FALSE then
+  begin
+    FirstTime:=True;
+
+  end;
+  FormActivate(Sender);
+end;
+
+
+procedure TForm1.FormCreate(Sender: TObject);
+var Lvl, ID: Byte;
+    UserName: String;
+    OwnID: Longint;
+begin
+  Application.OnActivate:=AppActivate;
+end;
+
+procedure TForm1.Label1Click(Sender: TObject);
+begin
+  BtnBottomDlg.ShowModal;
+end;
+
+procedure TForm1.SpeedButton4Click(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TForm1.SpeedButton2Click(Sender: TObject);
+begin
+  BtnBottomDlg.ShowModal;
+end;
+
+procedure TForm1.SpeedButton1Click(Sender: TObject);
+var IDz: Byte;
+begin
+  {Password Util}
+  UzerID:='';
+  GetPrimaryConnectionID(IDz);
+  if GetUserAtConnection(IDz,UzerID)=TRUE then
+  begin
+    if BtnBottomDlg1.ShowModal=mrOK then
+    begin
+      if VerifyEncrBinderyObjectPassword(UzerID, OT_USER, BtnBottomDlg1.Edit1.Text)=FALSE
+      then MessageDlg('Could not verify password!', mtError, [mbOK], 0)
+      else begin
+        {Change Password}
+        if BtnBottomDlg1.Edit2.Text=BtnBottomDlg1.Edit3.Text then
+        begin
+          if ChangeEncrBinderyObjectPassword(UzerID, OT_USER, BtnBottomDlg1.Edit1.Text, BtnBottomDlg1.Edit2.Text)=FALSE
+          then MessageDlg('Could not Change Password', mtError, [mbOK], 0) else
+            MessageDlg('Password Changed', mtInformation, [mbOK], 0);
+        end else MessageDlg('New Passwords don''t match!', mtError, [mbOK], 0);
+      end
+    end
+  end else MessageDlg('Could not fetch User Name!', mtError, [mbOK], 0);
+end;
+
+procedure TForm1.FormActivate(Sender: TObject);
+var ID, Lvl: Byte;
+    OwnID: Longint;
+    UserIDB, UserName: String;
+begin
+  UserIDB:='';
+  SpeedButton3.Enabled:=CheckConsolePrivileges;
+  GetBinderyAccessLevel(Lvl, OwnID);
+  SpeedButton2.Enabled:=(Lvl=$33);
+  GetPrimaryConnectionID(ID);
+  GetUserAtConnection(ID,UserIDB);
+  Panel2.Caption:=UserIDB;
+  UserNAme:='';
+  GetFileServerName(ID,UserName);
+  if UserName='' then
+  begin
+    UserName:='No Server!';
+    SpeedButton1.Enabled:=False;
+  end else SpeedButton1.Enabled:=True;
+  Panel1.Caption:=UserName;
+
+end;
+
+procedure TForm1.FormPaint(Sender: TObject);
+begin
+  FormActivate(Self);
+end;
+
+procedure TForm1.SpeedButton3Click(Sender: TObject);
+begin
+  BtnRightDlg1.ShowModal;
+end;
+
+procedure TForm1.FormShow(Sender: TObject);
+begin
+  MessageDlg('Welcome to NWE Administrator by James Jeffrey. Please read README for licence/warning etc. info.',
+    mtInformation, [mbOK], 0);
+end;
+
+end.