#!perl

push (@INC,'c:/usr/local/lib/perl');

require 'waffle.pl';
require 'ctime.pl';

format top =
User Name    Identity                 Real Name                 A  P Post?
       Calls Last call  Posts   Mails Phone                     Comment
------------------------------------------------------------------------------
.
format STDOUT =
@<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<< @> @> @<<<<<<<<
$user{"name"},$user{"identity"},      $user{"realname"}, $user{"access"}, $user{"priv"}, ( $user{"_Media"} & 0x12 ) == 0x12 ? "" : "May Post"
       @>>>> @<<<<<<<<  @>>>>> @>>>>> @<<<<<<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<
   $user{"calls"}, &fixctime(&ctime($user{"laston"})), $user{"posts"}, $user{"mailsent"}, $user{"phone"}, $user{"comment"}

.

&walkpw("",*foo);

sub foo {
	local($recno,$username)=@_;

	%user=&wafgetpwuid($recno);

	write;

	1;
}

sub fixctime {
	local($ctime)=@_;

	substr($ctime,8,2) . "-" . substr($ctime,4,3) . "-" . substr($ctime,26,2);
}