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.


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;

 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}
 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}
 $205F, $A9F2;

 procedure writedata;{store the log in file to disk}
 whichvol, VolRefNum: integer;
 volName: str255;
 Result: OSErr;
 fndrInfo: FInfo;
 flgptr: ptr;
 datafile := ‘Log’; {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}
 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;
 until Result = nsvErr;
 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);

begin {start of main program}
 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);
 SelIText(theDialog, 2, 0, 32767);
 itemhit := 10;
 modaldialog(nil, itemhit);
 until itemhit = 1;
 getItext(item2, text2);
 getItext(item3, text3);
 done := false;
 index := 1;
 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;
 until done = true;
 if access = false then
 setItif text3 = ‘Enter Your Name here!’ then
 access := false;
 until access = true;
 Filenameptr := STRINGptr(CurApName);
 fName := Filenameptr^;
 Filenameptr := STRINGptr(FinderName);
 Filenameptr^ := fName;
 if text3 = ‘RestoreFinder’ then
 Filenameptr^ := ‘Finder’;
 pMyLaunch := @myLaunch;
 fName := ‘Finder’;
 with pMyLaunch^ do
 pfname := @fName;
 param := 0;

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

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


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

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

 volPB: HParamBlockRec;
 error: OSErr;
 with volPB do   {makes it easier to fill in!}
 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
 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.  {of unit}


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)

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

resource  ‘FREF’ (129)

resource  ‘STR#’ (4912 , “Passwords”)

resource  ‘DLOG’ (4912)
    {64, 32, 180, 354},
    “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.


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

HandBrake 1.0.2 - Versatile video encode...
HandBrake is a tool for converting video from nearly any format to a selection of modern, widely supported codecs. Features Supported Sources VIDEO_TS folder, DVD image or real DVD (unencrypted... Read more
PhotoDesk 4.1.5 - Instagram client for p...
PhotoDesk lets you view, like, comment, and download Instagram pictures/videos. (NO Uploads! / Image Posting! Instagram forbids that! AND you need an existing Instagram account). But you can do so... Read more
Sound Studio 4.8.6 - Robust audio record...
Sound Studio lets you easily record and professionally edit audio on your Mac. Easily rip vinyls and digitize cassette tapes, or record lectures and voice memos. Prepare for live shows with live... Read more
Capo 3.5.1 - Slow down and learn to play...
Capo lets you slow down your favorite songs so you can hear the notes and learn how they are played. With Capo, you can quickly tab out your songs atop a highly-detailed OpenCL-powered spectrogram... Read more
Google Earth - View and contr...
Google Earth gives you a wealth of imagery and geographic information. Explore destinations like Maui and Paris, or browse content from Wikipedia, National Geographic, and more. Google Earth combines... Read more
QuickBooks R12 - Financial...
QuickBooks helps you manage your business easily and efficiently. Organize your finances all in one place, track money going in and out of your business, and spot areas where you can save. Built for... Read more
Google Earth - View and contr...
Google Earth gives you a wealth of imagery and geographic information. Explore destinations like Maui and Paris, or browse content from Wikipedia, National Geographic, and more. Google Earth combines... Read more
QuickBooks R12 - Financial...
QuickBooks helps you manage your business easily and efficiently. Organize your finances all in one place, track money going in and out of your business, and spot areas where you can save. Built for... Read more
FileZilla 3.24.0 - Fast and reliable FTP...
FileZilla (ported from Windows) is a fast and reliable FTP client and server with lots of useful features and an intuitive interface. Version 3.24.0: New The context menu for remote file search... Read more
Bookends 12.7.8 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more

Super Mario Run dashes onto Android in M...
Super Mario Run was one of the biggest mobile launches in 2016 before it was met with a lukewarm response by many. While the game itself plays a treat, it's pretty hard to swallow the steep price for the full game. With that said, Android users... | Read more »
WarFriends Beginner's Guide: How to...
Chillingo's new game, WarFriends, is finally available world wide, and so far it's a refreshing change from common mobile game trends. The game's a mix of tower defense, third person shooter, and collectible card game. There's a lot to unpack here... | Read more »
Super Gridland (Entertainment)
Super Gridland 1.0 Device: iOS Universal Category: Entertainment Price: $1.99, Version: 1.0 (iTunes) Description: Match. Build. Survive. "exquisitely tuned" - Rock Paper Shotgun No in-app purches, and no ads! | Read more »
Red's Kingdom (Games)
Red's Kingdom 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Mad King Mac has kidnapped your father and stolen your golden nut! Solve puzzles and battle goons as you explore and battle your... | Read more »
Turbo League Guide: How to tame the cont...
| Read more »
Fire Emblem: Heroes coming to Google Pla...
Nintendo gave us our first look at Fire Emblem: Heroes, the upcoming mobile Fire Emblem game the company hinted at last year. Revealed at the Fire Emblem Direct event held today, the game will condense the series' tactical RPG combat into bite-... | Read more »
ReSlice (Music)
ReSlice 1.0 Device: iOS Universal Category: Music Price: $9.99, Version: 1.0 (iTunes) Description: Audio Slice Machine Slice your audio samples with ReSlice and create flexible musical atoms which can be triggered by MIDI notes or... | Read more »
Stickman Surfer rides in with the tide t...
Stickson is back and this time he's taken up yet another extreme sport - surfing. Stickman Surfer is out this Thursday on both iOS and Android, so if you've been following the other Stickman adventures, you might be interested in picking this one... | Read more »
Z-Exemplar (Games)
Z-Exemplar 1.4 Device: iOS Universal Category: Games Price: $3.99, Version: 1.4 (iTunes) Description: | Read more »
5 dastardly difficult roguelikes like th...
Edmund McMillen's popular roguelike creation The Binding of Isaac: Rebirth has finally crawled onto mobile devices. It's a grotesque dual-stick shooter that tosses you into an endless, procedurally generated basement as you, the pitiable Isaac,... | Read more »

Price Scanner via

12-inch 1.2GHz Space Gray Retina MacBook on s...
Amazon has the 2016 12″ 1.2GHz/512GB Space Gray Retina MacBook (Apple model #MLH82LL/A) on sale for $1299.99 including free shipping. Their price is $300 off MSRP. Read more
Twelve South Releases RelaxedLeather Cases fo...
Inspired by the laid-back luxury of burnished leather boots and crafted in rich tones of taupe, herb and marsala, RelaxedLeather cases deliver smart, easy protection for the iPhone 7. Each genuine... Read more
Week’s Best Deal: New 2016 13-inch 2.0GHz Mac...
Amazon has the new 2016 13″ 2.0GHz non-Touch Bar MacBook Pros on sale for a limited time for $225 off MSRP including free shipping: - 13″ 2.0GHz MacBook Pro, Space Gray (MLL42LL/A): $1274.99 $225 off... Read more
Back in stock: Apple refurbished Mac minis fr...
Apple has Certified Refurbished Mac minis available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz Mac mini: $419 $80 off MSRP - 2.6GHz Mac... Read more
Apple Ranked ‘Most Intimate Brand’
The top ranked ‘”intimate” brands continued to outperform the S&P and Fortune 500 indices in revenue and profit over the past 10 years, according to MBLM’s Brand Intimacy 2017 Report, the largest... Read more
B-Eng introduces SSD Health Check for Mac OS
Fehraltorf, Switzerland based independant Swiss company- B-Eng has announced the release and immediate availability of SSD Health Check 1.0, the company’s new hard drive utility for Mac OS X. As the... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free: -... Read more
4-core 3.7GHz Mac Pro on sale for $2290, save...
Guitar Center has the 3.7GHz 4-core Mac Pro (MD253LL/A) on sale for $2289.97 including free shipping or free local store pickup (if available). Their price is a $710 savings over standard MSRP for... Read more
128GB Apple iPad Air 2, refurbished, availabl...
Apple has Certified Refurbished 128GB iPad Air 2s WiFis available for $419 including free shipping. That’s an $80 savings over standard MSRP for this model. A standard Apple one-year warranty is... Read more
13-inch 2.7GHz Retina MacBook Pro on sale for...
B&H Photo has the 2015 13″ 2.7GHz/128GB Retina Apple MacBook Pro on sale for $100 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro (MF839LL/A): $... Read more

Jobs Board

*Apple* macOS Systems Integration Administra...
…most exceptional support available in the industry. SCI is seeking an Junior Apple macOS systems integration administrator that will be responsible for providing Read more
*Apple* Retail - Multiple Positions- Deer Pa...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Technician - nfrastructure (United S...
Let’s Work Together Apple Technician This position is based in Portland, ME Life at nfrastructure At nfrastructure, we understand that our success results from our Read more
*Apple* Mobile Master - Best Buy (United Sta...
**467692BR** **Job Title:** Apple Mobile Master **Location Number:** 000602-Columbia MO-Store **Job Description:** **What does a Best Buy Apple Mobile Master Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.