TweetFollow Us on Twitter

User log, tools
Volume Number:5
Issue Number:5
Column Tag:Programmer's Workshop

User Log and Programming Tools

By Dave Kelly, MacTutor Editorial Board

It was just a few short weeks ago that I was cleaning out our ‘nVir’ attack. Yea, about 8 out of 10 of our Macs had the dreaded disease. The guy that wrote it probably thinks he is real funny right now. Ha, Ha. Well, after about 15-20 hours worth of checking floppy disks and cleaning systems I’m not laughing. That just goes to show you that even when you think you are fine it could still get you. At least my own Mac at home was still clean.

Making a fuss like that in a big company doesn’t go over very well. The management has sent out an edict that all Macintoshes must be checked for viruses once each day. That’s a bit much, wouldn’t you say? In addition, they want every user (there are many more users than there are Macs) to log in each disk that they insert into a Macintosh. “WHAT?” you say. That’s right, write down on a log sheet your name and what disk you inserted into the system. I don’t need to tell you that most people don’t bother to write anything on the log sheets. This was bound to backfire somehow. Probably someone will think that few people use the Macintosh (this is obviously not true since it is hard to even get on a Mac during the day, and I have to bring my work home) and not allow us to buy more (much needed) computers.

There are a few options open to solve this problem. We could just lock up everyone’s floppy disks so that they can’t take them home, or buy a commercially available activity tracking system such as MacInUse to log each user in, or we could write a quick and dirty program to do at least part of the job for us. Buying a copy of software for every Mac we have doesn’t appeal to anyone since we do have a strict budget. I hope they realize how much free use of equipment they get when employees to work at home on their own computers. We must be able to backup and transport data via floppy disk. I opted to write a short program to do the job. I didn’t have the time to make it do everything, but it will meet the basic need to log everyone in.

HOW IT WORKS

The trick involved in this program is to get the program to run again after any application runs and when it quits, return back to the Finder. I didn’t want to remove any features from the Macintosh such as the Finder. It would be easier to just replace the Finder with another application but that would make it hard for users to copy their own disks, etc. There are two global memory locations that are used to make this work. The first one, CurApName at $910 gives us the name of our application in case someone changed the name. The second one, FinderName at $2E0 is the name of the finder which is used to tell the system which program to run when an application quits. By putting CurApName into FinderName our application will run after each time another application quits provided that our application is put in the system folder.

The program ‘Who?’ is a very simple program to record usage and on the computer. You may use 1 or more passwords (in case there are several people using the system). The passwords are stored in a STR# resource in the application. The passwords are not encrypted because most of the users that I come in contact with don’t have ResEdit or even if they did they wouldn’t know how to use it. The ones that do are going to get past this sort of password protection anyway. Remember, the main purpose is not to keep people out, but to log activity. You may edit passwords by changing the STR# resource.

When the program runs, a modal dialog box comes up to request the password and user’s name. The user must type in a name or the program will not end. (‘Enter Your Name here!’ is not a valid user name). When all the information has been filled in the user selects the OK button and if the password matches one of the STR# resource items, the program continues. At this point, the FinderName global is updated to the current application name as explained above. Next the available volumes are searched so that they can also be logged in. The purpose of this was to give some traceability if the virus appears again. We want to be able to trace to some extent who may have disks that are infected. This is not foolproof however because the user can always switch disks while running under another application. The function ‘GetIndVolume’ for searching for mounted volumes is found in technical note #24 by Bryan Stearns. This is a good one to keep around for future use.

The ‘Who?’ program finishes by fetching the time and date and storing the data to a file on disk, then launching the Finder. The log-in data file is set to invisible to make it harder to erase from the disk. It can be accessed via a word processor to examine who? has been using the Mac. I included a way to reset the FinderName back to Finder and make the log-in file visible. By typing ‘ShowLog’ (case sensitive) for the password, the log will become a visible file. By using ‘RestoreFinder’ (also case sensitive) for the user name, the FinderName global will be set to Finder. That’s about all there is to it. To set up the application, drag it into the system folder and then select it. Next choose ‘Set StartUp’ from the Finder’s Special menu. If you use ‘RestoreFinder’ be sure to ‘Set StartUp’ again or the system will get confused the next time you startup.

There is a lot of things that could be done to change this program to add features which you may feel are needed. While this by no means keeps the virus bug from coming, it does provide a bit of traceability to help in the clean up process.

program who;
 uses
 filestuff;

 const
 DialogID = 4912;{Resource ID number}
 FinderName = $2E0;{Global location of Finder name}
 CurApName = $910; {Global location of Current Application name}

 type {this type sets up structure for launching applications}
 pLaunchStruct = ^LaunchStruct;
 LaunchStruct = record
 pfName: StringPtr;
 param: integer;
 end; { LaunchStruct}
 var
 itemhit: integer;
 theDialog: Dialogptr;
 itemtype, index: integer;
 item2, item3: handle;
 box: rect;
 text2, text3, thepassword: str255;
 access, done: boolean;
 Filenameptr: STRINGptr;
 fName: str255;
 Finderptr: stringptr;
 pMyLaunch: pLaunchStruct;
 myLaunch: LaunchStruct;
 d: DateTimeRec;
 datafile: str255;
 data: text;

 procedure Launchit (pLnch: pLaunchStruct);  {Launch an application}
 inline
 $205F, $A9F2;

 procedure writedata;{store the log in file to disk}
 var
 whichvol, VolRefNum: integer;
 volName: str255;
 Result: OSErr;
 fndrInfo: FInfo;
 flgptr: ptr;
 begin
 datafile := ‘Log in.data’; {set filename for data file}
 open(data, datafile);    {open the file}
 seek(data, maxlongint);  {find the end of the file}
 writeln(data, text3, ‘  ‘, text2, ‘  ‘, d.Month : 3, ‘/’, d.Day : 2, 
‘/’, d.Year : 4, d.Hour : 3, ‘:’, d.Minute : 2, ‘:’, d.Second : 2);
 whichVol := 1;  { start searching for disks in 1st vol.}
 repeat { find all the volumes that are currently mounted}
 begin
 Result := GetIndVolume(whichVol, volName, VolRefNum);
 if Result <> nsvErr then
 begin  {store the volumes on line to system disk}
 writeln(data, whichvol, ‘:  ‘, volName);
 whichVol := whichVol + 1;
 end;
 end;
 until Result = nsvErr;
 close(data);
 Result := GetFInfo(datafile, 0, fndrInfo);
 if BitAnd(fndrInfo.fdFlags, fInvisible) <> 16384 then
 fndrInfo.fdFlags := fndrInfo.fdFlags + fInvisible;
 if text2 = ‘ShowLog’ then
 fndrInfo.fdFlags := fndrInfo.fdFlags - fInvisible;
 Result := SetFInfo(datafile, 0, fndrInfo);
 end;

begin {start of main program}
 initcursor;
 access := false;
 text2 := ‘Enter Password here!’;
 text3 := ‘Enter Your Name here!’;
 theDialog := getnewdialog(dialogID, nil, POINTER(-1));
 getditem(thedialog, 2, itemtype, item2, box);
 setItext(item2, text2);
 getditem(thedialog, 3, itemtype, item3, box);
 setItext(item3, text3);
 repeat
 SelIText(theDialog, 2, 0, 32767);
 itemhit := 10;
 repeat
 modaldialog(nil, itemhit);
 until itemhit = 1;
 getItext(item2, text2);
 getItext(item3, text3);
 done := false;
 index := 1;
 repeat
 begin
 getindstring(thepassword, DialogID, index);
 if (text2 = thepassword) and (thepassword <> ‘’) then
 access := true;
 if access = true then
 done := true;
 if thepassword = ‘’ then
 done := true;
 index := index + 1;
 end;
 until done = true;
 if access = false then
 setItif text3 = ‘Enter Your Name here!’ then
 access := false;
 until access = true;
 closedialog(theDialog);
 Filenameptr := STRINGptr(CurApName);
 fName := Filenameptr^;
 Filenameptr := STRINGptr(FinderName);
 Filenameptr^ := fName;
 if text3 = ‘RestoreFinder’ then
 Filenameptr^ := ‘Finder’;
 GetTime(d);
 WriteData;
 pMyLaunch := @myLaunch;
 fName := ‘Finder’;
 with pMyLaunch^ do
 begin
 pfname := @fName;
 param := 0;
 end;
 LaunchIt(pMyLaunch);
end.

unit Filestuff;
{ From Macintosh Technical Notes #24 }
{ by Bryan Stearns}

interface
 function GetIndVolume (whichVol: integer; var volName: str255; var volRefNum: 
Integer): OSErr;

implementation

 function GetIndVolume;  {(whichVol: integer, var volName: str255, var 
volRefNum: Integer): OSErr;}

{Return the name and vRefNum of volume specified by whichVol}

 var
 volPB: HParamBlockRec;
 error: OSErr;
 begin
 with volPB do   {makes it easier to fill in!}
 begin
 ioNamePtr := @volName; {make sure it returns the name}
 ioVRefNum := 0; {0 means use ioVolIndex}
 ioVolIndex := whichVol;  {use this to determine the volume}
 end; {with}
 error := PBHGetVInfo(@volPB, false);{do it}
 if error = noErr then
 begin
 volRefNum := volPB.ioVRefNum;
 end; {if no error}
{other information is available from this record; see the FILE }
{Manager’s description of PBHGetVInfo for more details}
 GetIndVolume := error; {return error code}
 end;

end.  {of unit}

WHO.rsc

resource  ‘ICN#’ (128, purgeable)
{
    0x07ff 0xffe0 0x39e0 0x079c 
    0xff70 0x0eff 0x83d8 0x1bc1 
    0x80fc 0x3f01 0x81ce 0x7381 
    0x8303 0xc0c1 0x8201 0x8041 
    0x8631 0x8c61 0x8631 0x8c61 
    0x8631 0x8c61 0x8201 0x8041 
    0x8303 0xc0c1 0x81cf 0xf381 
    0x81ff 0xff81 0x8101 0x8081 
    0x8301 0x80c1 0x8300 0x00c1 
    0x8300 0x00c1 0x8700 0x00e1 
    0x8700 0x00e1 0xa500 0x00a5 
    0xa500 0x00a5 0xa580 0x01a5 
    0xa7bb 0xdde5 0xa6f9 0x9f65 
    0xacc0 0x0335 0xb8ee 0x771d 
    0xb0f4 0x2f0d 0xe1fb 0xdf87 
    0xc3ff 0xffc3 0x82d7 0xeb41 ;

    0x07ff 0xffe0 0x3fff 0xfffc 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
    0xffff 0xffff 0xffff 0xffff 
};

userdefined resource  ‘Dave’ (0)
{
    long:0x2557686f;
    long:0x3f205665;
    long:0x7273696f;
    long:0x6e20312e;
    long:0x30310da9;
    long:0x31393839;
    long:0x20627920;
    long:0x44617665;
    long:0x204b656c;
    integer:27769};

resource  ‘BNDL’ (130)
{
    ‘Dave’,     0,
    {
    ‘FREF’, {1, 129};
    ‘ICN#’, {0, 128}
    }
};

resource  ‘FREF’ (129)
{
    ‘APPL’,
    0,
    “”
};

resource  ‘STR#’ (4912 , “Passwords”)
{
    “MacTutor”;
    “ShowLog”
};

resource  ‘DLOG’ (4912)
{
    {64, 32, 180, 354},
    0,
    visible,
    noGoAway,
    0x0,
    4912,
    “Please Log in\0xc9”
};

resource  ‘DITL’ (4912)
{
  {
    {76, 128, 96, 188},
      Button {enabled, “OK”};
    {15, 123, 34, 303},
      EditText {enabled, “Enter Password Here!”};
    {42, 123, 61, 303},
      EditText {enabled, “Enter Your Name Here!”};
    {15, 43, 33, 116},
      StaticText {enabled, “Password:”};
    {42, 16, 61, 119},
      StaticText {enabled, “Name/Initials:”}
  }
};

Mac Programming Tools

Some mention has been made in the past regarding programming tools which create the Macintosh user interface. In October, 1988, MacTutor presented a comparison of Prototyper™ 1.0, MacExpress, and FaceIt™ all products to help programmers with the user interface. In order to update the list of these programs, I would be amiss if I did not mention Invention Software’s Professional Programmer’s EXTENDER™ (Full Source Code Version) and say a few words about the new release of Prototyper™ 2.0.

EXTENDER™ consists of a very large set of routines which may be used to implement all or portions of the Macintosh interface. It consists of C or Pascal source code, your choice, which you must compile with your application. Unlike the FaceIt™ which must have the library file available when running the application, EXTENDER™ allows you to use and compile all or parts of the routines as needed. The main problem with this is that the possible routines you may use are are as numerous as the first three volumes of Inside Macintosh.

EXTENDER™ comes with your choice of language disks and a huge binder which reminded me of the early Macintosh development days when Inside Macintosh was only available as loose leaf pages. (You can still get Inside Macintosh as loose leaf pages if you want). Routines included are:

• Menu

• Windows

• Controls

• Scroll Bars

• Dialogs and Alert Boxes

• Text Editing

• Bit Maps

• Graphics

• Printing

• The List Manager

• Popup menus

• Input/Output routines

• Event handling

Each of the categories above are organized in a tutorial/reference format so you can study and learn how to implement the routines by observing and practicing the demos provided. Be prepared to do a lot of reading.

There are updates available from time to time which will correct some of the problems which come up. If there are problems it is nearly always more difficult to debug someone elses code than to debug your own. The problem is that whenever generic routines are used there are cases or exceptions when you want to do something just a bit different. In EXTENDER™ that requires modifying code that someone else wrote.

Prototyper™ 2.0 is a major new release from SmethersBarnes. If you thought that Prototyper™ 1.0 was great, you’ll love this version. Dozens of new features have been added to Prototyper™ based on comments of programmers and user interface designers. In particular Prototyper™ 2.0 adds:

• New Code Generators

• Enhanced Screen Layout Capabilities

• Macintosh User Interface Feature Additions

So what’s new? The following is a list of new features which will convince you that you should upgrade or buy Prototyper™ 2.0:

C code generation

C programmers have been begging for this since version 1.0 was released. Two separate code generators are included with Prototyper™ 2.0, one for C generation and one for Pascal. The Pascal generator creates source code for LightSpeed Pascal 2.0, Turbo Pascal, MPW Pascal, and TML Pascal II. The C generator creates source code for LightSpeed C, MPW C 2.0 and MPW C 3.0.

Screen Layout

The layout features you have seen in version 1.0 have been improved so that you can manipulate zones similar to the way you would in drawing programs. It is much easier to group and align objects. Screen grids and a new coordinate window let you position zones exactly down to the pixel.

Popup & hierarchical menus

The menu editor now supports one level of hierarchical menus. Most applications will probably never need more than one hierarchical level. Popup menus are included in the window palettes so you can place them anywhere in your window.

Set location

The window editor has been enhanced to support any size of monitor. Self centering options may be selected to center the window for any size screen. The screen grid mentioned above helps align objects on the window also.

Linking

You can now link menus, buttons, and menu items to enable/disable each other or to open or close windows. The standard dialogs for ‘Print’ and ‘Page Setup’ can be linked to open. The flow of an entire application can be establish through this simple mechanism. It is as easy as linking HyperCards together.

Other Features

You can now import and export resources from other applications. A ‘Print to file’ option lets you output your screen designs to a MacPaint file to be used for documentation or other purposes. ‘Demo’ windows have been added to allow you to created canned graphics and word processing windows. Prototyper™ 2.0 includes a new and much improved manual. The manual includes a tutorial, and detailed information about every aspect of the program.

After using EXTENDER™ and Prototyper™ for some time now I will have to say the I prefer Prototyper™. EXTENDER™ has so many routines to become familiar with that I feel it would take about as long to learn it as to use Inside Macintosh and get to know the routines that are standard. With tools like Prototyper™ around I can create the structural part of my user interface with the minimum of discomfort.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Kodi 15.0.beta1 - Powerful media center...
Kodi (was XBMC) is an award-winning free and open-source (GPL) software media player and entertainment hub that can be installed on Linux, OS X, Windows, iOS, and Android, featuring a 10-foot user... Read more
DiskCatalogMaker 6.4.12 - Catalog your d...
DiskCatalogMaker is a simple disk management tool which catalogs disks. Simple, light-weight, and fast. Finder-like intuitive look and feel. Super-fast search algorithm. Can compress catalog data... Read more
Macs Fan Control 1.3.0.0 - Monitor and c...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more
Lyn 1.5.11 - Lightweight image browser a...
Lyn is a lightweight and fast image browser and viewer designed for photographers, graphic artists and Web designers. Featuring an extremely versatile and aesthetically pleasing interface, it... Read more
NeoOffice 2014.11 - Mac-tailored, OpenOf...
NeoOffice is a complete office suite for OS X. With NeoOffice, users can view, edit, and save OpenOffice documents, PDF files, and most Microsoft Word, Excel, and PowerPoint documents. NeoOffice 3.x... Read more
LaunchBar 6.4 - Powerful file/URL/email...
LaunchBar is an award-winning productivity utility that offers an amazingly intuitive and efficient way to search and access any kind of information stored on your computer or on the Web. It provides... Read more
Remotix 3.1.4 - Access all your computer...
Remotix is a fast and powerful application to easily access multiple Macs (and PCs) from your own Mac. Features Complete Apple Screen Sharing support - including Mac OS X login, clipboard... Read more
DesktopLyrics 2.6.6 - Displays current i...
DesktopLyrics is an application that displays the lyrics of the song currently playing in "iTunes" right on your desktop. The lyrics for the song have to be set in iTunes; DesktopLyrics does nothing... Read more
VOX 2.5.1 - Music player that supports m...
VOX is a beautiful music player that supports many filetypes. The beauty is in its simplicity, yet behind the minimal exterior lies a powerful music player with a ton of features and support for all... Read more
Microsoft Remote Desktop 8.0.18 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more

Biz Builder Delux (Games)
Biz Builder Delux 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Ah, there's nothing like the rhythmic bustle of a burgeoning business burg... especially when you're the one building it... | Read more »
Auroch Digital is Bringing Back Games Wo...
| Read more »
Carbo - Handwriting in the Digital Age...
Carbo - Handwriting in the Digital Age 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Draggy Dead (Games)
Draggy Dead 1.1 Device: iOS Universal Category: Games Price: $.99, Version: 1.1 (iTunes) Description: Ditch your dead end job and take up a rewarding career in Grave Robbing today!Guide the recently deceased to a fun filled life of... | Read more »
Bad Dinos (Games)
Bad Dinos 1.0.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.0 (iTunes) Description: | Read more »
The Apple Watch isn't Great as a Fi...
| Read more »
Show the World What You See With Stre.am...
Live broadcasting is getting popular on mobile devices, which is why you can now get Stre.am, by Infinite Takes. [Read more] | Read more »
PhotoTime's 2.1 Update Adds Apple W...
The latest PhotoTime update is adding even more functionality to the handy photo organizing app. Yep, including Apple Watch support. [Read more] | Read more »
Oh My Glob! Adventure Time Puzzle Quest...
Finn and Jake are taking over D3 Go!'s popular puzzle game series in the upcoming Adventure Time Puzzle Quest. [Read more] | Read more »
Earthcore: Shattered Elements - Tips, Tr...
At first glance, Earthcore: Shattered Elements seems like a rather simple card-battling game. Once you’re introduced to skills that will change quite a bit. Even more so once you start to acquire hero cards. But it’s not so complicated that we... | Read more »

Price Scanner via MacPrices.net

New 27-inch 3.3GHz 5K iMac in stock with free...
Adorama has the new 27″ 3.3GHz 5K iMac in stock today for $1999 including free shipping plus NY & NJ sales tax only. Adorama will include a free copy of Apple’s 3-year AppleCare Protection Plan. Read more
Memorial Day Weekend Sale: New 27-inch 3.3GHz...
Best Buy has the new 27″ 3.3GHz 5K iMac on sale for $1899.99 this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary... Read more
OtterBox Maximizes Portability, Productivity...
From the kitchen recipe book to the boarsroom presentation, the OtterBox Agility Tablet System turns tablets into one of the most versatile pieces of handheld technology available. Available now, the... Read more
Launch of New Car App Gallery and Open Develo...
Automatic, a company on a mission to bring the power of the Internet into every car, has announced the launch of the Automatic App Gallery, an app store for nearly every car or truck on the road... Read more
Memorial Day Weekend Sale: 13-inch 1.6GHz Mac...
Best Buy has the new 13″ 1.6GHz/128GB MacBook Air on sale for $849 on their online store this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders... Read more
Memorial Day Weekend Sale: 27-inch 3.5GHz 5K...
Best Buy has the 27″ 3.5GHz 5K iMac on sale for $2099.99 this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary.... Read more
Sale! 16GB iPad mini 3 for $349, save $50
B&H Photo has the 16GB iPad mini 3 WiFi on sale for $349 including free shipping plus NY sales tax only. Their price is $50 off MSRP, and it’s the lowest price available for this model. Read more
Price drop on 2014 15-inch Retina MacBook Pro...
B&H Photo has dropped prices on 2014 15″ Retina MacBook Pros by $200. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799.99 save $200 - 15″ 2.5GHz... Read more
With a Mission to Make Mobile Free, Scratch W...
Scratch Wireless, claiming to be the world’s first truly free mobile service, has announced the availability of a new Scratch-enabled Android smartphone, the Coolpad Arise. The smartphone is equipped... Read more
First-Ever Titanium Alloy Curved iPhone 6 Scr...
One of the most common problems with mobile phones is damage to the screens. The slightest drop can cause a dreaded spider web of gashes and cracks in the glass panel surface that can cost $hundreds... Read more

Jobs Board

*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
*Apple* TV Live Streaming Frameworks Test En...
**Job Summary** Work and contribute towards the engineering of Apple 's state-of-the-art products involving video, audio, and graphics in Interactive Media Group (IMG) at Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Partner Marketing Manager, Merchant- *Apple*...
**Job Summary** The Apple Pay partner marketing team is looking for a marketing manager to develop and drive US marketing programs with our merchant partners. The right Read more
Technical Project Manager - *Apple* Pay - A...
**Job Summary** Apple Pay is seeking an experienced technical PM to…manage the on boarding of new merchants for the Apple Pay platform in the US Within this role you Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.