Icecrack
Last Activity: Aug 18 '11, 03:02 AM
Joined: Sep 15 '08
Location: Sydney, Australia
-
I think you should ask the ms sql experts on Bytes under SQL Server, because if you can not connect to the database from a console then i dont think you can connect to it from perl (i maybe wrong), when you set up MVS did you set up a username and password for ms sql? -
what have you tried so far? lets see some code.Leave a comment:
-
sorry for the delay on my end i have been testing this for weeks now, and just found the answer but first i need to know how your logs are set out is it 1 big single line or is it a multi-lined?
past a log file here as a file attachmentLeave a comment:
-
so far what is all your code or at least how are you reading the next line of the sql file?
have you tried a while loop?Leave a comment:
-
how are you calling your socket
have you tried?
socketpair(DOMA IN, TYPE, PROTOCOL)Leave a comment:
-
Let me clear up on this, you are trying to get the client to send its port to the server for auth?
or are you trying just to find out what port the client is running on?Leave a comment:
-
Post what command your trying to call from the system();Leave a comment:
-
Check your post http://bytes.com/topic/perl/answers/...le#post3482701 -
for the regexp to work you need to make sure it has a VAR with a string.
Code:#!/usr/bin/perl local $/=undef; open(FILE, "test.fa") || die ("Error\n"); $string = <FILE>; $string =~ s/\n\r\t\s//g; print "$string";Leave a comment:
-
are you ever calling your Sub ? ever ?
Add this above sub genreport {
Code:&genreport;
Leave a comment:
-
Another One
while($t!=$i){
Same as KevinADC said Tail Spin
$i is never defined (given a value) so $t is never ever eq to $i to get out of the loop, i dont know if i missed something but hey i think thats your problem (I have not tested to see if this is true)Leave a comment:
-
I would put the path to the log file under
addCode:my ($logfile, $line, @message);
Code:$logfile='PATH\TO\Report.log';
Leave a comment:
-
Make Sure you have a blank line no spaces Before and After XMLPRINTLeave a comment:
-
Try this i have take out your user and pass for SQL reinsert them
...Code:#!/usr/bin/perl # PERL MODULES WE WILL BE USING use DBI; use DBD::mysql; use Asterisk::AGI; $AGI = new Asterisk::AGI; # HTTP HEADER Print "Content-type:text/vxml \n\n"; #CONFIG VARIABLES $platform="mysql"; $database="employeedet";
Last edited by eWish; Apr 21 '09, 03:16 AM. Reason: Fixed code tags had } on the last tag in stead of ]Leave a comment:
-
he means how are you running the Perl script
if the script is being run by that Batch file, may you post the code to that batch file here.
in [CODE*] [/CODE*] Tags (take out the * for code tags to work)Leave a comment:
-
Post the code that your trying to work with and as Kevin Said, Perl just dumps the output to the browser, JavaScript runs off the browser plugin. so javascript will be read from the browser and run at the client end.Leave a comment:
-
That is not a Perl issue that is a browser issue, you have too look into your browser settings or use the first version of google chrome as they started download when a file was clicked on. (this was updated in newer versions as it is a security risk, this is why they have a save option).Leave a comment:
-
here is what i think you want else explain in more detail of what string your matching or why you are trying to XXXX out the rest.
Code:if ($para !~ m/$string/ig) { $para =~ s/$para/XXXXX/ig; } elsif ($para =~ m/.$string./ig) { print "$para \n\n"; }Leave a comment:
-
the best way i know on how to do this is to translate.
Code:$string =~ tr/é/É/
Leave a comment:
No activity results to display
Leave a comment: