Re: HTML in E-mail
At 10:35 05/06/2002 -0400, you wrote: The key point in your comment being imho. Notice I've switched back to plain text because I do agree with you for List Services. What baffles me is that somebody would actually get annoyed by the format of an e-mail. Trevor Maybe you might understand why someone would actually get annoyed by an email four times bigger than it needs to be (because of the HTML tags) which contains, javascript, tries to download images, and displays in an ugly, unreadable plethora of font sizes and colours. I say 'no thanks', I say 'kill them all'. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
PerlIS or Perl.exe doubt
Hello, I am a doubt in PerlIS. I read that if you install ActivePerl the PerlIS is installed with it. The only change that you have to do is save your script with the extension .plx. I test it with a hello.plx script and its work but I don't know if I have to change anything else. I also want to know if it's a good idea to use PerlIS in IIS 5.0. I will do a dynamic web site that use perl at 100%, HTMLTemplate and MySQL to generate the content. Before I start the proyect I have to decide if I will use perl.exe or perlis.dll (.pl or .plx) for my script. Since I will use Microsoft IIS I think it's a good idea to use PerlIS for fast response of the requests. Please let me know what's are the costrain in use perlIS over perl.exe. Thanks a lot. P.S. I will use the MVS (Model, View, Controller) pattern in the site. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Need help hiding text on a password
Is it just me, or does AS's repository seem to be showing some cracks lately? DBI and Tk::JPEG installs that break, and now this. jpt -Original Message- From: $Bill Luebkert [mailto:[EMAIL PROTECTED]] Sent: Tuesday, June 04, 2002 6:12 PM To: Norris, Joseph Cc: Perl Win32 Users (E-mail) Subject: Re: Need help hiding text on a password Norris, Joseph wrote: Where does one get Term::ReadKey. I have tried with activestate without success - of course I refer to win32 platform. No problem for unix. Thanks. The dash appears to be missing. Try termreadkey instead of term-readkey -- ,-/- __ _ _ $Bill Luebkert ICQ=14439852 (_/ / )// // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /-- o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/__/_/_ Castle of Medieval Myth Magic http://www.todbe.com/ ___ 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: How can we implement escape sequences in Perl ( Win 32 )
I would like to implement the escape sequences like ( if the value is Perl, I'm not sure what you are asking. perldoc URI::Escape ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Need help hiding text on a password
Tillman, James [mailto:[EMAIL PROTECTED]] wrote: Is it just me, or does AS's repository seem to be showing some cracks lately? DBI and Tk::JPEG installs that break, and now this. To be fair to ActiveState, this one is not their problem. As http://theoryx5.uwinnipeg.ca/mod_perl/cpan-search?search=termreadkeyfiletyp e=+distribution+name+or+descriptionjoin=andarrange=filedownload=autostem =nocase=clikesite=ftp.funet.fiage= shows, the naming convention in CPAN is not as controlled as we all may wish for. :-) cheers, bj -- Brad Warkentin CAD ManagerAcceLight networks email: [EMAIL PROTECTED]www.accelight.com phone: 613.596.4804 x4388 26 Auriga Drive fax: 613.596.2399 Ottawa, ON K2E 8B7 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: How can we implement escape sequences in Perl ( Win 32 )
[EMAIL PROTECTED] wrote: Dear All, I would like to implement the escape sequences like ( if the value is Perl, after typing the P , if we press the Esc key it should give all the options starting with the P ) . Can you please give me your directions. I'm thinking that escape sequences is a bad bad name for what you want. It sounds like you want autocomplete (what mozilla/IE do for you in the address bar). If that's what you're looking for, try Term::ReadKey. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: HTML in E-mail
that somebody would actually get annoyed by the format of an e-mail. Sometimes when people use a client like Outlook, I'm unable to quote their message in my response. I don't think changing the font color to a pretty shade of blue or a non-standard Times New Roman font really adds anything. It gets annoying when people start sending you mail in green, red, blue, etc. colored text all with different fonts that may or may not render correctly. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
operator question
Hi folks. I have a question... I wanted to create a
sub procedure that takes an operator as an argument,
like so:
compare(1,,2);
sub compare {
my ($value1,$operator,$value2) = @_;
if ($value1 $operator $value2) {
print statement is true!!\n;
}
}
Which doesn't work... I don't know if something like
this is possible... any suggestions?
Thanks, CO
__
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: operator question
Charles Oppenheimer [mailto:[EMAIL PROTECTED]] wrote:
Hi folks. I have a question... I wanted to create a
sub procedure that takes an operator as an argument,
like so:
compare(1,,2);
sub compare {
my ($value1,$operator,$value2) = @_;
if ($value1 $operator $value2) {
print statement is true!!\n;
}
}
I've never actually done this, so I'm somewhat guessing here, but you might be
looking for something like:
sub compare {
my ($a, $o, $b) = @_;
if (eval($a $o $b)) {
print True!\n;
}
}
Note that this is completely untested -- you may need to work a bit harder to
get the eval block to return the value correctly...
HTH,
Ricky
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: How can we implement escape sequences in Perl ( Win 32 )
[EMAIL PROTECTED] wrote: Dear All, I would like to implement the escape sequences like ( if the value is Perl, after typing the P , if we press the Esc key it should give all the options starting with the P ) . Can you please give me your directions. That would be command completion - not escape sequences. Not sure what your situation is, but you might consider looking at some open source editors or shells to get some ideas. Using a hash into the commands may speed things up so you don't have to traverse the entire list; as would having the list sorted in the first place. -- ,-/- __ _ _ $Bill Luebkert ICQ=14439852 (_/ / )// // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /-- o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/__/_/_ Castle of Medieval Myth Magic http://www.todbe.com/ ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: HTML in E-mail
Ron Grabowski wrote: that somebody would actually get annoyed by the format of an e-mail. Sometimes when people use a client like Outlook, I'm unable to quote their message in my response. I don't think changing the font color to a pretty shade of blue or a non-standard Times New Roman font really adds anything. It gets annoying when people start sending you mail in green, red, blue, etc. colored text all with different fonts that may or may not render correctly. I immediately delete anything I open that has colors in it or tiny text that I can't read or top posting. -- ,-/- __ _ _ $Bill Luebkert ICQ=14439852 (_/ / )// // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /-- o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/__/_/_ Castle of Medieval Myth Magic http://www.todbe.com/ ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::API and GetOpenFileName
Anyone been able to import the GetOpenFileName API from comdlg32.dll. So I don't need to reinvent the wheel? I have been trying but have had no success. Thanks, Dax ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Binary numbers and storing.
On another point, I forgot to mention: if you're using mixed data in your
output file, you should (that is, -have to-, unless you're brave) *still*
use pack and unpack(), especially if you're reading in mixed data.
For example, if the input file contained the following elements:
8 ascii characters32 bit integer16 bit number2 ascii characters16
bit number
You could use a pack template, such as this:
a8lsa2s
(8 ascii characters, followed by a signed long, followed by a signed short,
followed by 2 ascii characters, followed by a signed short)
e.g.:
my $str1 = 'AAbbCcDd';
my $num32 = 6;
my $num16a = 32765;
my $str2 = 'zX';
my $num16b = 150;
my $binout = pack(a8lsa2s,$str1,$num32,$num16a,$str2,$num16b);
my $cout = pack(C8,$str1);
if(open(WFH, temp.out)) {
binmode(WFH);
print(WFH $binout);
close(WFH);
}
if(open(RFH,temp.out)) {
binmode(RFH);
while(RFH) {
my @arr = unpack(a8lsa2s,$_);
foreach my $ent (@arr) {
print(Entry: $ent\n);
}
}
}
prints:
C:\source\asplperl pack.pl
Entry: AAbbCcDd
Entry: 6
Entry: 32765
Entry: zX
Entry: 150
HTH,
!c
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Problems with reg expression
Just my guess: you'll probably need to replace all @ with \@ in the regexp... Sem mais assunto de momento, Fernando Madruga ASC:DSI -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Walter Usyk Sent: segunda-feira, 3 de Junho de 2002 19:01 To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: Problems with reg expression I'm having a problem with a regular expression and I hope that someone can help me out with. I have the following: my $envLU =/vobs/spifftest/.@@/HDX.LU/lineups/.@@/HDX.LU/hdx.lu@@/main/LATEST; $envLU =~ s/^(.*\/)([^\/]+@@[^@@]+)$/$2/; What it is suppose to return is the string starting after the /? before the last @@. That is hdx.lu@@/main/LATEST It does do this but I get errors below. When the reg expression get executed I start receiving the following errors and I do not know why. Bareword found where operator expected at (eval 740) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 741) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 743) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 744) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 745) line 6, near /vobs/spifftest (Missing operator before pifftest?) And they just keep going on until I kill the application. Can any one tell me what the problem is? -- Walter Usyk - Tools Developer Software Development Environment Tools (1P67) email: [EMAIL PROTECTED] ESN: 398-4603 Tel: (613) 768-4603 ___ 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: Problems with reg expression
Correction to my previous post: You'll probably need to preceed all @ in the $envLU variable with a \, that is: my $envLU =/vobs/spifftest/.\@\@/HDX.LU/lineups/.\@\@/HDX.LU/hdx.lu\@\@/main/LATE ST; Otherwise, just use single quotes instead of double ones like this: my $envLU ='/vobs/spifftest/.@@/HDX.LU/lineups/.@@/HDX.LU/hdx.lu@@/main/LATEST'; That will prevent it from trying to find an array variable named @ (@@). Hope this helps, Fernando Madruga -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Walter Usyk Sent: segunda-feira, 3 de Junho de 2002 19:01 To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: Problems with reg expression I'm having a problem with a regular expression and I hope that someone can help me out with. I have the following: my $envLU =/vobs/spifftest/.@@/HDX.LU/lineups/.@@/HDX.LU/hdx.lu@@/main/LATEST; $envLU =~ s/^(.*\/)([^\/]+@@[^@@]+)$/$2/; What it is suppose to return is the string starting after the /? before the last @@. That is hdx.lu@@/main/LATEST It does do this but I get errors below. When the reg expression get executed I start receiving the following errors and I do not know why. Bareword found where operator expected at (eval 740) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 741) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 743) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 744) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 745) line 6, near /vobs/spifftest (Missing operator before pifftest?) And they just keep going on until I kill the application. Can any one tell me what the problem is? -- Walter Usyk - Tools Developer Software Development Environment Tools (1P67) email: [EMAIL PROTECTED] ESN: 398-4603 Tel: (613) 768-4603 ___ 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: Problems with reg expression
On Mon, 3 Jun 2002, Walter Usyk wrote: I'm having a problem with a regular expression and I hope that someone can help me out with. I have the following: my $envLU =/vobs/spifftest/.@@/HDX.LU/lineups/.@@/HDX.LU/hdx.lu@@/main/LATEST; $envLU =~ s/^(.*\/)([^\/]+@@[^@@]+)$/$2/; What it is suppose to return is the string starting after the /? before the last @@. That is hdx.lu@@/main/LATEST It does do this but I get errors below. When the reg expression get executed I start receiving the following errors and I do not know why. Bareword found where operator expected at (eval 740) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 741) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 743) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 744) line 6, near /vobs/spifftest (Missing operator before pifftest?) Bareword found where operator expected at (eval 745) line 6, near /vobs/spifftest (Missing operator before pifftest?) And they just keep going on until I kill the application. Can any one tell me what the problem is? Pehaps you should avail yourself the benefit of the -w flag so you can see the warning about the @ character in a double quoted string. [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: Adding/Multiplying binary numbers in Perl
On Fri, 31 May 2002, Haimov, Eugene wrote: Use pack() function on $currentdate, then syswrite its result. -Original Message- From: Michele Knight [mailto:[EMAIL PROTECTED]] Sent: Friday, May 31, 2002 4:10 PM To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Subject: RE: Adding/Multiplying binary numbers in Perl Thanks. I got the binary numbers correctly and when I try to write that number in it's binary format to a file using binmode(FILEHANDLE) it still writes the character format instead of binary format. Here is what I used: open(FILEHANDLE, $file); binmode(FILEHANDLE); sysseek(FILEHANDLE, 0xA500, 0); syswrite(FILEHANDLE $currentdate); Do you know what I'm doing wrong? Yes, you are assuming that binmode makes the data be written out in binary format. It doesn't. [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
PLEASE - can any one help on this?
Group,
I have written before on this and now I am in pressing need to know where I
am going wrong with this code.
Can anyone give me any ideas?
The $Process contains path to perl script that has been formated to run as
dos batch file.
Thanks to all and sorry to be a pest
I have the following code:
$Process = c:\\web\\cgi-bin\\PhoneListUpdate\\ole_add1 $id;
$Result = Win32::AdminMisc::LogonAsUser( $Domain,
$User,
$Password,
LOGON32_LOGON_INTERACTIVE );
if( $Result ) {
$LogonUser = Win32::AdminMisc::GetLogonName();
print Successfully logged on as $LogonUser.BR Adding Name
now!BR;
$Result = Win32::AdminMisc::CreateProcessAsUser($Process);
if( $Result ){
print Successful! The new processes PID is $Result.BR;
} else {
print Failed.\n\tError: , Error(), BR;
}
} else {
print Failed to logon.\n\tError: , Error(), BR;
}
The logon is successful but I get the following error after logon
Failed. Error: Incorrect function.
I am not sure what I am doing wrong. Please advise - thanks
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: PLEASE - can any one help on this?
I have written before on this and now I am in pressing need to know
where I am going wrong with this code.
Can anyone give me any ideas?
Unfortunately, the only help I can give you is tell you that you're
not alone here...
I've both Dave Roth's books and tried setting the privileges said to be
required, however it didn't improve the end result a single bit...
As you can see from below, I've added all 4 required attributes (even
though I'm a member of the Domain Admins), and still got the same
incorrect function. Maybe Dave Roth will want to shed some light on
this? I'm running Windows XP.
[d:\work]Admin Handbook Examples\chapter2\priv.pl FMADRUGA
From the book 'Win32 Perl Scripting: The Administrator's Handbook' by
Dave Roth
DOMAIN\FMADRUGA:
SE_ASSIGNPRIMARYTOKEN_NAME Replace a process level token
SE_INCREASE_QUOTA_NAME Adjust memory quotas for a process
SE_TCB_NAMEAct as part of the operating system
SE_CHANGE_NOTIFY_NAME Bypass traverse checking
[d:\work]Teste.pl
Successfully logged on as USER.
Failed.
Error: Incorrect function.
[d:\work]type Teste.pl
use Win32::AdminMisc;
use Win32;
$Domain = 'DOMAIN';
$User = 'USER';
$Password = 'test';
$Process = 'NOTEPAD.EXE';
if (Win32::AdminMisc::LogonAsUser($Domain, $User, $Password,
LOGON32_LOGON_INTERACTIVE)){
$LogonUser = Win32::AdminMisc::GetLogonName();
print Successfully logged on as $LogonUser.\n;
$Result = Win32::AdminMisc::CreateProcessAsUser( $Process );
if ($Result){
print Successful! The new PID is $Result.\n;
} else {
print Failed.\n\tError: .
Win32::FormatMessage(Win32::AdminMisc::GetError()) . \n;
}
} else {
print Failed to logon.\n\tError: .
Win32::FormatMessage(Win32::AdminMisc::GetError()) . \n;
}
Yours truly,
Fernando Madruga
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
