VPF::Установка из исходного файла - Форум программистов

Vovan_Danielyan

Дата 23.1.2009, 03:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 4.8.2007
Где: Усть-Лабинск

Репутация: нет
Всего: 1

Тема видимо уже обсуждалась, и в гугле полно инфы, но для этого случая я не нашел: надо установить не из тарбала и вообще не их пакета, а просто есть файл в котором написан код нужной мне утилиты pptp-command. Весь код не поместился, вот начало:

Код


#!/usr/bin/perl -wT
#this is a combination of jeff's previous pptp scripts
#functions:
# setup - configures tunnel servers and chap-secrets
# start - brings up a tunnel
# stop  - brings down a tunnel
#
# chkconfig: - 90 10
# description: cleanly brings down the tunnel when changing runlevels.
#
### BEGIN INIT INFO
# Provides: pptp
# Required-Start: network
# Required-Stop: network
# Default-Start:
# Default-Stop: 0 1 2 3 4 5 6
# Description: PPTP based VPN
### END INIT INFO
# $Id: pptp-command,v 1.12 2001/12/20 13:09:02 jwiedemeier Exp $

#######
# Data
#
# the regexp for the list of characters that are unsafe
# to put inside a system() or ``
# it is built by saying everything but known safe characters
# anyone want to make bets on if this holds true for i18n'ed systems?
my $safe_set  = '-A-Za-z0-9\s\._\/:';
my $unsafe_re = "[^$safe_set]";
my $safe_re   = "[$safe_set]*";

#
# pppdir - the directory containing the ppp config files
#
my $pppdir = $ENV{"PPPDIR"};
die "Stop screwing with me and set PPPDIR to something reasonable\n" if defined $pppdir && $pppdir =~ /$unsafe_re/o;
$pppdir = "/etc/ppp" unless defined $pppdir;

#
# pptpdir - the directory containing the pptp drop-in config files
#
my $pptpdir = $ENV{"PPTPDIR"};
die "Stop screwing with me and set PPTPDIR to something reasonable\n" if defined $pptpdir && $pptpdir =~ /$unsafe_re/o;
$pptpdir = "/etc/pptp.d" unless defined $pptpdir;

#
# chap_secrets - the full path to the the CHAP
#       (Challenge/Handshake Authentication Protocol) secrets file
#
my $chap_secrets = "$pppdir/chap-secrets";
my $pap_secrets = "$pppdir/pap-secrets";

#
# tunnel_dir - the directory containing tunnel config files
#
my $tunnel_dir = "$pppdir/peers";

#
# subsys_dir - the place "rc" looks to see if a servics is started
#              before it runs the K* scripts
my $subsys_dir = "/var/lock/subsys";

#
# The resolv.confs...
#
my $resolv = "/etc/resolv.conf";
my $resolv_pptp = "$resolv.pptp";
my $resolv_real = "$resolv.real";

#
# clean up the path since this is run as root.
$ENV{PATH} = "/bin:/usr/bin:/usr/sbin";
delete $ENV{BASH_ENV};
delete $ENV{IFS};
delete $ENV{ENV};

sub usage() {
        print "usage: $0 [setup|stop|start [tunnel]]\n";
        print "all options must be specified to run non-interactively\n";
        exit 1;
}

#######
#first some support functions that are used everywhere
#
#yesno <prompt>
#
# Ask the user <prompt> and return true for yes, false for no
#
sub yesno($) {
        my $prompt = $_[0];
        while(1) {
                print "\n$prompt [Y/n]:";
                my $choice = <STDIN>;
                chomp $choice;
                return 1 if $choice eq "" || $choice =~ /[Yy]/;
                return 0 if $choice =~ /[Nn]/;
                print "\nI don't understand '$choice', please try again...\n";
        }
}

#QueryUser <prompt> <default>
#
# Ask the user <prompt> and return the answer, <default> if cr
#
sub QueryUser($$) {
        my ($prompt, $default) = @_;

        print "$prompt";
        print " [$default]" if defined $default;
        print ": ";
        my $answer = <STDIN>;
        chomp $answer;
        $answer = $default if $answer eq "" and defined $default;
        return $answer;
}

код вроде бы перловский.

Пробовал я его устанавливать и через консоль с make, однако там мне сказали, что мэйкать в этом файле нечего. У меня установлен geany поэтому полез туда, открыл этот исходник. Сначала скомпилировать не удалось, geany придрался к первой строчке. Не долго думая, я это строчку удалил (ага, во так вот просто удалил smile

) и скомпилировать удалось, только получился какой-то непонятный файл с именем pptp-commandc безо всякого расширения. Там написаны какие-то три невнятные строчки кода, что с ним делать непонятно и вообще это вероятно не то, что нужно (просто так ведь удаление строчек из кода не проходит smile

).
Короче говоря, вопрос такой: как установить прогу (в частности pptp-command) имея только файл с ее кодом.
Подскажите, пожалуйста, а то уже полтора часа бьюсь, уснуть не могу! smile

Это сообщение отредактировал(а) bilbobagginz - 23.1.2009, 10:01

bilbobagginz

Дата 23.1.2009, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Naughtius Maximus

Профиль
Группа: Экс. модератор
Сообщений: 8813
Регистрация: 2.3.2004
Где: Israel

Репутация: 113
Всего: 317

есть 2 широких понятия в языках программирования (я.п.) :

первые я.п. не нужно компилировать: скрипт выполняется интерпретором данного языка.
проще всего такую программу запускать при запуске интерпретера и как первый аргумент дать имя файла программы.
в UNIX есть конвенция автоматического выбора интерпретера для скриптов:
в первой строке пишется "шебанг" (#!) и путь к файлу интерпретера (#!/usr/bin/perl -wT)
а файл помечается выполняемым (chmod +x).
т.е. для запуска нужно, чтобы PERL был в /usr/bin, и сделать:

Код


chmod +x pptp-command
./pptp-command

удачи

--------------------

Я ещё не демон. Я только учусь.

Vovan_Danielyan

Дата 23.1.2009, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 4.8.2007
Где: Усть-Лабинск

Репутация: нет
Всего: 1

Ого, круто как! smile

Не, про парсеры и компиляторы я и до этого знал, но вот шебанги - это классно придумано! Все больше и больше растет уважение к Linux!

Спасибо, bilbobagginz! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| *NIX системы: Общие вопросы \| Следующая тема »