nother script. Nothing overly complicated.
Chris Benco
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Trying to get a script to read information from an old access 97 database.
Just looking for a place to start. Is this going to be a DBI/ODBC issue?
or OLE? Just looking for a point in the right direction.
Chris Benco
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Fairly new to perl, and even programming in general.
When I try to have this program it to a large number of pings (anything
over about 200) it times out. There is a built in feature to
Net::Telnet::Cisco to change the Timeout value, but I can't seem to get it
coded correctly.
http://search.cpa
$Database->CreateDocument('NEW');
$ReportMail->{Form} = 'Memo';
$ReportMail->{Body} = "$Report";
$ReportMail->{SendTo} = "$From";
$ReportMail->{Subject} = "$Subject";
$ReportMail->Save(1, 1);
$ReportMa
emo';
$ReportMail->{Body} = "$Report";
$ReportMail->{SendTo} = "$From";
$ReportMail->{Subject} = "$Subject";
$ReportMail->Save(1, 1);
$ReportMail->Send(0);
foreach (1..3) {
my $AllDoc = $Database->AllDocuments or return;
my $delete = $AllDoc->GetFirstDocument or return;
$delete->Remove(1) or return;
}
}
#
Chris Benco
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
x27;Memo';
$ReportMail->{Body} = "$Report";
$ReportMail->{SendTo} = "$From";
$ReportMail->{Subject} = "$Subject";
$ReportMail->Save(1, 1);
$ReportMail->Send(0);
clean()
}
sub clean {
foreach (1..3) {
my $AllDoc = $Database->AllDocuments or return;
my $delete = $AllDoc->GetFirstDocument or return;
$delete->Remove(1) or return;
}
}
Chris Benco
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
t the ability to 'clean' out the mailbox.
Chris Benco
[EMAIL PROTECTED]
ack has been
logged";
$Subject = "ACCESS DENIED";
open(BAD, ">>BADPASS.TXT") or goto WAIT;
print BAD "\n\nACCESS VIOLATION: \nFrom: $From\nSubject:
$Password\nBody:\n\n$Command \n\n " or goto WAIT;
close(BAD); print "#" or goto WAIT;
goto SENDMAIL;
goto WAIT;
#
Chris Benco
Network Administrator
Austin Powder Company
216-464-2400 x277
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Works great now. Thanks
Note:
$Document->Send(1); # The mail file sent is almost 200k. Probably saving
blank space somewhere.
$Document->Send(0); # Is nice and small.
Chris Benco
Chris,
You miss a line "$Document->{'Form'} = 'Memo';&quo
l';
$Document->Save(1, 1);
All works great, but when I try to add this line to send it..
$Document->Send(1);
I get this error.
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
in METHOD/PROPERTYGET "Send" at C:\X\1.pl line 14
Can't figure out hw
Thanks, I finally found what I was looking for at 2 places at the same
time. Here and on www.perlmonks.com Great site, wish I had found it a
month ago.
For some reason i had a hell of a time finding out that the ProgID for
notes was just "Notes.NotesSession".
Thanks for the he
control objects but I can't get anything working
without a way to tell Perl which process I'm trying to work with.
Just feels like I'm missing something simple here..
Help!!
Chris Benco
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
s etc.. just can't find a list of ProgID's. What am I missing here.
Chris Benco
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
How do I send output to a specified window other than the one I run my
script from?
For that matter how to I specify which window anything happens in other
than the window I run my script from?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
14 matches
Mail list logo
