Perl function to get Date and Time in required format

# Function Name    : getDateTime
# Input            : Time in epoch or it could be empty.  In latter case, it would return current date and time.
# Output        : current time in dd-mm-yyyy hh:mm:sec format.
# Description    : This function returns current date and time in above given format.
# Created By    : Rinkesh Bansal
# Date            : 25-Sep-2011
#
sub getDateTime($)
{
    my ($input) = @_;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);

    if (trim($input) eq "")
    {
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    }
    else
    {
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($input);
    }

    $mon = $mon+1;
    $year = $year + 1900;

    $mday = (length($mday) eq 1)?0 . $mday:$mday;
    $mon = (length($mon) eq 1)?0 . $mon:$mon;
    $hour = (length($hour) eq 1)?0 . $hour:$hour;
    $min = (length($min) eq 1)?0 . $min:$min;
    $sec = (length($sec) eq 1)?0 . $sec:$sec;

    return "$mday-$mon-$year $hour:$min:$sec"; // change this line to change the format you like it to return
}

Running Netmeeting on Windows 7 box

Hi Everyone,

As you may have noticed that Windows-7 doesn't allow netmeeting.  But many users (like me) wanted netmeeting badly.  Follow below steps to make netmeeting work.

- Download and install Windows Virtual PC (approx 29 MB) and  Windows XP Mode (approx 470 MB) from
http://www.microsoft.com/windows/virtual-pc/download.aspx

- Install Windows Virtual PC

- Install Windows XP mode

- Launch Windows XP mode

- Login to it

- Run netmeeting as usual

- if you want to share your desktop (only screens of virtual pc not windows 7) then follow below steps

• Close NetMeeting
• Select "Disable integration Features" from the "Tools" menu
• Launch NetMeeting again 

- Enjoy

Note:  There is one catch here.  You cannot share the desktop of your Windows-7, only desktop of your virtual PC will be shown.