From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <khedin@mail.ru>
From: "Konstantin S. Uvarin" <khedin@mail.ru>
To: ALT Linux Community general discussions <community@lists.altlinux.org>
Date: Mon, 5 Nov 2007 07:55:58 +0300
User-Agent: KMail/1.9.7
References: <423a41ab0710260921o57d74281la3d5fbbf498553da@mail.gmail.com>
	<423a41ab0710261103x5401f807y5365a51ea363a441@mail.gmail.com>
	<200710262230.29657.khedin@mail.ru>
In-Reply-To: <200710262230.29657.khedin@mail.ru>
MIME-Version: 1.0
Content-Type: Multipart/Mixed;
  boundary="Boundary-00=_eJqLHyqhffawtfy"
Message-Id: <200711050755.58267.khedin@mail.ru>
Subject: Re: [Comm] =?koi8-r?b?8NLP083P1NIgbWh0?=
X-BeenThere: community@lists.altlinux.org
X-Mailman-Version: 2.1.9
Precedence: list
Reply-To: ALT Linux Community general discussions
	<community@lists.altlinux.org>
List-Id: ALT Linux Community general discussions <community.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/community>
List-Post: <mailto:community@lists.altlinux.org>
List-Help: <mailto:community-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Mon, 05 Nov 2007 04:53:18 -0000
Archived-At: <http://lore.altlinux.org/community/200711050755.58267.khedin@mail.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

--Boundary-00=_eJqLHyqhffawtfy
Content-Type: text/plain;
  charset="koi8-r"
Content-Transfer-Encoding: base64
Content-Disposition: inline

T24gRnJpZGF5IDI2IE9jdG9iZXIgMjAwNyAyMjozMDoyOSBLb25zdGFudGluIFMuIFV2YXJpbiB3
cm90ZToKPiBPbiBGcmlkYXkgMjYgT2N0b2JlciAyMDA3IDIyOjAzOjExIPfMwcTJzcnSIOzFz87J
xM/XIHdyb3RlOgo+ID4g8M/T1MHXycwgz9DF0tUuIPfTxSDPyywg1M/M2MvPIMXTzMkgydog68/O
y8Dc0s/SwSDawdDV08vB1NggbWh0LcbByswsINcKPiA+IM/QxdLOz8ogwcTSxdPOz8og09TSz8vF
INfNxdPUzyDS1dPTy8nIIMLVy9cgycTV1CDL0s/Lz9rRwszZLAo+ID4g08/P1NfF1NPU18XOzs8s
INPU0sHOycPBIM7FIM/Uy9LZ18HF1NPRLiDl08zJINbFINfS1d7O1cAg0M/E0NLB18nU2CDBxNLF
0wo+ID4gzMnCzyDP1MvS2dTYIMTPy9XNxc7UIM7F0M/T0sXE09TXxc7OzyDJ2iDQ0s/H0sHNzdks
INfTxSDSwcLP1MHF1C4KPiA+IOvByyDc1M8gydPQ0sHXydTYPwo+Cj4g9SDP0MXS2SDHzMDeztnK
INPL0snQ1Cwgy8/Uz9LZyiDFxSDawdDV08vBxdQsIGFzIGluINDMz8jPINDF0sXXwdLJ18HF1Ao+
IM7FwcfMycPLycUg08nN18/M2S4g9SDNxc7RINrOwcvPzdnKIM7B0snTz9fBzCDCz8zFxSDQ0tHN
z8osIM7PINEg19PFIM7Jy8HLCj4gzsUg0NLP18XSwCDFx88uIO7PIMvByyDQ0s/XxdLAIC0tIMfP
1M/XINDPxMXMydTY09EuCgruwdDJ08HMIM/UxMXM2M7P09TP0d3JyiDXxczP08nQxcQgzsEg0MXS
zMUg1yDJ1M/HxS4uLiDizMHHzyDQxdLMLCDLwdbF1NPRLCAK18XaxMUgxdPU2C4gCgr3zy3QxdLX
2cgg1MHLINPL0snQ1CDQ0skgz8LOz9fMxc7JySDOxSDQz9PU0sHEwcXULCDBINfPLdfUz9LZyCwg
ZGVyaXZhdGl2ZSAKd29yayDX08Ut1MHLyS4gCgrzy9LJ0NQg0NLJ0MnT2dfBxdQgLW5ld3BhZ2Ug
yyDT0MnTy9UgwdLH1c3FztTP1ywg6e3o7yDc1M8gxM/T1MHUz97OzyDSwdrVzc7PxSAK0M/XxcTF
zsnFLiDzIC1uZXd3aW5kb3cg08vSydDULCDQ0skg3NTPzSwg0sHCz9TBxdQgy8/S0sXL1M7PLgoK
7tUg18/ULCDTz8LT1NfFzs7PLi4uCgotLSAKS29uc3RhbnRpbiBTLiBVdmFyaW4KIuXMxdXT1NLF
zczFzs7ZyiIK

--Boundary-00=_eJqLHyqhffawtfy
Content-Type: application/octet-stream;
  name="arepo"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
	filename="arepo"

#!/usr/bin/perl -w

use strict;

##
##  Sator Arepo tenet opera.com
##

#
# Filter urls through webifier
#

my @OPER = ('-newpage');

foreach (@ARGV) {
	if (/^-/) {
		push @OPER, $_;
		next;
	};
	
        s/^\./$ENV{PWD}/;
        s:^~(/|$):$ENV{HOME}/:;

        s/([^:a-zA-Z0-9\-\.\_\/\?\=\&\n])/"%".phex($1)/ge;
	push @OPER, $_;
};

exec 'opera', @OPER;

sub phex {
        my $x = sprintf ("00%x", ord $_[0]);
        $x =~ /(..)$/;
        return $1;
};

--Boundary-00=_eJqLHyqhffawtfy--