Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site umcp-cs.UUCP
Path: utzoo!linus!decvax!harpo!seismo!rlgvax!cvl!umcp-cs!fred
From: fred@umcp-cs.UUCP
Newsgroups: net.sources
Subject: pwg: print working group
Message-ID: <1183@umcp-cs.UUCP>
Date: Wed, 27-Jul-83 16:44:53 EDT
Article-I.D.: umcp-cs.1183
Posted: Wed Jul 27 16:44:53 1983
Date-Received: Thu, 28-Jul-83 20:04:12 EDT
Organization: Univ. of Maryland, Computer Science Dept.
Lines: 52

This is a silly little command which prints your current group-id.
Sometimes useful.

: Run this shell script with "sh" not "csh"
PATH=:/bin:/usr/bin:/usr/ucb
export PATH
/bin/echo 'Extracting pwg.1'
sed 's/^X//' <<'//go.sysin dd *' >pwg.1
X.TH PWG 1 "1/22/82 (U of M)"
X.UC 4
X.SH NAME
Xpwg \- print working (current) group name
X.SH SYNOPSIS
X.B pwg
X.SH DESCRIPTION
X.I Pwg
Xprints the name of the (accounting) group you are currently logged in to.
X.SH "SEE ALSO"
Xnewgrp(1), chgrp(8)
X.SH BUGS
//go.sysin dd *
/bin/chmod 644 pwg.1
/bin/echo -n '	'; /bin/ls -ld pwg.1
/bin/echo 'Extracting pwg.c'
sed 's/^X//' <<'//go.sysin dd *' >pwg.c
Xstatic char *sccsid = "@(#)pwg.c	1/22/82	(University of Maryland)";
X
X#include 
X#include 
X
X/*
X * pwg - print working group name
X *
X * Fred Blonder 
X */
X
Xmain()
X{
Xregister struct group *gp;
Xregister int gid;
Xstruct group *getgrgid();
X
Xgid = getgid();
X
Xif ((gp = getgrgid(gid)) != NULL)
X	printf("%s\n", gp -> gr_name);
Xelse
X	printf("%d\n", gid);
X}
//go.sysin dd *
/bin/chmod 644 pwg.c
/bin/echo -n '	'; /bin/ls -ld pwg.c