Okay folks, I decided to come here and try my luck at getting a direct answer to the problems i've been having since i've already wasted way too much time waiting for a good answer to my questions at a Microsoft forum. Here's my problem: I wrote an ASP page based off some code an "expert" gave me at the microsoft site that is supposed to execute a PERL script server-side through the use of WSH. THe problem is that the PERL script is supposed to output two files and these files are not showing up on the server. I'm figuring my paths arent set up right and such but i dont know what to do to fix it. The ASP file, PERL script, and file used by the script are all located in the same directory ( my web home directory). ActivePERL is installed on the server, and i can execute the PERL script directly and receive correct results. Does anyone know what i need to do to the code provided below to fix my problems? Not sure if i've provided all the needed info but i'm new to Microsoft programming (I'm a C programmer by trade...and VBS just isnt my thing..) Any help would be of great appreciation. thanks. HTML: 
<html>
<body>
<form method=post>
  <input name=text1><br>
  <input type=submit value=submit id=submit1 name=submit1>
</form>
<%
 dim user
 dim wshell
 user=trim(request.form("text1"))
 if len(user) > 0 then
   response.write "<hr>user: " &amp; user
   set wshell = createobject("wscript.shell")
   '===
   ' assume script is in same folder as page...
   '===
   sScript = server.mappath("test1.pl") 
   '===
   ' run script in hidden window...
   '===
   wshell.run "perl """ &amp; sScript &amp; """ " &amp; user, 0, false
   set wshell = nothing
 end if
%>
</body>
</html>

[download]
PERL: 
# Variables #
$quit_loop = 0;
$found_name = 0;
@username = @ARGV;
$loop = 0;

# Converting username to correct format for comparison search 
$username[0] = substr($username[0], 1, 4);
if ( substr($username[0], 0, 1) eq "0" )
{
  $username[0] = substr($username[0], 1, 3);
}

# Cleaning up the Kronos document
open(ORIGFILE,"current") || die "cannot open current for reading";
open(REVFILE,">revfile") || die "cannot open revfile for writing";
while (<ORIGFILE>) # read each line of ORIGFILE
{
  if (/South/) # If a South Bend Line
  { 
    <ORIGFILE>;
    <ORIGFILE>;
    <ORIGFILE>; 
  }
  elsif (/-+/)
  { 
    print REVFILE $_;
    <ORIGFILE>;
    <ORIGFILE>;
  }
  else
  { print REVFILE $_; }
}
close(ORIGFILE);
close(REVFILE);

# Searching for the correct username to return data to another file
open(REVFILE, "revfile") || die "cannot open revfile for reading";
open(FINALFILE, ">finalfile.txt") || die "cannot open finalfile for wr
+iting";
while (<REVFILE>)
{
  # Converting Kronos username for comparison
  $current_line = $_;
  $current_id = substr($current_line, 33, 4);
  if ( substr($current_id, 0, 1) eq "0" )
  {
    $current_id = substr($current_id, 1, 3);
  }
  if ( substr($current_id, 3, 1) eq " ")
  {
    $current_id = substr($current_id, 0, 3);
  }
  
  unless ($quit_loop == 1 )
  {
    if ($found_name == 1)
    {
      if (/-+/) 
      { $quit_loop = 1; }
      else 
      { print FINALFILE $_; }
    }
    elsif ($current_id eq $username[0])
    {
      $found_name = 1;
      print FINALFILE $_;
    }
    else
    { $found_name = 0; }
  }
}
$quit_loop = 0;
print FINALFILE $path;
close(REVFILE);
close(FINALFILE);

[download]

In reply to IIS and Perl, yippee by matrix_man

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.