VPF::принцип работы скрипта - Форум программистов

Vidocq

Дата 9.2.2005, 09:45 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 431
Регистрация: 15.12.2004
Где: Запорожье, Украин а

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

Следующий скрипт устанавливает (вроде бы smile

сертификат на машину клиента.
Я прошу объяснить построчно его действия, так как есть необходимость переписать данный скрипт на java

Код


#!/usr/local/bin/perl -T

require 5.003;
use strict;

//вот тут, кажется, указывается путь и имя сертификатов
my $cert_dir = "/usr/local/ssl/private";
my $cert_file = "CAcert.der";
my $cert_path = "$cert_dir/$cert_file";

open(CERT, "<$cert_path");
my $data=join '',<CERT>;
close(CERT);

print "Content-Type: application/x-x509-ca-cert\n";
print "Content-Length: ", length($data), "\n\n$data"; 
1;

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

Всё течёт ©

chaos

Дата 9.2.2005, 10:01 (ссылка)

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

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 3
Всего: 44

Код


#!/usr/local/bin/perl -T  # ключ Т-проверка прав доступа

require 5.003;  #запускать перлом версии не ниже ....
use strict;      #указывает на то что все переменные должныбыть my

#вот тут, кажется, указывается путь и имя сертификатов
my $cert_dir = "/usr/local/ssl/private";  #все верно, пути к файлам
my $cert_file = "CAcert.der";
my $cert_path = "$cert_dir/$cert_file";

open(CERT, "<$cert_path"); #открываешь файл для чтения
my $data=join '',<CERT>;  #...содержимое его в $data
close(CERT); #закрываешь файл

print "Content-Type: application/x-x509-ca-cert\n"; #выводишь ответ
print "Content-Length: ", length($data), "\n\n$data"; #броузеру
1;

Это сообщение отредактировал(а) chaos - 9.2.2005, 10:02

Vidocq

Дата 9.2.2005, 12:18 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 431
Регистрация: 15.12.2004
Где: Запорожье, Украин а

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

chaos
Спасибо.
Буду думать как это можно применить к моей проге.... smile

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

Всё течёт ©

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