Здравствуйте!<br>Не могу создать сертификаты при помощи утилиты tinyca2.<br>При запуске выдается:<br># tinyca2<br>Gtk-WARNING **: cannot open display:   at /usr/bin/tinyca2 line 48.<br><p>У меня OC - altlinux-release-office-server-20080609-alt0.M40.1<br>
</p>#!/usr/bin/perl -w<br>#<br># $Id: tinyca2,v 1.5 2006/06/28 21:50:41 sm Exp $<br>#<br># Copyright (c) Stephan Martin &lt;<a href="mailto:sm@sm-zone.net">sm@sm-zone.net</a>&gt;<br>#<br># This program is free software; you can redistribute it and/or modify<br>
# it under the terms of the GNU General Public License as published by<br># the Free Software Foundation; either version 2 of the License, or<br># (at your option) any later version.<br>#<br># This program is distributed in the hope that it will be useful,<br>
# but WITHOUT ANY WARRANTY; without even the implied warranty of<br># MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the<br># GNU General Public License for more details.<br>#<br># You should have received a copy of the GNU General Public License<br>
# along with this program; if not, write to the Free Software<br># Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.<br><br>BEGIN { unshift(@INC, &#39;/usr/share/TinyCA2/lib&#39;); # put here the location of the modules<br>
}<br><br>use strict;<br><br>use Gtk2;<br><br>use MIME::Base64;<br><br>use POSIX;<br>use Locale::gettext;<br><br>use OpenSSL;<br>use CA;<br>use GUI;<br>use HELPERS;<br>use GUI::TCONFIG;<br>use GUI::HELPERS;<br>use GUI::CALLBACK;<br>
use GUI::WORDS;<br>use GUI::X509_infobox;<br>use GUI::X509_browser;<br>use CERT;<br>use REQ;<br>use KEY;<br>use TCONFIG;<br><br><span style="background-color: #ff0000;">ВОТ 48 линия   INIT { Gtk2-&gt;init; }</span><br><br>
setlocale(LC_MESSAGES, &quot;&quot;);<br>bindtextdomain(&quot;tinyca2&quot;, &quot;/usr/share/locale/&quot;);<br>textdomain(&quot;tinyca2&quot;);<br><br># <a href="https://bugs.gentoo.org/show_bug.cgi?id=78576">https://bugs.gentoo.org/show_bug.cgi?id=78576</a><br>
$ENV{XLIB_SKIP_ARGB_VISUALS}= &#39;1&#39;;<br><br>my $init = {};<br><br># location of openssl<br>$init-&gt;{&#39;opensslbin&#39;} = &quot;/usr/bin/openssl&quot;;<br>$init-&gt;{&#39;zipbin&#39;} = &quot;/usr/bin/zip&quot;;<br>
$init-&gt;{&#39;tarbin&#39;} = &quot;/bin/tar&quot;;<br><br>if(not -x $init-&gt;{&#39;opensslbin&#39;}) {<br>&nbsp;  printf(gettext(&quot;Can&#39;t execute %s.\n&quot;), $init-&gt;{&#39;opensslbin&#39;});<br>&nbsp;  print gettext(&quot;Configure correct path to openssl in tinyca.\n&quot;);<br>
&nbsp;  exit(1);<br>}<br><br>if(not -x $init-&gt;{&#39;zipbin&#39;}) {<br>&nbsp;  print gettext(&quot;zip command not found, support disabled.\n&quot;);<br>&nbsp;  print gettext(&quot;Configure correct path to zip in tinyca.\n&quot;);<br>
}<br><br>if(not -x $init-&gt;{&#39;zipbin&#39;}) {<br>&nbsp;  print gettext(&quot;tar command not found, support disabled.\n&quot;);<br>&nbsp;  print gettext(&quot;Configure correct path to tar in tinyca.\n&quot;);<br>}<br><br># directory with the templates<br>
$init-&gt;{&#39;templatedir&#39;} = &quot;/usr/share/TinyCA2/templates&quot;;<br><br>if(not -d $init-&gt;{&#39;templatedir&#39;}) {<br>&nbsp;  print gettext(&quot;Can&#39;t find templatedir.\n&quot;);<br>&nbsp;  print gettext(&quot;Please configure correct path with templates in tinyca.\n&quot;);<br>
&nbsp;  exit(1);<br>}<br><br># location for CA files<br>$init-&gt;{&#39;basedir&#39;}   = $ENV{HOME}.&quot;/.TinyCA&quot;;<br>$init-&gt;{&#39;exportdir&#39;} = $ENV{HOME};<br><br>umask(0077);<br><br># create main object and initialize CA<br>
my $gui = GUI-&gt;new($init);<br><br># and now run...<br>$gui-&gt;{&#39;mw&#39;}-&gt;show_all();<br><br># decide what to do on startup<br>if(@{$gui-&gt;{&#39;CA&#39;}-&gt;{&#39;calist&#39;}}) {<br>&nbsp;  $gui-&gt;{&#39;CA&#39;}-&gt;get_open_name($gui);<br>
} else {<br>&nbsp;  $gui-&gt;{&#39;CA&#39;}-&gt;get_ca_create($gui);<br>}<br><br>sub _ {<br>&nbsp;  my $s = gettext(@_);<br>&nbsp;  utf8::decode($s);<br>&nbsp;  return($s);<br>}<br><br>Gtk2-&gt;main();<br><br>exit(0);<br><br><br>