RE: Creating interactive process on remote clients with WMI

2003-06-25 Thread Scott Campbell
I have tried to do this, and emailed the forum, but with no reponse.
From all my reading of the msdn site, it appears that when creating
remote processes via WMI, they cannot be interactive, for security
reasons.  If creating a process locally via WMI, it can be interactive.
Someone may correct me if I'm wrong, but this is where I ended up.

Scott Campbell
Senior Software Developer
Somix Technologies
http://www.somix.com



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Jangale V-S SPEL-TIT
Sent: Wednesday, June 25, 2003 7:02 AM
To: '[EMAIL PROTECTED]'
Subject: Creating interactive process on remote clients with WMI


Dear All,

I am using W2K, SP3

I trying to launch a process on remote computer
using WMI. However this process need to interactive.

Following is my attempt

use Win32::OLE qw( in );
use Win32::OLE::Variant;

$Machine = . unless( $Machine = shift @ARGV );
$Machine =~ s#^[\\/]+## if( $Machine =~ m#^[\\/]{2}# );
$CLASS = WinMgmts:{impersonationLevel=impersonate}!//$Machine;
$WMI = Win32::OLE-GetObject( $CLASS )   || die Unable to connect to
$Machine: . Win32::OLE-lastError();

$PROCESSSTARTUP = $WMI-Get(Win32_ProcessStartup)-SpawnInstance_;

$PROCESSSTARTUP-{WinstationDesktop} = winsta0\\default;
$PROCESSSTARTUP-{ShowWindow} = 1;

print $PROCESSSTARTUP-{WinstationDesktop}\n;

$Process = $WMI-Get( Win32_Process )   || die Unable to get the
process
list: . Win32::OLE-LastError();

$vPid = Variant( VT_I4 | VT_BYREF, 0 );
$test =join(  , @ARGV );
if( 0 == $Process-Create( join(  , @ARGV ), undef, $PROCESSSTARTUP,
$vPid
) )
{
print Process successfully created with PID $vPid\n;
}
else
{
print Failed to create process.\n;
}


However, the process created on remote desktop is not interactive !

How can I make the process interactive ??


With Best Regards,

V.S. Jangale

___
Perl-Win32-Users mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Fatal problem with Net::Ping

2003-06-25 Thread Bullock, Howard A.
Resending as I never saw it mailed from the list server.

The plain Perl program has failed with the following error:

Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at
E:/Perl/lib/Socket.pm line 312.

Can anyone shed light on this error?

-Original Message-
From: Bullock, Howard A. 
Sent: Monday, June 23, 2003 8:36 PM
To: 'Everett, Toby'; [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: RE: Fatal problem with Net::Ping

Thanks for the reply. I am currently testing the code as a typical program
not using the ActiveState PDK tools PerlSvc or Perlapp. If the problem is
with Net::Ping then I would expect the program to fail within the next 12
hours. I hoping to determine if the PerlSvc wrapper is at all involved in
the failure. If the program fails then I suspect Net::Ping. If the program
does not fail, then the PerlSvc wrapper may be involved somehow.



___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Creating interactive process on remote clients with WMI

2003-06-25 Thread FARRINGTON, RYAN
Title: RE: Creating interactive process on remote clients with WMI





truthfully a good way around this is to create the process as a scheduled job (using WMI) and make sure it is set to go off 1-2 mins ahead of the current time... we use it and from what I can tell a lot of Microsoft Certified Partners do the same tasks when dealing with remote installs and other processes that may require a interactive session on the remote machine... =) hope this helps

-Original Message-
From: Scott Campbell [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 25, 2003 6:46 AM
To: 'Jangale V-S SPEL-TIT'; [EMAIL PROTECTED]
Subject: RE: Creating interactive process on remote clients with WMI



I have tried to do this, and emailed the forum, but with no reponse.
From all my reading of the msdn site, it appears that when creating
remote processes via WMI, they cannot be interactive, for security
reasons. If creating a process locally via WMI, it can be interactive.
Someone may correct me if I'm wrong, but this is where I ended up.


Scott Campbell
Senior Software Developer
Somix Technologies
http://www.somix.com




-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] On Behalf Of
Jangale V-S SPEL-TIT
Sent: Wednesday, June 25, 2003 7:02 AM
To: '[EMAIL PROTECTED]'
Subject: Creating interactive process on remote clients with WMI



Dear All,


I am using W2K, SP3


I trying to launch a process on remote computer
using WMI. However this process need to interactive.


Following is my attempt


use Win32::OLE qw( in );
use Win32::OLE::Variant;


$Machine = . unless( $Machine = shift @ARGV );
$Machine =~ s#^[\\/]+## if( $Machine =~ m#^[\\/]{2}# );
$CLASS = WinMgmts:{impersonationLevel=impersonate}!//$Machine;
$WMI = Win32::OLE-GetObject( $CLASS ) || die Unable to connect to
$Machine: . Win32::OLE-lastError();


$PROCESSSTARTUP = $WMI-Get(Win32_ProcessStartup)-SpawnInstance_;


$PROCESSSTARTUP-{WinstationDesktop} = winsta0\\default;
$PROCESSSTARTUP-{ShowWindow} = 1;


print $PROCESSSTARTUP-{WinstationDesktop}\n;


$Process = $WMI-Get( Win32_Process ) || die Unable to get the
process
list: . Win32::OLE-LastError();


$vPid = Variant( VT_I4 | VT_BYREF, 0 );
$test =join(  , @ARGV );
if( 0 == $Process-Create( join(  , @ARGV ), undef, $PROCESSSTARTUP,
$vPid
) )
{
 print Process successfully created with PID $vPid\n;
}
else
{
 print Failed to create process.\n;
}



However, the process created on remote desktop is not interactive !


How can I make the process interactive ??



With Best Regards,


V.S. Jangale


___
Perl-Win32-Users mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs





Re: Random Numbers

2003-06-25 Thread Keith C. Ivey
[EMAIL PROTECTED] [EMAIL PROTECTED] wrote:

 On my unix (Solaris 2.5.1, 2.7, 2.8)/linux boxes perl 5.005
 'works', 5.6 and above doesn't (various DOS's 4.0.1.8 on work
 (4.0.1.6 doesn't) - except for one old Suse linux on 5.005 which
 doesn't) - it must be some oddness w/ rand. 

It depends on the setting of randbits in the configuration.  
Try this:

perl -MConfig -le print $Config{randbits}

(use single quotes on non-Windows platforms, of course).
The perls that give lots of 0's will have randbits set
to 15.

-- 
Keith C. Ivey [EMAIL PROTECTED]
Washington, DC

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Timout using eval

2003-06-25 Thread saber zrelli
The result is the same andrew !
did u tried that snippet ?
i'm just running it , and noticed no changes .
could it be perl versions ?
i'm in perl 5.0.8 


Saber.


- Original Message - 
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 11:20 AM
Subject: RE: Timout using eval


You just have to re-order things a bit I think, and remove the local:

 $SIG{ALRM}= sub {die TIMEOUT_PASSED\n};

 eval {
alarm (3);
printf  get character \n ;
$data =  ;

  }; # eval  the eval block should take less  3 secs otherwise , timeout function is 
fired

  alarm (0);

  if ($@ =~ /TIMEOUT_PASSED/) {
# treat timeout
printf  TIMEOUT  : no data to read \n ;
 }

-Original Message-
From: saber zrelli [mailto:[EMAIL PROTECTED]
Sent: 25 June 2003 09:32
To: [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: Timout using eval


Hi ,
I'm trying to timeout an event , i'm searching for an implementation to perform that ,
i tried the eval die technique , but the result is not what i need  , this is a sample 
code :

---
 my$data;

 eval {
local $SIG{ALRM}= sub {die TIMEOUT_PASSED\n};
alarm (3);
printf  get character \n ;
$data =  ;
alarm (0);

  }; # eval  the eval block should take less  3 secs otherwise , timeout function is 
fired

  if ($@ =~ /TIMEOUT_PASSED/) {
# treat timeout
printf  TIMEOUT  : no data to read \n ;
 }
 
---

the above code , did not wait 3 secs for the user input , it waits forever !

Could someone help please.

Thks.



---
Saber ZRELLI
STMicroelectronics
Aplication Engineer Tunis VQT Team.
Office   126
Personal Phone   +216  22552432




Ëb½ãÞ®YsSX§'X¬´-S÷z¹eSËlz»Àrدy+Zµç((tm):.z˱Êâmèm¶Yÿ-+-±êïËb½ä­j×oe¢oæj)fjæÊË

This message is for the named person's use only. It may contain sensitive and private 
proprietary or legally privileged information. No confidentiality or privilege is 
waived or lost by any mistransmission. If you are not the intended recipient, please 
immediately delete it and all copies of it from your system, destroy any hard copies 
of it and notify the sender. You must not, directly or indirectly, use, disclose, 
distribute, print, or copy any part of this message if you are not the intended 
recipient. CREDIT SUISSE GROUP and each legal entity in the CREDIT SUISSE FIRST BOSTON 
or CREDIT SUISSE ASSET MANAGEMENT business units of CREDIT SUISSE FIRST BOSTON reserve 
the right to monitor all e-mail communications through its networks. Any views 
expressed in this message are those of the individual sender, except where the message 
states otherwise and the sender is authorized to state them to be the views of any 
such entity.
Unless otherwise stated, any pricing information given in this message is indicative 
only, is subject to change and does not constitute an offer to deal at any price 
quoted. Any reference to the terms of executed transactions should be treated as  
preliminary only and subject to our formal written confirmation.


___
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

z¹VŠ}öRÇ«²f¢–)à–+-=êåZ)÷ÙK®Éb²Û®ð¶+ÞJÖ­yÊN‹§²æìr¸›zm§ÿåŠËlz»Àrدy+Zµç(›ùšŠYšŸù²²æì

4 arg select on win32!

2003-06-25 Thread Tom Henrik Aadland
Hi!
I have a server which I'm suppose to port from unix to win32, the problem
 seems to be with 4 arg select which according to different documents
should work on win32 with sockets. 
The purpose is to block until a client tries to connect and send
something. 
$nfound = select($rout=$rin, undef, undef, undef);
$rin and $rout are constructed using vec and fileno.
If this is suppose to work on win32, can someone please point me to an
example? Or maybe a possible workaround. 

Many thanks in advece,

Tom Henrik

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: How do I avoid the DOS window when starting a perl script

2003-06-25 Thread Eric Amick

  Have you tried using Windows Perl instead (wperl) ?  You should find
  it in your perl/bin dir.

 This was posted a few months ago. :-)
 Someone pointed why there's no document on it. I think so too.

But it *is* documented, though perhaps not as prominently as it should 
be.  Read perlwin32.

Eric Amick
Columbia, MD

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: 4 arg select on win32!

2003-06-25 Thread Jenda Krynicky
From: Tom Henrik Aadland [EMAIL PROTECTED]
 I have a server which I'm suppose to port from unix to win32, the
 problem
  seems to be with 4 arg select which according to different documents
 should work on win32 with sockets. The purpose is to block until a
 client tries to connect and send something. $nfound =
 select($rout=$rin, undef, undef, undef); $rin and $rout are
 constructed using vec and fileno. If this is suppose to work on win32,
 can someone please point me to an example? Or maybe a possible
 workaround. 

It should work just like under Unix assuming all the handles are 
sockets. What did you try and what happened?

Jenda
= [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =
When it comes to wine, women and song, wizards are allowed 
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Changing Default Gateway

2003-06-25 Thread Wingfield, Nancy
Hi Discussion Group, 
I'm wondering if anyone knows whether it is possible to change the default
gateway, and not have to reboot in order for the changes to take effect...I
figured out how to change the default gateway, but I have to reboot before
the changed default gateway is used.  
Anyone have any ideas??
Thanks, 
Nancy Wingfield
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Changing Default Gateway

2003-06-25 Thread Nicky . Ayoub

I think you should be able to use the route command line program. You'll
have to do a route DELETE of the default entry and then route ADD
for the new way out.  You can use route PRINT to get a look at your
current routing table.
--
Nick Ayoub
[EMAIL PROTECTED], [EMAIL PROTECTED]
IS - Systems and Operations, TEL  480-792-7275, FAX  480-792-4054
Microchip  Technology, 2355 W. Chandler Blvd., Chandler AZ 85224-6199
http://www.microchip.com



|-+---
| |   Wingfield, Nancy  |
| |   [EMAIL PROTECTED]  |
| |   Sent by:|
| |   [EMAIL PROTECTED]|
| |   veState.com |
| |   |
| |   |
| |   06/25/2003 12:18 PM |
| |   |
|-+---
  
---|
  |
   |
  |   To:   '[EMAIL PROTECTED]' |
  |[EMAIL PROTECTED]|
  |   cc:  
   |
  |   Subject:  Changing Default Gateway   
   |
  
---|




Hi Discussion Group,
I'm wondering if anyone knows whether it is possible to change the default
gateway, and not have to reboot in order for the changes to take effect...I
figured out how to change the default gateway, but I have to reboot before
the changed default gateway is used.
Anyone have any ideas??
Thanks,
Nancy Wingfield
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs





___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Changing Default Gateway

2003-06-25 Thread FARRINGTON, RYAN
Title: RE: Changing Default Gateway





you could use WMI if you are working with a WIN32 system... but if your hitting an NT 4 box it will not take effect until the next reboot =)

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 25, 2003 10:34 AM
To: Wingfield, Nancy
Cc: '[EMAIL PROTECTED]';
[EMAIL PROTECTED]
Subject: Re: Changing Default Gateway




I think you should be able to use the route command line program. You'll
have to do a route DELETE of the default entry and then route ADD
for the new way out. You can use route PRINT to get a look at your
current routing table.
--
Nick Ayoub
[EMAIL PROTECTED], [EMAIL PROTECTED]
IS - Systems and Operations, TEL 480-792-7275, FAX 480-792-4054
Microchip Technology, 2355 W. Chandler Blvd., Chandler AZ 85224-6199
http://www.microchip.com




|-+---
| | Wingfield, Nancy |
| | [EMAIL PROTECTED] |
| | Sent by: |
| | [EMAIL PROTECTED]|
| | veState.com |
| | |
| | |
| | 06/25/2003 12:18 PM |
| | |
|-+---
 ---|
 | |
 | To: '[EMAIL PROTECTED]' |
 | [EMAIL PROTECTED] |
 | cc: |
 | Subject: Changing Default Gateway |
 ---|





Hi Discussion Group,
I'm wondering if anyone knows whether it is possible to change the default
gateway, and not have to reboot in order for the changes to take effect...I
figured out how to change the default gateway, but I have to reboot before
the changed default gateway is used.
Anyone have any ideas??
Thanks,
Nancy Wingfield
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs






___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs





building Tk800.024 unresolved externals tkPlatStubsPtr

2003-06-25 Thread Anil Gulati
I am trying to build Tk 800.024 but get unresolved
externals - fatal error - when linking Tk.dll for:
tkIntPlatStubsPtr and tkPlatStubsPtr 

I am hoping someone might be able to tell me
if my build process is obviously flawed somewhere?
- Have I missed a build stage?
- Are my tools wrong versioned?
- Should I have built INSIDE the ActivePerl distro?
- Can I turn off the error somehow and just carry on?

ActivePerl 5.8.0.806 installed in C:\Perl
Tk804.0_24.tar.gz unpacked in C:\migtool\Tk804\Tk804.204
MS Visual C++ Version 6.00.8168.0 (Pro 2002)
Building on WinXP.
Available in the %PATH% (cygwin): patch cp bash

perl Makefile.PL
completes with no errors or warnings whatsoever.

nmake
has a few warnings - types and function declarations,
and then stops with fatal error unresolved externals.

-- nmake output (abbreviated): --
Running Mkbootstrap for Tk ()
C:\Perl\bin\perl.exe -MExtUtils::Command -e chmod 644 Tk.bs...
C:\Perl\bin\perl.exe -MExtUtils::Mksymlists  -e Mksymlists...
link -out:blib\arch\auto\Tk\Tk.dll -dll -nologo -nodefaultl...
   Creating library blib\arch\auto\Tk\Tk.lib and object blib\a...
libpTk.lib...: error ... unresolved external _tkPlatStubsPtr
libpTk.lib...: error ... unresolved external _tkIntPlatStubsPtr
...h\auto\Tk\Tk.dll : fatal error LNK1120: 2 unresolved externals
NMAKE : fatal error U1077: 'link' : return code '0x460'
Stop
-

So I searched for tkPlatStubsPtr tkIntPlatStubsPtr
They are declared extern in 2 header files and
defined in ...\Tk804.024\pTk\mTk\generic\tkStubLib.c

-- search for tkPlatStubsPtr: --
...\Tk804.024\pTk\ tkPlatDecls.h
...\Tk804.024\pTk\mTk\generic\ tkPlatDecls.h
...\Tk804.024\pTk\mTk\generic\ tkStubLib.c
...\Tk804.024\blib\arch\   tkPlatDecls.h


-- search for tkIntPlatStubsPtr: --
...\Tk804.024\pTk\ tkIntPlatDecls.h
...\Tk804.024\pTk\mTk\generic\ tkIntPlatDecls.h
...\Tk804.024\pTk\mTk\generic\ tkStubLib.c
...\Tk804.024\blib\arch\   tkIntPlatDecls.h
---

-- tkStubLib.c --
/*
 * Ensure that Tk_InitStubs is built as an exported symbol.
 * The other stub functions should be built as non-exported
 * symbols.
 */

#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLEXPORT

TkStubs *tkStubsPtr;
TkPlatStubs *tkPlatStubsPtr;
TkIntStubs *tkIntStubsPtr;
TkIntPlatStubs *tkIntPlatStubsPtr;
TkIntXlibStubs *tkIntXlibStubsPtr;
-

-- tkIntPlatDecls.h: --
extern TkIntPlatStubs *tkIntPlatStubsPtr;
---

-- tkPlatDecls.h: --
extern TkPlatStubs *tkPlatStubsPtr;


tkStubLib.c defines them but tk(Int)PlatDecls.h
obviously can't link to them.
A search reveals tkStubLib.obj is missing.

--directory of:-- --directory of:--
...\Tk804.024\pTk ...\Tk804.024\pTk\mTk\generic
tkScrollbar.obj   tkScrollbar.c
tkSelect.obj  tkSelect.c
tkSquare.obj  tkSquare.c
tkStubImg.obj tkStubImg.c
   -missing- tkStubInit.c REQD FOR BUILD?
   -missing- tkStubLib.c  REQD FOR BUILD?
tkStyle.obj   tkStyle.c
   -missing- tkTest.c NOT REQD?
tkText.objtkText.c
tkTextBTree.obj   tkTextBTree.c
tkTextDisp.objtkTextDisp.c
- -

But looking at the nmake output tkStubLib.c
compile is skipped in the alphabetic sequence.
tkStubLib.c compile hasn't even been attempted.
tkStubLib appears nowhere in the nmake output.

-- nmake output (abbreviated): --
cl -c  -I.. -I../pTk/mTk/xlib -I. -Ibitmaps...
tkStubImg.c
cl -c  -I.. -I../pTk/mTk/xlib -I. -Ibitmaps...
tkStyle.c
---

A /tkstublib/i search throughout the whole build
reveals the only reference to tkStubLib.c is in itself,
and only then in the comments at the top of the file.

-- tkStubLib.c: --
/*
 * tkStubLib.c --
 *
 *  Stub object that will be statically linked
 * into extensions that wish to access Tk.
--

This doesn't seem like a really necessary file anyway,
or has it just been missed out of the compile list:
can I just patch the makefile to build tkStubLib.c?

Two other things that worry me are:

-- ...\Tk804.204\README: --
Win32 does not build at all yet.
---

And I do not have a PerlCRT.dll or PerlCRT.lib
anywhere on the build machine.

-- which is only worrying when you read this: --
Tk800.013 has been built by the author using ActivePerl
from ActiveState's APi509e.exe.

You need Visual C++ (Mine is version 6.0 - Professional Edition).

When you install ActivePerl, it provides patched C runtime as PerlCRT.dll
which it installs in the system32 directory.
This needs administrator rights on NT.

It also provides the import library PerlCRT.lib, but this is installed
in an odd location e.g. C:\ActivePerl\lib\CORE\PerlCRT.lib
where it is not found by MakeMaker or VC++.
I copied it to C:\VisualStudio\VC98\lib\PerlCRT.lib
(Your paths may vary dependinh where you installed ActivePerl and 

RE: Changing Default Gateway

2003-06-25 Thread barbero_l

Bill Wrote:

Under win2k, you should be able to disable then re-enable the interface.



Under Win2k it's not necesary, only got to run the command, and the changes
take effect inmediately, you can check it by using a tracert command.


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 11:44 AM
To: FARRINGTON RYAN; [EMAIL PROTECTED]
Subject: RE: Changing Default Gateway



Nancy Wrote:



Hi Discussion Group,
I'm wondering if anyone knows whether it is possible to change the default
gateway, and not have to reboot in order for the changes to take effect...I

figured out how to change the default gateway, but I have to reboot before
the changed default gateway is used.
Anyone have any ideas??
Thanks,
Nancy Wingfield


--


Hi, you must use the route add command in this way:



route -f add 0.0.0.0 mask 0.0.0.0 New gateway

The -f parameter will clear any information about gateways on your
table, you must use the paramenter -p if you want it to be persistent.
This
work fine on Win2k I haven't try on another OS, and I don't really know if
it's really persistent after a reboot.

I hope this will help you.

Take care.




___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs




This e-mail and its attachments may contain CONFIDENTIAL information and
are solely for the intended recipient.
If  you  have  received  this e-mail in error,  please  immediately  notify
the  sender and delete it from  your  system.
Thank you. The views expressed in this e-mail are solely those of the
author and may not necessarily be those of,
or supported  by, the company.  Telefonica Moviles SA  neither assumes
obligations nor  accepts liability  for  the
content   of   this   e-mail,   unless   that   information   is
subsequently   confirmed  in  writing  by  a  duly  authorised
representative.  E-mail  transmission  cannot  be  guaranteed  to  be
secure  or  error-free  as information could be
corrupted, lost, destroyed, arrive late or incomplete, or contain VIRUSES.

Este  correo  electrónico  y  sus  anexos  pueden  contener información
CONFIDENCIAL para uso exclusivo de su
destinatario.  Si  ha recibido este correo por error,  por favor,
notifíquelo  al  remitente   y   bórrelo  de  su  sistema.
Muchas  gracias.  Las  opiniones  expresadas  en  este  correo  son  las
de  su autor  y  no   son   necesariamente
compartidas   o   apoyadas   por   la   compañía.   Telefónica   Móviles
SA  no  asume   aquí  obligaciones  ni  se
responsabiliza  del  contenido  de este correo, a menos que dicha
información sea confirmada por escrito por un
representante  autorizado.  No  se  garantiza  que  la  transmisión  de
este  correo  sea  segura  o libre de errores,
podria haber sido viciada, perdida, destruida, haber llegado tarde, de
forma incompleta o contener VIRUS.


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: out of memory problem!

2003-06-25 Thread Carl Jolley
On Wed, 25 Jun 2003, Suwimon Kooptiwoot wrote:

 Hi all,
  My perl program cannot work with input data, text file, size 48 MB!. I
 am running ActivePerl 5.6 under  Windows XP,  1 GB RAM . It takes
 running time overnight more than 15 hours then show me that it's out of
 memory. How can I do ? Anyone know how to solve this problem, please
 help me.


My WAG is that your problem is with your code but since you didn't
show any code, its difficult to say for sure.

 [EMAIL PROTECTED] Carl Jolley
 All opinions are my own and not necessarily those of my employer 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Changing Default Gateway

2003-06-25 Thread Wingfield, Nancy
The route command works like a charm...thanks a million!!
Nancy Wingfield

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 12:44 PM
To: FARRINGTON RYAN; [EMAIL PROTECTED]
Subject: RE: Changing Default Gateway



Nancy Wrote:



Hi Discussion Group,
I'm wondering if anyone knows whether it is possible to change the default
gateway, and not have to reboot in order for the changes to take effect...I

figured out how to change the default gateway, but I have to reboot before
the changed default gateway is used.
Anyone have any ideas??
Thanks,
Nancy Wingfield


--


Hi, you must use the route add command in this way:



route -f add 0.0.0.0 mask 0.0.0.0 New gateway

The -f parameter will clear any information about gateways on your
table, you must use the paramenter -p if you want it to be persistent.
This
work fine on Win2k I haven't try on another OS, and I don't really know if
it's really persistent after a reboot.

I hope this will help you.

Take care.




___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Displaying a status bar

2003-06-25 Thread Hsu, David
Hello,

Can someone let me know of a method of displaying a status bar on
screen(html) in Perl script while it is processing a task.  I have tried to
print html, but it won't display the image until it has finished processing,
and then it displays with the rest of the information.  JavaScript is an
option, but if the status screen is selected into the background, it will
never close.

Thanks,
David
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Displaying a status bar

2003-06-25 Thread FARRINGTON, RYAN
Title: RE: Displaying a status bar





I don;t think there is really a way unless u use a flash front end to start the perl script running then take the output from the perl script and use that to make your determination... flash has some kewl content tools... =)

-Original Message-
From: Hsu, David [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 25, 2003 1:06 PM
To: [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: Displaying a status bar



Hello,


Can someone let me know of a method of displaying a status bar on
screen(html) in Perl script while it is processing a task. I have tried to
print html, but it won't display the image until it has finished processing,
and then it displays with the rest of the information. _javascript_ is an
option, but if the status screen is selected into the background, it will
never close.


Thanks,
David
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs





RE: Displaying a status bar

2003-06-25 Thread Thomas, Mark - BLS CTR
 Hello,
 
 Can someone let me know of a method of displaying a status bar on
 screen(html) in Perl script while it is processing a task.  I 
 have tried to print html, but it won't display the image 
 until it has finished processing, and then it displays with 
 the rest of the information.

Your problem may be output buffering. Put $|++; in your program before
sending any output and you can then print html to the screen.

That being said, I've created a javascript library that puts a graphical
status bar on the screen, and the percentage, overlay text, and color can be
set by a perl program as it running, and at the end, it disappears so as not
to interfere with the output. It's useful for long-running programs. Contact
me off-list if you want it.

- Mark.

-- 
Mark Thomas[EMAIL PROTECTED]
Internet Systems Architect User Technology Associates, Inc.

$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Unable to open executable file:

2003-06-25 Thread SCOTT_SISSON
I am trying to create a free standing exe using perl app.  I am on old
stuff, perlapp 2.1.  Here is the output of what I am doing. Any help is
appreciated.


C:\Perlperlapp -s=GenDBLoad.pl  -f -v -r -c -e=GenDBLoad
Input script name: GenDBLoad.pl
Output exe name: GenDBLoad.exe
Exe Mode: Freestanding
Building Console mode exe
Temp files will be deleted on exit
Failed 'use's will be reported
Unable to open executable file: GenDBLoad.exe


Scott Sisson
Phone: (215)-419-6728
Fax: (215)-640-3732
***
This message and any information contained or attached is for the use
only of the intended recipient. If you are not the intended recipient,
you are hereby notified that any disclosure, copying, distribution,or
the taking of any action in reliance on the contents is strictly
prohibited.
***


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Unable to open executable file:

2003-06-25 Thread Raymond Forbes
do you have permissions to make files on the system?

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, June 25, 2003 11:24 AM
To: [EMAIL PROTECTED]
Subject: Unable to open executable file: 


I am trying to create a free standing exe using perl app.  I am on old
stuff, perlapp 2.1.  Here is the output of what I am doing. Any help is
appreciated.


C:\Perlperlapp -s=GenDBLoad.pl  -f -v -r -c -e=GenDBLoad
Input script name: GenDBLoad.pl
Output exe name: GenDBLoad.exe
Exe Mode: Freestanding
Building Console mode exe
Temp files will be deleted on exit
Failed 'use's will be reported
Unable to open executable file: GenDBLoad.exe


Scott Sisson
Phone: (215)-419-6728
Fax: (215)-640-3732
***
This message and any information contained or attached is for the use
only of the intended recipient. If you are not the intended recipient,
you are hereby notified that any disclosure, copying, distribution,or
the taking of any action in reliance on the contents is strictly
prohibited.
***


___
Perl-Win32-Users mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Displaying a status bar

2003-06-25 Thread Hsu, David
Mark,

Thanks for your suggestion.
I set the output buffer to Off, and it is displaying my html status bar and
it seems to be processing in the background.  But, I want to display my
results page after processing.  It seems that the status page does not go
away even after processing is done.  I have added the print out of data
after the processing steps in my code.  My data sets are sometimes large and
small.  During the smaller data sets, the processed data would be displayed
on the same page as the status bar.  The larger data sets, it seems it would
always stay on the status bar screen, without displaying any processed data.

Any thoughts on this.

Thanks,
David

-Original Message-
From: Thomas, Mark - BLS CTR [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, June 25, 2003 2:23 PM
To: 'Hsu, David'; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: RE: Displaying a status bar


 Hello,
 
 Can someone let me know of a method of displaying a status bar on
 screen(html) in Perl script while it is processing a task.  I 
 have tried to print html, but it won't display the image 
 until it has finished processing, and then it displays with 
 the rest of the information.

Your problem may be output buffering. Put $|++; in your program before
sending any output and you can then print html to the screen.

That being said, I've created a javascript library that puts a graphical
status bar on the screen, and the percentage, overlay text, and color can be
set by a perl program as it running, and at the end, it disappears so as not
to interfere with the output. It's useful for long-running programs. Contact
me off-list if you want it.

- Mark.

-- 
Mark Thomas[EMAIL PROTECTED]
Internet Systems Architect User Technology Associates, Inc.

$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
 
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs