From owner-freebsd-hackers  Sun Apr  2 10:41:21 1995
Return-Path: hackers-owner
Received: (from majordom@localhost) by freefall.cdrom.com (8.6.10/8.6.6) id KAA05715 for hackers-outgoing; Sun, 2 Apr 1995 10:41:21 -0700
Received: from kf0yn.ampr.org (s087.infonet.net [167.142.100.87]) by freefall.cdrom.com (8.6.10/8.6.6) with ESMTP id KAA05709 for <hackers@freebsd.org>; Sun, 2 Apr 1995 10:41:17 -0700
Received: from [44.50.32.7] (macintosh [44.50.32.7]) by kf0yn.ampr.org (8.6.9/8.6.5) with SMTP id MAA04495; Sun, 2 Apr 1995 12:38:09 -0459
X-Sender: cmf@44.50.32.6
Message-Id: <v01510101aba48f660e67@[44.50.32.7]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Date: Sun, 2 Apr 1995 12:38:55 -0500
To: joerg_wunsch@uriah.heep.sax.de (Joerg Wunsch)
From: cmf@ins.infonet.net (Carl Fongheiser)
Subject: Re: MBONE interfaces and snazzy install tools.
Cc: hackers@FreeBSD.org
Sender: hackers-owner@FreeBSD.org
Precedence: bulk

>Perl doesn't know about file flags, unfortunately.  (This would break
>perl's abstraction of system independency.  File flags are a 4.4BSD
>matter.)

Not a big deal, really.  Perl has "syscall", so chflags could be something
like this:

#! /usr/bin/perl

$SYS_chflags = 34;
syscall($SYS_chflags, $ARGV[0], $ARGV[1]+0) && die "$ARGV[0]: $!";

Naturally, you'd want something in here to translate the names of the
flags instead of just using the numeric value.

Carl Fongheiser
cmf@ins.infonet.net