I thought of this, too, but the IT-Department of my Company doesn't want to do this.
> -----Urspr�ngliche Nachricht----- > Von: Dutrieux Yves [SMTP:[EMAIL PROTECTED]] > Gesendet am: Montag, 9. Dezember 2002 09:50 > An: 'Teifke Sascha ZFF FW-EI'; 'Timothy Johnson' > Cc: [EMAIL PROTECTED] > Betreff: RE: Win32::Message question > > perhaps invert the process, > your perl fill a table/server or anything else. > and the client would regularly check your table/server or anything else. > so > the process is on client... > > Yves. > -----Original Message----- > From: Teifke Sascha ZFF FW-EI [mailto:[EMAIL PROTECTED]] > Sent: Monday, December 09, 2002 8:17 AM > To: 'Timothy Johnson'; Teifke Sascha ZFF FW-EI; > [EMAIL PROTECTED] > Subject: AW: Win32::Message question > > > Yes, the command line "net send" works fine. > > By the way. The program I want to write does the following. > > He searches our company wide phonebook for users matching some criterias > and > sends them a message. > For this purpose perl forks for about 50 times to do parallel "net send" > for > the user because > if a user is not logged in net send waits for about 40 seconds before it > quits and return to > perl. The 50 forks are maintained by the father process who controls that > everytime a "net > send" command finished and the thread is closed another thread got > started. > > This handy tool works fine until there were not more than 0 ... 120 Users, > but if I try to send more > perl crashes because of performance problems. > > So I thougt that the perl module provides a more efficient way to send > messages to the windows > messaging service: > - no 40 sec. delay if a user is not logged in. > - I don't need to do a system () call. > - ... > > Any Suggestions? > > > -----Urspr�ngliche Nachricht----- > > Von: Timothy Johnson [SMTP:[EMAIL PROTECTED]] > > Gesendet am: Freitag, 6. Dezember 2002 17:39 > > An: 'Teifke Sascha ZFF FW-EI'; [EMAIL PROTECTED] > > Betreff: RE: Win32::Message question > > > > > > Does it work if you use the NET SEND command? > > > > NET SEND recipient message > > > > -----Original Message----- > > From: Teifke Sascha ZFF FW-EI [mailto:[EMAIL PROTECTED]] > > Sent: Friday, December 06, 2002 6:40 AM > > To: [EMAIL PROTECTED] > > Subject: Win32::Message question > > > > > > Hello Group! > > > > Using this Code: > > ---8<--- SNIP > > > > #!c:/perl/bin/perl.exe -w > > > > use strict; > > use Win32::Message; > > > > my $recipient = "Username"; # Name of a existing, logged in User > > > > > > my $message = "This is a Message Text!" > > if (Win32::Message::Send( "MYHOST", $recipient, "MYLOGIN", $message)) { > > print "Sent administrative failure message to $recipient.\n"; > > } else { > > my $Err = Win32::FormatMessage(Win32::GetLastError()); > > print "Error sending message to $recipient: $Err \n"; > > > > --------->8--------- SNAP > > > > Gaves me the following Error: > > The System couldn't find the given Environment Option! ( Translated from > > german ) > > > > any Ideas? > > > > Mit freundlichen Gr��en / With best regards > > > > Sascha Teifke > > ********************************************************** > > ZF Friedrichshafen AG | 88038 Friedrichshafen | Abt. FW-EI > > > > Fon: +49 (0) 7541 77 - 3330 > > Mobil: +49 (0) 7541 77 - 91 3330 > > Fax: +49 (0) 7541 77 - 90 3330 > > Email: mailto:[EMAIL PROTECTED] > > Internet: http://www.zf.com > > Intranet: http://web.zff.zf-group.de/kst635 > > ********************************************************** > > > > _______________________________________________ > > Perl-Win32-Admin mailing list > > [EMAIL PROTECTED] > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ > Perl-Win32-Admin mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
