[PD-cvs] externals/hcs passwd.c, NONE, 1.1 passwd-help.pd, NONE, 1.1 uid0x2d0x3eusername.pd, NONE, 1.1 uid0x2d0x3eusername-help.pd, NONE, 1.1 username0x2d0x3euid-help.pd, NONE, 1.1 username0x2d0x3euid.pd, NONE, 1.1
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Mon Jun 12 21:59:04 CEST 2006
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.232,1.1.2.233
- Next message: [PD-cvs] externals/hcs ISOdate-help.pd, NONE, 1.1 ISOtime-help.pd, NONE, 1.1 ISOtime.pd, NONE, 1.1 ISOdate.pd, 1.1, 1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30455
Added Files:
passwd.c passwd-help.pd uid0x2d0x3eusername.pd
uid0x2d0x3eusername-help.pd username0x2d0x3euid-help.pd
username0x2d0x3euid.pd
Log Message:
return all passwd fields, and made abstractions for converting UID<->username
--- NEW FILE: username0x2d0x3euid.pd ---
#N canvas 496 159 353 422 10;
#X obj 19 213 passwd;
#X obj 18 12 inlet;
#X obj 61 12 inlet;
#X obj 18 322 outlet;
#X obj 108 31 loadbang;
#X obj 56 59 purepd/any_argument \$1;
#X obj 57 93 route float;
#X obj 129 114 passwd;
#X obj 226 323 outlet;
#X obj 129 135 list;
#X obj 129 155 list split 3;
#X obj 129 176 list split 2;
#X obj 18 241 list;
#X obj 18 261 list split 3;
#X obj 18 282 list split 2;
#X connect 0 0 12 0;
#X connect 0 1 8 0;
#X connect 1 0 0 0;
#X connect 2 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 0 1;
#X connect 6 1 7 0;
#X connect 7 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 1 0 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 1 3 0;
--- NEW FILE: uid0x2d0x3eusername-help.pd ---
#N canvas 185 212 477 316 10;
#X msg 14 148 bang;
#X obj 30 240 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 271 159 bang;
#X obj 142 240 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 145 262 ^-- bang if not found;
#X text 12 14 convert a UID to a username;
#X symbolatom 55 242 0 0 0 0 - - -;
#X msg 143 162 1;
#X symbolatom 272 242 0 0 0 0 - - -;
#X obj 60 93 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 300 1;
#X floatatom 58 123 5 0 0 0 - - -;
#X obj 56 190 uid->username;
#X obj 272 201 uid->username 0;
#X connect 0 0 11 0;
#X connect 2 0 12 0;
#X connect 7 0 11 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 1 0;
#X connect 11 0 6 0;
#X connect 11 1 3 0;
#X connect 12 0 8 0;
--- NEW FILE: passwd.c ---
/* --------------------------------------------------------------------------*/
/* */
/* converts a UID number to a user name symbol */
/* Written by Hans-Christoph Steiner <hans at at.or.at> */
/* */
/* Copyright (c) 2006 Hans-Christoph Steiner */
/* */
/* This program is free software; you can redistribute it and/or */
/* modify it under the terms of the GNU General Public License */
/* as published by the Free Software Foundation; either version 2 */
/* of the License, or (at your option) any later version. */
/* */
/* See file LICENSE for further informations on licensing terms. */
/* */
/* This program is distributed in the hope that it will be useful, */
/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
/* GNU General Public License for more details. */
/* */
/* You should have received a copy of the GNU General Public License */
/* along with this program; if not, write to the Free Software Foundation, */
/* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* */
/* --------------------------------------------------------------------------*/
#ifndef _WIN32 // this doesn't work on Windows (yet?)
#include <m_pd.h>
#ifdef _WIN32
#define _WIN32_WINNT 0x0400
#include <windows.h>
#include <stdio.h>
#include <lm.h>
#else
#include <stdlib.h>
#include <pwd.h>
#endif
#include <string.h>
/*
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/errno.h>
*/
static char *version = "$Revision: 1.1 $";
t_int passwd_instance_count;
#define DEBUG(x)
//#define DEBUG(x) x
/*------------------------------------------------------------------------------
* CLASS DEF
*/
static t_class *passwd_class;
typedef struct _passwd {
t_object x_obj;
t_float x_uid;
t_outlet *x_data_outlet;
t_outlet *x_status_outlet;
} t_passwd;
/*------------------------------------------------------------------------------
* IMPLEMENTATION
*/
static void passwd_output(t_passwd *x)
{
DEBUG(post("passwd_output"););
struct passwd *passwd_pointer;
t_atom output_data[11];
#ifdef _WIN32
/* TODO: implement for Windows! */
#else
if( x->x_uid < 0 )
{
post("[passwd]: ignoring UID less than zero or bad username");
outlet_bang(x->x_status_outlet);
}
else
{
passwd_pointer = getpwuid((uid_t)x->x_uid);
if( passwd_pointer != NULL )
{
SETSYMBOL(output_data, gensym(passwd_pointer->pw_passwd));
SETFLOAT(output_data + 1, passwd_pointer->pw_uid);
SETFLOAT(output_data + 2, passwd_pointer->pw_gid);
SETFLOAT(output_data + 3, passwd_pointer->pw_change / 86400);
SETFLOAT(output_data + 4, passwd_pointer->pw_change % 86400);
SETSYMBOL(output_data + 5, gensym(passwd_pointer->pw_class));
SETSYMBOL(output_data + 6, gensym(passwd_pointer->pw_gecos));
SETSYMBOL(output_data + 7, gensym(passwd_pointer->pw_dir));
SETSYMBOL(output_data + 8, gensym(passwd_pointer->pw_shell));
SETFLOAT(output_data + 9, (passwd_pointer->pw_expire / 86400));
SETFLOAT(output_data + 10, (passwd_pointer->pw_expire % 86400));
outlet_anything(x->x_data_outlet, gensym(passwd_pointer->pw_name),
11, output_data);
}
else
{
outlet_bang(x->x_status_outlet);
}
}
#endif /* _WIN32 */
}
static t_float get_uid_from_arguments(int argc, t_atom *argv)
{
t_symbol *first_argument;
t_float uid = -1;
struct passwd *passwd_pointer;
if(argc == 0) return(0);
if(argc != 1)
post("[passwd]: too many arguments (%d), ignoring all but the first",
argc);
first_argument = atom_getsymbolarg(0,argc,argv);
if(first_argument == &s_)
{ // single float arg means UID #
uid = atom_getfloatarg(0,argc,argv);
if( uid < 0 )
{
error("[passwd]: UID less than zero not allowed (%d)", uid);
return(-1);
}
}
else
{ // single symbol arg means username
passwd_pointer = getpwnam(first_argument->s_name);
if( passwd_pointer != NULL )
return((t_float) passwd_pointer->pw_uid);
else
return(-1);
}
return(-1);
}
static void passwd_set(t_passwd *x, t_symbol *s, int argc, t_atom *argv)
{
/* get rid of the unused variable warning with the if() statement */
if( strcmp(s->s_name, "set") == 0 )
x->x_uid = get_uid_from_arguments(argc, argv);
}
static void passwd_float(t_passwd *x, t_float f)
{
x->x_uid = f;
passwd_output(x);
}
static void passwd_symbol(t_passwd *x, t_symbol *s)
{
t_atom argv[1];
SETSYMBOL(argv, s);
passwd_set(x, gensym("set"), 1, argv);
passwd_output(x);
}
static void *passwd_new(t_symbol *s, int argc, t_atom *argv)
{
DEBUG(post("passwd_new"););
t_passwd *x = (t_passwd *)pd_new(passwd_class);
if(!passwd_instance_count)
{
post("[passwd] %s",version);
post("\twritten by Hans-Christoph Steiner <hans at at.or.at>");
post("\tcompiled on "__DATE__" at "__TIME__ " ");
}
passwd_instance_count++;
floatinlet_new(&x->x_obj, &x->x_uid);
x->x_data_outlet = outlet_new(&x->x_obj, 0);
x->x_status_outlet = outlet_new(&x->x_obj, 0);
passwd_set(x, gensym("set"), argc, argv);
return (x);
}
void passwd_free(void)
{
#ifdef _WIN32
#else
endpwent();
#endif /* _WIN32 */
}
void passwd_setup(void)
{
DEBUG(post("passwd_setup"););
passwd_class = class_new(gensym("passwd"),
(t_newmethod)passwd_new,
0,
sizeof(t_passwd),
0,
A_GIMME,
0);
/* add inlet datatype methods */
class_addbang(passwd_class, (t_method) passwd_output);
class_addfloat(passwd_class, (t_method) passwd_float);
class_addsymbol(passwd_class, (t_method) passwd_symbol);
/* add inlet message methods */
class_addmethod(passwd_class,
(t_method) passwd_set,
gensym("set"),
A_GIMME,
0);
}
#endif /* NOT _WIN32 */
--- NEW FILE: uid0x2d0x3eusername.pd ---
#N canvas 217 216 510 229 10;
#X obj 18 85 passwd;
#X obj 18 12 inlet;
#X obj 19 183 outlet;
#X obj 66 12 inlet;
#X obj 118 31 loadbang;
#X obj 66 59 purepd/float_argument \$1;
#X obj 82 183 outlet;
#X obj 18 118 list;
#X obj 18 147 list split 1;
#X connect 0 0 7 0;
#X connect 0 1 6 0;
#X connect 1 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 0 1;
#X connect 7 0 8 0;
#X connect 8 0 2 0;
--- NEW FILE: passwd-help.pd ---
#N canvas 47 122 698 474 10;
#X obj 98 40 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X floatatom 95 63 5 0 0 0 User_ID - -;
#X obj 47 200 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 194 148 10;
#X msg 112 86 bang;
#X text 209 168 <-- set by argument or cold inlet;
#X text 148 85 output current;
#X obj 94 167 passwd;
#X text 37 20 fetch passwd data based on UID or username;
#X msg 271 83 symbol hans;
#X symbolatom 10 359 0 0 0 3 username - -;
#X symbolatom 76 358 0 0 0 3 password - -;
#X floatatom 142 358 0 0 0 3 uid - -;
#X floatatom 173 358 0 0 0 3 gid - -;
#X symbolatom 278 366 0 0 0 3 user_access_class - -;
#X symbolatom 300 331 0 0 0 3 gecos - -;
#X symbolatom 337 297 0 0 0 3 home_folder - -;
#X symbolatom 376 264 0 0 0 3 shell - -;
#X msg 269 105 symbol trash;
#X text 361 105 ignore bad usernames;
#X text 363 83 use a symbolic username;
#X obj 76 224 unpack symbol symbol float float float float symbol symbol
symbol symbol float float;
#X floatatom 204 428 6 0 0 3 password_change_days - -;
#X floatatom 226 395 6 0 0 3 password_change_seconds - -;
#X floatatom 508 300 6 0 0 3 account_expire_days - -;
#X floatatom 530 267 6 0 0 3 account_expire_seconds - -;
#X msg 269 56 symbol daemon;
#X text 188 195 bang on right inlet if no match;
#X obj 138 195 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 3 0 7 1;
#X connect 4 0 7 0;
#X connect 7 0 2 0;
#X connect 7 0 21 0;
#X connect 7 1 28 0;
#X connect 9 0 7 0;
#X connect 18 0 7 0;
#X connect 21 0 10 0;
#X connect 21 1 11 0;
#X connect 21 2 12 0;
#X connect 21 3 13 0;
#X connect 21 4 22 0;
#X connect 21 5 23 0;
#X connect 21 6 14 0;
#X connect 21 7 15 0;
#X connect 21 8 16 0;
#X connect 21 9 17 0;
#X connect 21 10 24 0;
#X connect 21 11 25 0;
#X connect 26 0 7 0;
--- NEW FILE: username0x2d0x3euid-help.pd ---
#N canvas 185 212 477 316 10;
#X msg 57 49 symbol root;
#X msg 76 81 symbol hans;
#X obj 56 190 username->uid;
#X floatatom 56 240 5 0 0 0 - - -;
#X text 12 14 convert a username to a UID.;
#X msg 14 148 bang;
#X msg 143 162 symbol daemon;
#X obj 30 240 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 94 109 symbol lp;
#X msg 100 135 symbol trash;
#X floatatom 272 231 5 0 0 0 - - -;
#X msg 271 159 bang;
#X text 192 136 ignore bad usernames;
#X obj 142 240 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 145 262 ^-- bang if not found;
#X obj 409 228 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 272 201 username->uid daemon;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 7 0;
#X connect 2 1 13 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X connect 8 0 2 0;
#X connect 9 0 2 0;
#X connect 11 0 16 0;
#X connect 16 0 10 0;
#X connect 16 1 15 0;
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.232,1.1.2.233
- Next message: [PD-cvs] externals/hcs ISOdate-help.pd, NONE, 1.1 ISOtime-help.pd, NONE, 1.1 ISOtime.pd, NONE, 1.1 ISOdate.pd, 1.1, 1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list