[ LUGOS ] aliases

[Borut Mrak]

On Sun, Jul 23, 2000 at 11:04:00PM +0200, Borut Rozman wrote:
> po nesreči sem izbrisal aliases, imam pa še celovit aliases.db, ali je kaka
> možnost reverse iz .db fajla dobit nazaj source.

OK, sedaj me je zadeva toliko zbodla, da sem napisal alias_retriever.pl:

#!/usr/bin/perl -w

use DB_File;

tie %aliases, 'DB_File', "/etc/aliases.db", O_RDONLY
  or die "Cannot open /etc/aliases.db: $!\n";

foreach $key (keys %aliases) {
  $value=$aliases{$key};
  chop $key;		#Odrezimo \0, ki se nekako znajde v vsaki vrednosti
  chop $value;  	#takisto
  print "$key: $value\n";
}


Tukaj je treba samo se pocistit nekaj junka, ki ga zraven namece $NEKDO.
Pri meni je zraven recimo
@: @
YP_LAST_MODIFIED: 096393124
YP_MASTER_NAME: xxx

lp,

-- 
Borut
borut.mrak na ijs.si
-----------------
Laziness: Resting before you get tired.