[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [cobalt-users] RAQ2 PERL Script Checker?

Hi  -
The script below may not be exactly what you asked for, but I
am sure your clients will find it useful - I am still looking for a
perl script verifier I use and will shoot it to you.

-Max

#!/usr/bin/perl



                         ### *** IMPORTANT *** ###

         ### *** Make sure the path to PERL above is correct *** ###

                   ## Could be any of the following:

                   ## #!/usr/bin/perl
                   ## #!/usr/bin/perl
                   ## #!/usr/bin/perl5

### *** If FTP'ing this file, be sure to send in ASCII format *** ###

# You must chmod the cgi's to 755 - Unix Only

# Install this file in the directory you want to check the PATH for



      ########################################
      #                                                               #
      #                          SCRIPT/SITE TEST
#
      #                                    FOR
#
      #                            RAQ 2 SERVERS                         #
      #                                                               #
      # Script name: raqtest.cgi                                     #
      #                                                               #
      #                                                               #
      #########################################


                      ### *** IMPORTANT *** ###




if (-d "C:/" || $^O eq "MSWin32") {
 $windows = 1;
 $operating_system = "WINDOWS";
($0 =~ m,(.*)\\[^\\]+,) && unshift (@PATH, "$1");
} elsif (-e "/etc/passwd") {
 $unix = 1;
 $operating_system = "UNIX";
($0 =~ m,(.*)/[^/]+,) && unshift (@PATH, "$1");
} else {
 $unix = 1;
 $operating_system = "UNKNOWN Operating System";
 @PATH = "Unable to determine path, please consult your system
administrator.";
}

                        ### *** :) *** ###

print "Content-type: text/html\n\n";

print <<"EOT";

<HTML>
<HEAD>
<TITLE>RAQ2 Script/Site Test</TITLE>
</HEAD>
<BODY BGCOLOR=FFFFFF TEXT=000000>

<CENTER><H2>RAQ2 Path and Environment Test</H2></CENTER>
<HR>
<P>
The operating system is: $operating_system
<P>
The path for this file is: <FONT COLOR=#F04E00 FACE="arial">@PATH</FONT>
<P>
<HR>
<P>
EOT


foreach $key (keys(%ENV)) {

print "$key = $ENV{$key}<br>\n";
}

print "<P><B>Perl Version $] </B>";

print "<HR><HR><HR></body></html>";


exit;

                          ### *** *** ###



----- Original Message -----
From: "Casselman, Chad" <chad.casselman@xxxxxxxxxxxxxxxxx>
To: <cobalt-users@xxxxxxxxxxxxxxx>
Sent: Thursday, August 10, 2000 6:21 AM
Subject: [cobalt-users] RAQ2 PERL Script Checker?


> I have a RAQ2 and I want to have a PERL script checker for my customers.
I
> am having trouble finding one, but I know they exist because they are on
> many hosts.  Does anyone have one working on a RAQ or do you know where I
> can find one?
>
> I want it to display exactly what /usr/bin/perl -w displays in the command
> line, but show it to the screen.
>
> Thanks,
> chad
>
>
> _______________________________________________
> cobalt-users mailing list
> cobalt-users@xxxxxxxxxxxxxxx
> To Subscribe or Unsubscribe, please go to:
> http://list.cobalt.com/mailman/listinfo/cobalt-users
>