1 # Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 #

    15 

    16 use Win32;

    17 

    18 my $computer;

    19 $computer=Win32::NodeName();

    20 $machineName = lc($computer);

    21 

    22 $fileName = "\\epoc32\\winscw\\c\\msgtest\\MachineName.txt";

    23 open(FILE, "> " . $fileName);

    24 

    25 # Write settings to output files

    26 print FILE "$machineName";

    27 close(FILE);