[perl] Toch wel of niet? - Softwareontwikkeling

zondag 31 maart 2002 21:44

Acties:

Topicstarter

Ik heb hier een script, dit wil ik graag installeren, maar het werkt niet. Er zit een manual bij en een file die alles op je ftp goedzet, dit valt dit makkelijker te installeren.

In de file staat:

I have created a simple utility script that can be placed in your cgi-bin and run from your browsers command line. If your server allows directory creation via cgi scripts, then this utility will attempt to create the default (recommended) directories and file names for you, and set the permissions. It is unprotected and there is no guarantee that it will work on all sites; try it at your own risk (disclaimer only). It has worked well on most sites.

Try installing and running this script first. It will report success or failure when creating the files/directories and prove the correctness of your Perl Path", plus indicate that the default relative paths will work OK. If the default urls/paths are not used, then you will have to change them first.

To use it, make sure the "Perl Path" at the top of the script is correct. NOTE: the default Dir/File permissions are set to 766/666. Change these values to 777/766 if your site so requires BEFORE running the script. If running the script is successful, you only have to FTP your supplied files over the new empty ones as ASCII text. (Note: for security reasons, makedir does NOT prepare an empty file for the cgi scripts, you must upload them (as ascii) and set chmod 755 your self)

Once run, delete the file immediately because it has no input protection and could be run again by some low-life wanting to cause mischief

----------
Ik snap niet helemaal wat ze ermee bedoelen, weet iemand of ik nou wel of niet veranderingen in het script moet aanbrengen, zoja , hoe en wat zal ik erin moeten veranderen?

De code is:

code:

#!/usr/bin/perl

#### Once this script is used, DELETE IT immediatly.####
#### Once this script is used, DELETE IT immediatly.####
####     Input to this script is NOT protected  ####

##--Place in your cgi-bin directory and chmod 755 (7=r+w+x, 5=r+x).
##--Change ALL 766 values to 777 IF your server requires 777 (0 prefix must remain where-ever)
##--Then run from browser command line, ie http://www.yourdomain.path/cgi-bin/makedir.cgi

$dir = "mftemp";        # cgi-bin sub directory
mkdir $dir,"766";
chmod(0766, "$dir");

$dir1 = "mfpages";      # cgi-bin sub directory
mkdir $dir1,"766";
chmod(0766, "$dir1");

$dir2 = "mfrecrds";     # cgi-bin sub directory
mkdir $dir2,"766";
chmod(0766, "$dir2");

$dir3 = "../mform";     # CREATE html docs directory FIRST - manually
                        # program will test your path!

if (!open (NEW, "+<$dir2/mfrms_file.pl")) {open (NEW, ">$dir2/mfrms_file.pl");}
close (NEW); chmod(0666, "$dir2/mfrms_file.pl");
if (!open (NEW, "+<$dir2/Hosting_Order.cnt")) {open (NEW, ">$dir2/Hosting_Order.cnt");}
close (NEW); chmod(0666, "$dir2/Hosting_Order.cnt");
if (!open (NEW, "+<$dir2/Hosting_Order.db")) {open (NEW, ">$dir2/Hosting_Order.db");}
close (NEW); chmod(0666, "$dir2/Hosting_Order.db");
if (!open (NEW, "+<$dir2/Hosting_Order.let")) {open (NEW, ">$dir2/Hosting_Order.let");}
close (NEW); chmod(0666, "$dir2/Hosting_Order.let");
if (!open (NEW, "+<$dir2/Hosting_Order.txt")) {open (NEW, ">$dir2/Hosting_Order.txt");}
close (NEW); chmod(0666, "$dir2/Hosting_Order.txt");
if (!open (NEW, "+<$dir2/errs.pl")) {open (NEW, ">$dir2/errs.pl");}
close (NEW); chmod(0666, "$dir2/errs.pl");
if (!open (NEW, "+<$dir2/errs_msg.pl")) {open (NEW, ">$dir2/errs_msg.pl");}
close (NEW); chmod(0666, "$dir2/errs_msg.pl");
if (!open (NEW, "+<$dir2/lang_EN.pl")) {open (NEW, ">$dir2/lang_EN.pl");}
close (NEW); chmod(0666, "$dir2/lang_EN.pl");
if (!open (NEW, "+<$dir2/langg_EN.pl")) {open (NEW, ">$dir2/langg_EN.pl");}
close (NEW); chmod(0666, "$dir2/langg_EN.pl");

print "Content-type: text/html\n\n";
print "<html><body bgcolor=\"FFFFFF\" text=\"000000\">\n";

if (!( -e "$dir")) {print "New $dir Directory not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir1")) {print "New $dir1 Directory not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2")) {print "New $dir2 Directory not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir3")) {print "New $dir3 Directory not found - check path and run again.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/mfrms_file.pl")) {print "$dir2/mfrms_file.pl File not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/Hosting_Order.cnt")) {print "$dir2/Hosting_Order.cnt File not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/Hosting_Order.db")) {print "$dir2/Hosting_Order.db File not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/Hosting_Order.let")) {print "$dir2/Hosting_Order.let File not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/Hosting_Order.txt")) {print "$dir2/Hosting_Order.txt File not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/errs.pl")) {print "$dir2/errs.pl File not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/errs_msg.pl")) {print "$dir2/errs_msg.pl File not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/lang_EN.pl")) {print "$dir2/lang_EN.pl File not created.<br>\n"; $s1 = 1;}
if (!( -e "$dir2/langg_EN.pl")) {print "$dir2/langg_EN.pl File not created.<br>\n"; $s1 = 1;}

if ($s1) {print "<br>Errors Occurred! Read the Readme.htm file for options.\n";}
else {print "No Errors reported, so the sub directory and files should be ready for you to copy to (FTP). <em>See Readme file</em>.\n";}
print "<br>Script finished, ".localtime(time).", Server Local Time.\n";
print "<p>The absolute pathname of this script is $ENV{'SCRIPT_FILENAME'}.<br>\n";
print "The relative pathname of this script (via the root directory) is $ENV{'SCRIPT_NAME'}.<br><em>Delete this script NOW!</em>.</P>\n";
print "<body><html>\n";

exit;

#### Once this script is used, DELETE IT immediatly.####
#### Once this script is used, DELETE IT immediatly.####

Ik krijg dan deze error:
New /cgi-bin/mftemp Directory not created.
New /cgi-bin/mfpages Directory not created.
New /cgi-bin/mfrecrds Directory not created.
New /HTML/mform Directory not found - check path and run again.
/cgi-bin/mfrecrds/mfrms_file.pl File not created.
/cgi-bin/mfrecrds/Hosting_Order.cnt File not created.
/cgi-bin/mfrecrds/Hosting_Order.db File not created.
/cgi-bin/mfrecrds/Hosting_Order.let File not created.
/cgi-bin/mfrecrds/Hosting_Order.txt File not created.
/cgi-bin/mfrecrds/errs.pl File not created.
/cgi-bin/mfrecrds/errs_msg.pl File not created.
/cgi-bin/mfrecrds/lang_EN.pl File not created.
/cgi-bin/mfrecrds/langg_EN.pl File not created.

Errors Occurred! Read the Readme.htm file for options.
Script finished, Sun Mar 31 21:56:43 2002, Server Local Time.
The absolute pathname of this script is /home/zippie/cgi-bin/makedir.cgi.
The relative pathname of this script (via the root directory) is /cgi-bin/makedir.cgi.
Delete this script NOW!.

cmod etc staat wel gewoon goed.

zondag 31 maart 2002 21:56

Acties:

nxt

...
To use it, make sure the "Perl Path" at the top of the script is correct. ...

hoe veel duidelijker moet het er staan?
controleer of het path naar perl klopt,
zo ja, doe niets
zo nee, wijzig het

edit:

NOTE: the default Dir/File permissions are set to 766/666. Change these values to 777/766 if your site so requires

dit moet je ook nog controleren...
het staat er duidelijk, neem de waardes die voor jou site van toepassing zijn

zondag 31 maart 2002 21:57

Acties:

XippIX

Topicstarter

ja is correct is nix mis mee

zondag 31 maart 2002 21:57

Acties:

Marv

Neem volgende keer een andere topic titel

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George

zondag 31 maart 2002 22:35

Acties:

XippIX

Topicstarter

sorry, kan niets verzinnen.

Maar goed nu weer even optopic, als je het script coppied, dan moet hij ook werken op jouw server. Het script create alleen een foldertje

maandag 1 april 2002 09:14

Acties:

Verwijderd

bijdehante mensenjes hier,
als het script iets output staat
zijn perlpath iniedergeval goed (dúh)