Perl script on IIS not executing

Hi,
I have configured IIS to run perl/cgi scripts the output is printed out in HTML but everytime I run the script the HTML is just outputting the code can someone tell me what I am doing wrong

Aug 7 '07 #1

Subscribe Post Reply

1611

numberwhun

3,509

Expert Mod 2GB

That means that either your web server is not truly configured conrrectly to handle CGI or you are not putting your CGI script in the correct place. Unfortunately, I know nothing about IIS. But, a quick google search turned up this link to Micro$oft's TechNet. Hope that it helps.

Regards,

Jeff

Aug 7 '07 #2

markoj

Thanks Jeff,
I still have no luck with it I ran some test scripts that i got from net and they are working ok so I think my code may be a little out of shape could someone take a look and let me know what they think

Expand|Select|Wrap|Line Numbers

 
#!/C:\Perl\bin
 
use warnings;

use strict;
 
print <<HTTPHDR;

Content-type: text/html
 
HTTPHDR
 
print <<HEADER;

<HTML>

<HEAD>

<TITLE>NAS Disk</TITLE>

</HEAD>

HEADER
 
print <<OPENBODY;

<BODY><H2>Nas Disk capacity</H2>

<PRE>

OPENBODY
 
# my $data_file = '/perly/nas01.txt';

my $data_file = 'nas01.txt';

open DATA, "$data_file" or die "can't open $data_file $!";

my @read_data = <DATA>;

my @array_of_data = map { SpecialChars($_); } @read_data;

close DATA;
 
foreach my $line ( @array_of_data ) {

    if ($line =~ m/levels/i) {

        print "$line\n";
 
    } elsif ($line =~ m/date/i) {

        print "$line\n";
 
    } elsif ($line =~ m/hostname/i) {

        print "$line\n";
 
    } elsif ($line =~ m/uptime/i) {

        print "$line\n";

    }

}
 
print "================================================== ==============================<br>\n";
 
foreach my $line ( @array_of_data ) {

    if ($line =~ m/filesystem/i) {

        print "$line\n";
 
    } elsif ($line =~ m/SQLsrv/i) {

        print "$line\n";

    }

}
 
print "================================================== ==============================<br>\n";

print "</PRE>\n";
 
print "<TABLE border=1>\n";

my $lookdisk = 0;

foreach my $lines ( @array_of_data ) {

    if ($lines =~ m/(\d+)[%]/i) {

        my $val = $1;

        if ($val > 80) {

            $lookdisk++;

            print <<LOOKDISK;

<TR style="color: red"><TD><PRE>$lines</PRE></TD><TH>Please look at this disk immediately.</TH></TR>

LOOKDISK
 
        } else {

            print <<OKDISK;

<TR style="color: green"><TD><PRE>$lines</PRE></TD><TH>Disk levels are ok.</TH></TR>

OKDISK

        }

    }

}
 
if ($lookdisk == 0) {

    print <<ALLDISKOK;

<TR style="color: green"><TH colspan=2>Disk levels are ok.</TH></TR>

ALLDISKOK

}

print "</TABLE>\n";
 
print <<HTMLFOOT;

</BODY>

</HTML>

HTMLFOOT
 
# Remove special chars from input

sub SpecialChars($) {

    my ($line) = @_;

    $line =~ s/&/&amp;/sg; # Correct special chars

    $line =~ s/</&lt;/sg;

    $line =~ s/>/&gt;/sg;

    return($line);

}

Aug 8 '07 #3

miller

1,089

Expert 1GB

Look at your execute line. I guess that you probably one the following instead:

Expand|Select|Wrap|Line Numbers

#!c:\perl\bin\perl.exe

Whenever you're trying to simply get a script to work, always go back to "Hello World". It's the easiest way to isolate the problem to just your webserver itself, versus some possible combination of issues.

Expand|Select|Wrap|Line Numbers

 
#!c:\perl\bin\perl.exe
 
print "Content-type: text/html\n\n";
 
print "Hello World\n";

- Miller

Aug 8 '07 #4

markoj

Thanks Miller,
I started from top and went through code line by line and between the perl.exe line and the file the script was meant to be readin been in the wrong place problem is solved
Markoj

Aug 9 '07 #5

Similar topics

Perl vs PHP?

by: Keith | last post by:

All: What is the difference between Perl (CGI) and PHP (Apache module)? I thought both used servers to direct the user to the appropiate Perl or PHP program in order to execute the program to...

PHP

executing python within perl script

by: SS | last post by:

I am trying to execute some python commands within a perl script and running into problems. The following works: python -c "import mypkg;do this; do that" however when I try to do something like...

Python

Executing a PERL script from ASP.NET appl.

by: PzYon | last post by:

Hey 2gether! I'm trying to execute a PERL script on the web server when the user presses a button in an ASP.NET Web Application using Visual Basic. The most obvious solution for me seemed to be...

.NET Framework

Executing Javascript generated by PERL

by: Nathan Gilbert | last post by:

I am wanting to use javascript to select between different *.css files dependent on the user's browser. I am also wanting to generate the html document containing this javascript dynamically using...

Javascript

Perl and Python, a practical side-by-side example.

by: Shawn Milo | last post by:

I'm new to Python and fairly experienced in Perl, although that experience is limited to the things I use daily. I wrote the same script in both Perl and Python, and the output is identical. The...

Python

Executing shell script on unix box through perl script executed on windows

by: sunilsn | last post by:

Hi, I am newbie to perl, I hope you guys will help me resolve the challenge I am facing. I have a unix shell script on one UNIX machine say A, and a batch file on windows machine say B. Now I want...

Perl

executing Perl CGI

by: idorjee | last post by:

hi all, i've been trying to write a perl cgi script to generate an html output of the blast (program) and it's parsed results on the browser. following are some of the few lines from the script. the...

Perl

Perl Script

by: Balajisanthanakrishnan | last post by:

Old Title: Hi all, need help for this perl script- thanks in advance I am BalajiSanthanakrishnan, chennai. Now I am working in a Perl Script which is executing in the Unix Servers. Basically i am...

Perl

how to invoke/run a shell file sample.sh from within perl file.

by: prakashpb | last post by:

Hello All, I am new to perl. I have to write some code in perl on windows. I have to invoke/run a shell file sample.sh from within perl file. When the perl while is executing, it should run to...

Perl

External Table Query runs in PL/SQL but fails in perl script

by: tundal45 | last post by:

Hey Guys, I am trying to automate the process of loading data in our oracle server. As a part of that process, I am working on a perl script that loads external tables from data files. What I am...

Oracle Database

Cloud Servers without Credit Card and Email Registration: A Simpler Way to Get on the Cloud

by: CloudSolutions | last post by:

Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...

General

Wordpress or something else?

by: Faith0G | last post by:

I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

Content Management Systems

Access Europe: Command bars, the Access Shortcut Tool and a simple Audit Log - Wed 3 April

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

General

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Basic Javascript concepts

by: aa123db | last post by:

Variable and constants Use var or let for variables and const fror constants. Var foo ='bar'; Let foo ='bar';const baz ='bar'; Functions function $name$ ($parameters$) { } ...

Javascript

Merging data from multiple Excel files

by: ryjfgjl | last post by:

In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...

Data Management

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware