Instalacja programu Satan

[a-e-h]

Witam,
Muszę zainstalować program Satan, problem polega na tym, że instalacja nie jest możliwa z paczki, ani za pomocą poleceń configure/make/make install, na których to moja znajomość linuxa się kończy. Dlatego prosiłabym o pomoc.

Plik Readme, zawiera polecenie uruchomienia skryptu ./reconfig, który to zwraca błędy, niestety nie potrafię ich edytować samodzielnie. Gdyby ktoś, mógł mi wytłumaczyć, jakich poleceń użyć, żeby to zadziałało byłabym wdzięczna.

[michal671]

Ooooom, magiczna kulo, pokaż paczkę i jej błędy, oooom...

P.S.
Chodzi o ten program do monitorowania sieci?

[a-e-h]

Tak, ten do sprawdzania integralności sieci.

[a-e-h]

http://www.porcupine.org/satan/

[Shimmy]

Napisz konkretnie jakie są te błędy

[michal671]

Primo:
Nie pisz posta pod postem.
Secundo:
Daj loga z konsoli.
Tertio:
Daj link do kopii programu, którą masz.
Quatro:
Dlaczego używasz tak starej i nie wspieranej wersji systemu?!

[a-e-h]

Reconfig:

Kod: Zaznacz cały

#!/bin/sh -- need to mention perl here to avoid recursion
'true' || eval 'exec perl -S $0 $argv:q';
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec /usr/local/bin/perl -S $0 $argv:q'
	if 0;

Do tego wyrzuca mi:

Kod: Zaznacz cały

/bin/sh: Illegal option --

w momencie wyrzucenia

Kod: Zaznacz cały

 -- need to mention perl here to avoid recursion

w następną linię i zaznaczenia # (yyy... w komentarz?), po ponownym uruchomieniu

Kod: Zaznacz cały

/bin/sh: Illegal option -S

Na moją babską logikę, S zamieniłam na s i poszło ale później skrypt się nie zamkną automatycznie i jak próbowałam przejść dalej z instrukcją Readme, gdzie kazali make nie zadziałało.

Primo: Nie nauczyłam się jeszcze edytować postów na tym forum, przepraszam
Secundo: log? Chyba to powyżej
Tertio: W tym zdublowanym poście jest link, ale dobra: http://www.porcupine.org/satan/mirrors.html, nie pamiętam z którego dokładnie ściągałam mirrora, bo połowa nie działała.
Quatro: Nie rozumiem tej starej wersji w związku z czym nowszej tym bardziej nie zrozumiem, a używam bo muszę.

[michal671]

Primo:
Na pewno masz zainstalowanego Perl'a?
Secundo:
Właśnie chodzi o to, że Twój system może być niewspierany przez tą aplikację i nie działa - tak po prostu

A błąd w dosłownym tłumaczeniu znaczy tyle co: Należy zwrócić uwagę perl tutaj, aby uniknąć rekurencji.

[a-e-h]

Perl jest zainstalowany sprawdzałam kilka razy.

To nie błąd a frgm kodu reconfig do którego wyrzuca błąd. Też tłumaczyć potrafię, co nie zmienia faktu, że nic mi to nie mówi. Błąd jest do /bin/sh -- dokładniej mówiąc nie można użyć -- z bin/sh z tego co zrozumiałam i później do opcji -S.

[michal671]

Kończą mi się pomysły...
Spróbuj jeszcze tak:
Wpisz w Terminal:

Kod: Zaznacz cały

sudo su

podaj hasło i wykonuj wszystko po kolei, tak jak jest napisane w instrukcji.

[a-e-h]

Y... Ja wiem, że jestem kobietą ale rozumiem jeszcze przełączenie użytkowników i istotę roota. Wszystko robiłam pod nim.

Instrukcja przetłumaczona i uproszczona jest taka:

Kod: Zaznacz cały

1. Wypakuj
2. Zainstaluj Perla i przeglądarkę WWW, (apt-get install perl)
3. Musisz mieć odpowiedni CPU i 32MB pamięci
4. Uruchom skrypt reconfig, który ustawi parametry perla i przeglądarki
5. Uruchom komende make
6. Jeśli sieć leży za firewall, musisz ustawić $http_proxy $file_proxy, $socks_ns, itp
7. Uruchom skrypt satan, bez parametrów otworzy się przeglądarka z GUI. Jeśli chcesz zbierać dane musisz uruchomić program jako root

Przeglądarkę mam, perla mam, skrypt reconfig wyrzuca mi błędy (w tym cały problem), polecenie make nie działa, komendy satan nie wykrywa jako programu.

Jeżeli to było by proste sama dałabym sobie radę.

Całość skryptu reconfig, który nie działa:

Kod: Zaznacz cały

#!/bin/sh  -- need to mention perl here to avoid recursion
'true' || eval 'exec perl -S $0 $argv:q';
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec /usr/local/bin/perl -S $0 $argv:q'
	if 0;

#
# version 1, Sun Mar 26 18:31:28 1995, last mod by zen
#

#  Usage: [perl] reconfig [file]
#
#   This replaces the program paths (e.g. /bin/awk) in SATAN with an
# alternate path that is found in the file "file.paths".  It also finds
# perl5 (or at least tries!) and changes the path in all the stand-alone
# perl programs.
#

# all the HTML browsers we know about, IN ORDER OF PREFERENCE!
@all_www= ("netscape", "Mosaic", "xmosaic", "lynx");

#
#  Potential directories to find commands; first, find the user's path...
$PATH = $ENV{"PATH"};

# additional dirs; *COLON* separated!
$other_dirs="/usr/ccs/bin:/bin:/usr/bin:/usr/ucb:/usr/bsd:/usr/ucb/bin:/usr/sbin:/usr/etc:/usr/local/bin:/usr/bin/X11:/usr/X11/bin:/usr/openwin/bin";

#
# split into a more reasonable format. Personal aliases come last.
@all_dirs = split(/:/, $other_dirs . ":" . $PATH);

#
#  Target shell scripts in question:
@shell_scripts=("config/paths.pl", "config/paths.sh");
@perl5_src = <bin/get_targets bin/faux_fping satan bin/*.satan perl/html.pl>;

#
#  Target shell commands in question
@all_commands=("cc", "cat", "chmod", "cmp", "comm", "cp", "date", "diff",
	"egrep", "expr", "find", "grep", "ls", "mail", "mkdir", "mv", "rm",
	"sed", "sh", "sort", "tftp", "touch", "uniq", "uudecode", "ypcat",
	"strings", "finger", "ftp", "rpcinfo", "rusers", "showmount", "ping",
	"ypwhich", "nslookup", "xhost", "su", "awk", "sed", "test", "whoami", 
	"basename", "echo", "file");

print "checking to make sure all the target(s) are here...\n";

for (@shell_scripts) {
	die "ERROR -- $_ not found!\n" unless -f $_;
	}

# find perl5!
print "Ok, trying to find perl5 now... hang on a bit...\n";
for $dir (@all_dirs) {
	# first, find where it might be; oftentimes you'll see perl,
	# perl4, perl5, etc. in the same dir
	next if (! -d $dir);
	while (<$dir/perl5* $dir/perl*>) {
		if (-x $_) {
			$perl_version=`($_ -v 2> /dev/null) |
				awk '/This is perl, version 5/ { print $NF }'`;
			if ($perl_version) {
				$PERL=$_;
				$pflag="1";
				last;
				}
			}
			last if $pflag;
		}
	last if $pflag;
	}

die "\nCan't find perl5!  Bailing out...\n" unless $PERL;
print "\nPerl5 is in $PERL\n";

for (@perl5_src) { $perl5_src .= "$_ "; }
print "\nchanging the source in: $perl5_src\n";
system "$PERL -pi -e \"s@^#!.*/perl.*@#!$PERL@;\" $perl5_src";

# make sure things are executable...
system("chmod u+x $perl5_src");
 
# find the most preferred www viewer first.
for $www (@all_www) {
	for $dir (@all_dirs) {
		if (!$MOSAIC) {
			if (-x "$dir/$www") {
				$MOSAIC="$dir/$www";
				next;
				}
			}
		}
	}
if ($MOSAIC) {
	print "\nHTML/WWW Browser is $MOSAIC\n";
	$upper{"MOSAIC"} = $MOSAIC;
	}
else { print "Cannot find a web browser!  SATAN cannot be run except in CLI"; }

print "\nSo far so good...\nLooking for all the commands now...\n";

for $command (@all_commands) {
	$found="";
	for $dir (@all_dirs) {
		# special case rsh/remsh; if we can find remsh, ignore rsh
		if ($command eq "rsh") {
			# print "looking for rsh/remsh ($dir/$command)\n";
			if (-f "$dir/remsh") {
				# this converts to upper case
				($upper = $command) =~ y/[a-z]/[A-Z]/;
				$found="true";
				$upper{$upper} = "$dir/remsh";
				print "found $dir/remsh; using this instead of rsh\n";
				last;
				}
			}

		# if find the command in one of the directories, print string
		if (-f "$dir/$command") {
			# this converts to upper case
			($upper = $command) =~ y/[a-z]/[A-Z]/;
			$found="true";
			$upper{$upper} = "$dir/$command";
			# print "found ($upper) $dir/$command\n";

			# if it's rsh we're examining, keep looking; else quit
			last unless $command eq "rsh";
			}
		}
	print "\nAEEEIIII...!!!  can't find $command\n\n" unless $found;
	}

print "\nOk, now doing substitutions on the shell scripts...\n";
for $shell (@shell_scripts) {
 	print "Changing paths in $shell...\n";
	die "Can't open $shell\n" unless open(SCRIPT, $shell);
	rename($shell, $shell . '.old');
	die "Can't open $shell\n" unless open(OUT, ">$shell");

	#
	#  Open up the script, search for lines beginning with
	# stuff like "TEST", "AWK", etc.  If the file ends in "pl",
	# assume it's a perl script and change it accordingly
	while (<SCRIPT>) {
		$found = 0;
		for $command (keys %upper) {
			if(/^\$?$command=/) {
				# shell script
				if ($shell !~ /.pl$/) {
					print OUT "$command=$upper{$command}\n";
					}
				# perl script
				else {
					print OUT "\$" . "$command=\"$upper{$command}\";\n";
					}
				$found = 1;
				}
			}
		print OUT $_ if !$found;
		}
	close(SCRIPT);
	close(OUT);
	}

# done...