Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > принцип работы скрипта

Автор: Vidocq 9.2.2005, 09:45

Следующий скрипт устанавливает (вроде бы 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

Код


#!/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;

Автор: Vidocq 9.2.2005, 12:18

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