🚀 go-pugleaf

In article <SikPost.1@ulrik.2>, sik@cs.uow.edu.au (Stein I. Krav) writes:
> 
> Are there any NNTP servers in Norway with public access
> (except ulrik.uio.no which someone told me might go away)?
> 
> 'Samme hvor du g}r, der er du' - Buckaroo Banzai
> <Stein> - sik@cs.uow.edu.au


I've found a list of ftp sites in Norway, Sweden and Finland. 
I have tried only a few, so no warranty from me.


#!/usr/local/bin/perl
#
# 920210(tw): nanny.lysator, unknown host
# 911210(tw): wasa.fi archiv on garbo.wasa.fi.
# 911201(tw): fiol.uib.no, 530 User ftp unknown.
# 911124(tw): finsun.csc.fi, 530 User anonymous unknown.
# 911124(tw): tau.sm.luth.se, unknown host.
# 911104(tw): vega.hut.fi, unknown host.
# 911104(tw): finsun.csc.fi has closed down their anonymous ftp service
# 911007(tw): Seems like hemuli.tik.vtt.fi has also closed their 
#             anonymous ftp service
# 910929(tw): kolvi.hut.fi has closed down their anonymous ftp service
# 
$rftp = "/home/osiris/ftp/files/rftp";

$destDir = "/home/osiris/ftp/mailserver/indices";
$funicFrom = "ls-ZRlag.Z";
$funicTo = "$destDir/INDEX.ftp.funet.fi.Z";

$garboFrom = "ls-lR.Z";
$garboTo = "$destDir/INDEX.garbo.uwasa.fi.Z";

$hydraFrom = "ls-lR.Z";
$hydraTo = "$destDir/INDEX.hydra.helsinki.fi.Z";

$saunaFrom = "FILES";
$saunaTo = "$destDir/INDEX.sauna.hut.fi.Z";

$ugleFrom = "filliste.total";
$ugleTo = "$destDir/INDEX.ugle.unit.no.Z";

@hosts = ('alcazar.cd.chalmers.se',
	  'birger.uit.no',
	  'chalmers.se',
	  'dkuug.dk',
	  'eru.mt.luth.se',
	  'freja.diku.dk',
	  'ftp.kth.se',
	  'funet.fi',
	  'fuug.fi',
	  'hpserv1.uit.no',
	  'hurratio.tde.lth.se',
	  'iesd.auc.dk',
	  'ifi.uio.no',
	  'isy.liu.se',
	  'jyu.fi',
	  'kampi.hut.fi',
	  'loke.idt.unit.no',
	  'lth.se',
	  'lut.fi',
	  'maeglin.mt.luth.se',
	  'mizar.docs.uu.se',
	  'oddput.efd.lth.se',
	  'otax.tky.hut.fi',
	  'polaris.utu.fi',
	  'pollux.lu.se',
	  'skutt.cs.chalmers.se',
	  'sunic.sunet.se',
	  'tolsun.oulu.fi',
	  'tut.fi');

chdir '/tmp' || die "chdir(/tmp) failed: $!";

$retval = system($rftp,"-s",".","-f",$funicFrom,"-u",
		 "ftp:mserv@sics.se","-g","ftp.funet.fi");
$retval /= 256;

if ($retval == 0 && -s $funicFrom) {
  system("/usr/ucb/uncompress < $funicFrom | /home/osiris/ftp/files/formatDirList | /usr/ucb/compress >$funicTo");
  chmod 0444, $funicTo;
}
unlink $funicFrom;


$retval = system($rftp,"-s",".","-f",$garboFrom,"-u",
		 "ftp:mserv@sics.se","-g","garbo.uwasa.fi");
$retval /= 256;

if ($retval == 0 && -s $garboFrom) {
  system("/usr/ucb/uncompress < $garboFrom | /home/osiris/ftp/files/formatDirList | /usr/ucb/compress >$garboTo");
  chmod 0444, $garboTo;
}
unlink $garboFrom;


$retval = system($rftp,"-s",".","-f",$hydraFrom,"-u",
		 "ftp:mserv@sics.se","-g","hydra.helsinki.fi");
$retval /= 256;

if ($retval == 0 && -s $hydraFrom) {
  system("/usr/ucb/uncompress < $hydraFrom | /home/osiris/ftp/files/formatDirList2 | /usr/ucb/compress >$hydraTo");
  chmod 0444, $hydraTo;
}
unlink $hydraFrom;


$retval = system($rftp,"-s","files","-f",$saunaFrom,"-u",
		 "ftp:mserv@sics.se","-g","sauna.hut.fi");
$retval /= 256;

if ($retval == 0 && -s $saunaFrom) {
  system("/usr/ucb/compress <$saunaFrom >$saunaTo");
  chmod 0444, $saunaTo;
}
unlink $saunaFrom;


$retval = system($rftp,"-s",".","-f",$ugleFrom,"-u",
		 "ftp:mserv@sics.se","-g","ugle.unit.no");
$retval /= 256;

if ($retval == 0 && -s $ugleFrom) {
  system("/bin/cat < $ugleFrom | /home/osiris/ftp/files/formatDirList2 | /usr/ucb/compress >$ugleTo");
  chmod 0444, $ugleTo;
}
unlink $ugleFrom;


foreach $host (@hosts) {
  $hostTmp = "INDEX.$host.$$";
  $hostTo = "$destDir/INDEX.$host.Z";

  $retval = system($rftp,"-o",$hostTmp,"-u",
		   "ftp:mserv@sics.se",$host);
  $retval /= 256;

  if ($retval == 0 && -s $hostTmp) {
    system("/home/osiris/ftp/files/formatDirList < $hostTmp | /usr/ucb/compress >$hostTo");
    chmod 0444, $hostTo;
  }
  unlink $hostTmp;
}


Jan E Berg
UiO
>