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

Vienna 3.0.6 :5eaf312: - RSS and Atom ne...
Vienna is a freeware and Open-Source RSS/Atom newsreader with article storage and management via a SQLite database, written in Objective-C and Cocoa, for the OS X operating system. It provides... Read more
Kodi 15.1.rc1 - Powerful media center to...
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
Bookends 12.5.8 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Access the power of Bookends directly from Mellel, Nisus Writer Pro, or MS Word (... Read more
Chromium 44.0.2403.125 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 44.0.2403.125: This release contains a number... Read more
iMazing 1.2.2 - Complete iOS device mana...
iMazing (was DiskAid) is the ultimate iOS device manager with capabilities far beyond what iTunes offers. With iMazing and your iOS device (iPhone, iPad, or iPod), you can: Copy music to and from... Read more
Audio Hijack 3.2.0 - Record and enhance...
Audio Hijack (was Audio Hijack Pro) drastically changes the way you use audio on your computer, giving you the freedom to listen to audio when you want and how you want. Record and enhance any audio... Read more
FontExplorer X Pro 5.0.1 - Font manageme...
FontExplorer X Pro is optimized for professional use; it's the solution that gives you the power you need to manage all your fonts. Now you can more easily manage, activate and organize your... Read more
Calcbot 1.0.2 - Intelligent calculator a...
Calcbot is an intelligent calculator and unit converter for the rest of us. Featuring an easy-to-read history tape, expression view, intuitive conversion, and much more! Features History Tape -... Read more
MTR 5.0.0.1 - The Mac's oldest and...
MTR (was MacTheRipper)--the Mac's oldest and smartest DVD-backup app--is now updated to version 5.001 MTR -- the complete toolbox, not a one-trick, point-and-click extractor. MTR is intended for... Read more
LibreOffice 4.4.5.2 - Free, open-source...
LibreOffice is an office suite (word processor, spreadsheet, presentations, drawing tool) compatible with other major office suites. The Document Foundation is coordinating development and... Read more

Card King: Dragon Wars - Tips, Tricks an...
[Read more] | Read more »
Pac-Man Championship Edition DX has brou...
Bandai Namco has released Pac-Man Championship Edition DX on iOS and Android, which features the classic arcade gameplay that we've all grown to love. Pac-Man Championship Edition DX can be enjoyed in much shorter bursts than the arcade versions... | Read more »
Cosmonautica (Games)
Cosmonautica 1.1 Device: iOS Universal Category: Games Price: $6.99, Version: 1.1 (iTunes) Description: Cast off! Are you ready for some hilarious adventures in outer space? | Read more »
Rescue humanity from a Demon horde in An...
Angel Stone is Fincon's follow up to the massively successful Hello Hero and is out now on iOS and Android. You play as a member of The Resistance, a group of mighty human warriors who have risen up in defiance of the Demon horde threatening to... | Read more »
Gallery Doctor (Photography)
Gallery Doctor 1.0 Device: iOS iPhone Category: Photography Price: $2.99, Version: 1.0 (iTunes) Description: Free up valuable iCloud and iPhone storage with Gallery Doctor, the only iPhone cleaner that automatically identifies the... | Read more »
You Against Me (Games)
You Against Me 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: A simple game… You. Me. Claim, steal, lock, score, win! | Read more »
Yep, it's True - Angry Birds 2 is O...
The not exactly rumors were true and the birds are back. Angry Birds 2 has come to the App Store and the world will... well I suppose it'll still be the same, but now we have more bird-flinging options! [Read more] | Read more »
You Could Design Your Own Card for Chain...
If you've ever wanted to create your own item, weapon, trap, or even monster for Chainsaw Warrior: Lords of the Night, this is your chance. Auroch Digital is currently holding a contest so that fans can fight to the death (not really) to see which... | Read more »
Bitcoin Billionaire is Going Back in Tim...
If you thought you managed to buy everything there is to buy in Bitcoin Billionaire and make all the money, well you though wrong. Those of you who made it far enough might remember investing in time travel - and it looks like that investment is... | Read more »
Domino Drop (Games)
Domino Drop 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Domino Drop is a delightful new puzzle game with dominos and gravity!Learn how to play it in a minute, master it day by day.Your... | Read more »

Price Scanner via MacPrices.net

27-inch 3.5GHz 5K iMac on sale for $81 off MS...
Adorama has the 27″ 3.5GHz 5K iMac on sale for $2218, $81 off MSRP, including a free copy of Apple’s 3-Year AppleCare Protection Plan. Shipping is free, and Adorama charges sales tax in NY & NJ... Read more
Back-to-School with Tablet and Smartphone Acc...
Belkin helps you prepare for the coming school year with a wide variety of the latest mobile and tablet accessories to outfit both grade school and college students. The line-up includes charging... Read more
11-inch MacBook Airs on sale for $100 off MSR...
Best Buy has 11-inch MacBook Airs on sale for $100 off MSRP. Choose free shipping or free local store pickup (if available). Sale prices for online orders only, in-store prices may vary: - 11″ 1.6GHz... Read more
iPad Air 2 on sale for up to $100 off MSRP
Best Buy has iPad Air 2s on sale for up to $100 off MSRP on their online store for a limited time. Choose free shipping or free local store pickup (if available). Sale prices available for online... Read more
Sale! 13-inch MacBook Pros on sale for $100 o...
B&H Photo has 13″ MacBook Pros on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.5GHz/500GB MacBook Pro: $999.99 save $100 - 13″ 2.7GHz/128GB Retina... Read more
Sale! Save $100 on 13-inch MacBook Airs this...
B&H Photo has the 13″ 1.6GHz/128GB MacBook Air on sale for $899.99 including free shipping plus NY tax only. Their price is $100 off MSRP, and it’s the lowest price available for this model.... Read more
Worldwide Tablet Market Decline Continues, Ap...
The worldwide tablet market declined -7.0% year-over-year in the second quarter of 2015 (2Q15) with shipments totaling 44.7 million units according to preliminary data from the International Data... Read more
TP-LINK TL-PA8030P KIT Powerline Featuring Ho...
Consumer and business networking products provider TP-LINK is now shipping its TL-PA8030P KIT AV1200 3-Port Gigabit Passthrough Powerline Starter Kit that expands your home’s network over its... Read more
Apple refurbished iPad Air 2s available for u...
The Apple Store has Apple Certified Refurbished iPad Air 2s available for up to $140 off the price of new models. Apple’s one-year warranty is included with each model, and shipping is free: - 128GB... Read more
Updated Apple iPad Price Trackers
We’ve updated our iPad Air Price Tracker and our iPad mini Price Tracker with the latest information on prices and availability from Apple and other resellers. Read more

Jobs Board

*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
Infrastructure Engineer - *Apple* /Mac - Hil...
Infrastructure Engineer - Apple /Mac Job Code: 1608 # of openings: 1 Description Our fortune 500 client is looking to hire an experienced Infrastructure Engineer to join Read more
Executive Administrative Assistant, *Apple*...
…supporting presentation development for senior leadership. * User experience with Apple hardware and software is preferred. Additional Requirements The following list Read more
*Apple* Bus Company is now hirin - Apple Bus...
Apple Bus Company is now hiring school bus drivers in the Pettis County area. Class B CDL preferred. Free training provided. No nights or weekends required. Flexible Read more
*Apple* Certified Mac Technician - Updated 6...
…and friendly, hands-on technical support to customers troubleshooting and repairing Apple /Mac products with courtesy, speed and skill. Use your problem-solving skills Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.