You can subscribe to this list here.
2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(28) |
Nov
(58) |
Dec
(85) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2002 |
Jan
(125) |
Feb
(222) |
Mar
(274) |
Apr
(51) |
May
(22) |
Jun
(50) |
Jul
(15) |
Aug
(33) |
Sep
(11) |
Oct
(29) |
Nov
(17) |
Dec
(1) |
2003 |
Jan
(100) |
Feb
(21) |
Mar
(7) |
Apr
(45) |
May
|
Jun
(43) |
Jul
(27) |
Aug
(24) |
Sep
|
Oct
|
Nov
|
Dec
|
2004 |
Jan
(1) |
Feb
|
Mar
(13) |
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
(7) |
Sep
|
Oct
|
Nov
|
Dec
(4) |
2005 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
From: Rob H. <for...@us...> - 2001-10-09 17:42:10
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv11661 Modified Files: File.pm Log Message: well, now it returns the info instead of just gathering it Index: File.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -U2 -r1.5 -r1.6 --- File.pm 2001/10/09 17:41:39 1.5 +++ File.pm 2001/10/09 17:42:08 1.6 @@ -40,5 +40,6 @@ 'file_type' => $file_type, }; - + + return %info; } |
From: Rob H. <for...@us...> - 2001-10-09 17:41:43
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv11498 Modified Files: File.pm Log Message: added info method, which gives you a hash of all known info on the current File object. Index: File.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -U2 -r1.4 -r1.5 --- File.pm 2001/10/09 17:35:21 1.4 +++ File.pm 2001/10/09 17:41:39 1.5 @@ -14,6 +14,6 @@ 'filename' => $args{'filename'}, 'location' => $args{'location'}, - 'permissions' => $args{'permissions'}; - 'file_type' => $args{'file_type'}; + 'permissions' => $args{'permissions'}, + 'file_type' => $args{'file_type'}, }, $class; @@ -22,8 +22,6 @@ -sub file { +sub info { my $self = shift; - my $progname = shift; - my %args = @_; my $owner = $self->_get_owner(); @@ -34,5 +32,13 @@ my $file_type = $self->_get_file_type(); - return $self; + my %info = { + 'owner' => $owner, + 'group' => $group, + 'filename' => $filename, + 'location' => $location, + 'permissions' => $permissions, + 'file_type' => $file_type, + }; + } |
From: Rob H. <for...@us...> - 2001-10-09 17:35:24
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv9521 Modified Files: File.pm Log Message: Added "permissions" and "file_type", reformatted code Index: File.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -U2 -r1.3 -r1.4 --- File.pm 2001/09/18 18:39:28 1.3 +++ File.pm 2001/10/09 17:35:21 1.4 @@ -6,52 +6,58 @@ sub new { - my $class = shift; - my %args = @_; + my $class = shift; + my %args = @_; - my $self = bless { - 'owner' => $args{'owner'}, - 'group' => $args{'group'}, - 'filename' => $args{'filename'}, - 'location' => $args{'location'}, - }, $class; + my $self = bless { + 'owner' => $args{'owner'}, + 'group' => $args{'group'}, + 'filename' => $args{'filename'}, + 'location' => $args{'location'}, + 'permissions' => $args{'permissions'}; + 'file_type' => $args{'file_type'}; + }, $class; - return $self; + return $self; } sub file { - my $self = shift; - my $path = shift; - my $progname = shift; - my %args = @_; - - my $owner = $self->_get_owner(); - my $group = $self->_get_group(); - my $filename = $self->_get_filename(); - my $location = $self->_get_location(); + my $self = shift; + my $progname = shift; + my %args = @_; + + my $owner = $self->_get_owner(); + my $group = $self->_get_group(); + my $filename = $self->_get_filename(); + my $location = $self->_get_location(); + my $permissions = $self->_get_permissions(); + my $file_type = $self->_get_file_type(); - my $output; - - return $content->output; + return $self; } sub _get_owner { - my $self = shift; - return $self->{'owner'}; + my $self = shift; + return $self->{'owner'}; } sub _get_group { - my $self = shift; - return $self->{'group'}; + my $self = shift; + return $self->{'group'}; } sub _get_filename { - my $self = shift; - return $self->{'filename'}; + my $self = shift; + return $self->{'filename'}; +} + +sub _get_permissions { + my $self = shift; + return $self->{'permissions'}; } -sub _get_location { - my $self = shift; - return $self->{'location'}; +sub _get_file_type { + my $self = shift; + return $self->{'file_type'}; } |
From: Rob H. <for...@us...> - 2001-10-09 17:21:56
|
Update of /cvsroot/sandweb/sandweb/templates In directory usw-pr-cvs1:/tmp/cvs-serv4934 Modified Files: browse.html Log Message: removed redundant fields, also sized tables so that it looks good at 640x480 ( or above ) Index: browse.html =================================================================== RCS file: /cvsroot/sandweb/sandweb/templates/browse.html,v retrieving revision 1.18 retrieving revision 1.19 diff -U2 -r1.18 -r1.19 --- browse.html 2001/09/28 21:59:08 1.18 +++ browse.html 2001/10/09 17:21:50 1.19 @@ -30,10 +30,8 @@ Current location : <TMPL_VAR NAME="LOCATION"> <tr> -<th width="15%" align=left bgcolor=#88ff88>File</th> -<th width="15%" align=left bgcolor=#cccccc>Commands</th> +<th width="40%" align=left bgcolor=#88ff88>File</th> +<th width="20%" align=left bgcolor=#cccccc>Commands</th> <th width="10%" align=left bgcolor=#cccccc><a href="<TMPL_VAR NAME=PROGNAME>?sortby=rev#dirlist">Rev.</a></th> -<th width="10%" align=left bgcolor=#cccccc><a href="<TMPL_VAR NAME=PROGNAME>?sortby=date#dirlist">Age</a></th> -<th width="15%" align=left bgcolor=#cccccc><a href="<TMPL_VAR NAME=PROGNAME>?sortby=author#dirlist">Author</a></th> -<th width="35%" align="left" bgcolor=#cccccc><a href="<TMPL_VAR NAME=PROGNAME>?sortby=lastlog#dirlist">Last Log Entry</a></th> +<th width="30%" align=left bgcolor=#cccccc><a href="<TMPL_VAR NAME=PROGNAME>?sortby=date#dirlist">Age</a></th> </tr> <TMPL_LOOP NAME="ENTRY_LOOP"> @@ -47,6 +45,4 @@ | <a href="<TMPL_VAR NAME=PROGNAME>?<TMPL_VAR NAME=LINK>">Edit</a> -</td><td> -</td><td> </td><td> </td><td> |
From: Nick J. <nje...@us...> - 2001-10-07 14:17:34
|
Update of /cvsroot/sandweb/sandweb/bin In directory usw-pr-cvs1:/tmp/cvs-serv5672/bin Modified Files: sandweb.cgi Log Message: making sure $userprefs contain the log_obj Index: sandweb.cgi =================================================================== RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v retrieving revision 1.58 retrieving revision 1.59 diff -U2 -r1.58 -r1.59 --- sandweb.cgi 2001/10/06 07:51:56 1.58 +++ sandweb.cgi 2001/10/07 14:17:31 1.59 @@ -349,4 +349,5 @@ 'config_dir' => $config_dir, 'config_file' => "$prefs_config", + 'log_obj' => $log, ); @@ -362,4 +363,5 @@ 'config_dir' => $config->{'paths'}->{'users_dir'} . "/$username", 'config_file' => ".$prefs_config", + 'log_obj' => $log, ); return 1; |
From: Nick J. <nje...@us...> - 2001-10-07 14:16:59
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Auth In directory usw-pr-cvs1:/tmp/cvs-serv5544/lib/SandWeb/Auth Modified Files: FlatFile.pm Log Message: Fixed little problem with authentication (newline character needed to be chomped) Index: FlatFile.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth/FlatFile.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -U2 -r1.2 -r1.3 --- FlatFile.pm 2001/10/06 07:51:56 1.2 +++ FlatFile.pm 2001/10/07 14:16:57 1.3 @@ -2,11 +2,11 @@ sub new { - my $class = shift; - my %args = @_; + my $class = shift; + my %args = @_; - my $self = bless { - 'user_info' => {}, - '_log_obj' => $args{'log_obj'}, - }, $class; + my $self = bless { + 'user_info' => {}, + '_log_obj' => $args{'log_obj'}, + }, $class; return $self; @@ -14,30 +14,31 @@ sub verify_password { - my $self = shift; - my $username = shift; - my $password = shift; - my $data_dir = shift; - my $log = $self->_logobj(); - open (PF, "< $data_dir/passwd") or - $log->debug("Could not open password file : $! \n"); - while (<PF>) { - my $passwd_file = $_; - my ($real_username, $uid, $real_password) = split(':', $passwd_file); - if ($username eq $real_username) { - my $salt = substr($real_password, 0, 2); - if (crypt($password, $salt) ne $real_password) { - close PF; - return 0; - } else { - close PF; - return 1; - } - } - } + my $self = shift; + my $username = shift; + my $password = shift; + my $data_dir = shift; + my $log = $self->_logobj(); + open (PF, "< $data_dir/passwd") or + $log->debug("Could not open password file : $! \n"); + while (<PF>) { + my $passwd_file = $_; + my ($real_username, $uid, $real_password) = split(':', $passwd_file); + if ($username eq $real_username) { + my $salt = substr($real_password, 0, 2); + chomp($real_password); + if (crypt($password, $salt) ne $real_password) { + close PF; + return 0; + } else { + close PF; + return 1; + } + } + } } sub _logobj { - my $self = shift; - return $self->{'_log_obj'}; + my $self = shift; + return $self->{'_log_obj'}; } |
From: Nick J. <nje...@us...> - 2001-10-07 14:16:59
|
Update of /cvsroot/sandweb/sandweb/bin In directory usw-pr-cvs1:/tmp/cvs-serv5544/bin Modified Files: sandweb-admin Log Message: Fixed little problem with authentication (newline character needed to be chomped) Index: sandweb-admin =================================================================== RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-admin,v retrieving revision 1.6 retrieving revision 1.7 diff -U2 -r1.6 -r1.7 --- sandweb-admin 2001/10/07 13:44:50 1.6 +++ sandweb-admin 2001/10/07 14:16:57 1.7 @@ -15,95 +15,73 @@ sub main { - if (@ARGV) { - if ($ARGV[0] eq '--list-users') { - list_users(); - exit 0; - } - elsif ($ARGV[0] eq '--add-user') { - add_user($ARGV[1]); - exit 0; - } - elsif ($ARGV[0] eq '--remove-user') { - remove_user($ARGV[1]); - exit 0; - } - else { - syntax(); - exit 1; - } - } - else { - syntax(); - exit 1; - } + if (@ARGV) { + if ($ARGV[0] eq '--list-users') { + list_users(); + exit 0; + } + elsif ($ARGV[0] eq '--add-user') { + add_user($ARGV[1]); + exit 0; + } + elsif ($ARGV[0] eq '--remove-user') { + remove_user($ARGV[1]); + exit 0; + } + else { + syntax(); + exit 1; + } + } + else { + syntax(); + exit 1; + } } sub add_user { - my $name = shift; - my $enc_pwd = ''; - my $full_name = ''; - my $uid = ''; - - if (! $name) { - print "must specify a username to create!\n"; - exit 21; - } - chomp $name; - - my @file = (); - if (-f $passwd_file) { - open(PW, "<$passwd_file") or - fexit('22', "Unable to open $passwd_file : $!"); - @file = <PW>; - close PW; - - # make sure username is unique - foreach my $line (@file) { - chomp $line; - my ($un, $uid, $pw, $fn) = split(':', $line); - if ($un eq $name) { - print "username $name already exists!\n"; - exit 23; - } - } - } - - # get password - print "Enter password for $name: "; - my $tmp = <STDIN>; - chomp ($tmp); - if ($tmp) { - #encrypt passwd - my $salt = substr($tmp, 0, 2); - $enc_pwd = crypt($tmp, $salt); - } - else { - print "error: no password entered, aborting.\n"; - exit 24; - } - - # get highest UID and inc by 1 - my $last_line = $file[$#file + 1]; - if ($last_line) { - my ($junk1, $last_uid, $junk2, $junk3) = split(':', $last_line); - $uid = $last_uid++; - } - else { - $uid = 1; - } - - # get full name - #print "Enter full name for $name: "; - #$tmp = <STDIN>; - #chomp ($tmp); - #if ($tmp) { - # $full_name = $tmp; - #} - #else { - # print "error: no full name entered, aborting.\n"; - # exit 25; - #} + my $name = shift; + my $enc_pwd = ''; + my $full_name = ''; + my $max_uid = 0; + if (! $name) { + fexit('21', "must specify a username to create!"); + } + chomp $name; + my @file = (); + if (-f $passwd_file) { + open(PW, "<$passwd_file") or + fexit('22', "Unable to open $passwd_file : $!"); + @file = <PW>; + close PW; + + # make sure username is unique + foreach my $line (@file) { + chomp $line; + my ($un, $uid, $pw, $fn) = split(':', $line); + if ($un eq $name) { + fexit('23', "username $name already exists!"); + } + if ($uid > $max_uid) { + $max_uid = $uid; + } + } + } + + # get password + print "Enter password for $name: "; + my $tmp = <STDIN>; + chomp ($tmp); + if ($tmp) { + #encrypt passwd + my $salt = substr($tmp, 0, 2); + $enc_pwd = crypt($tmp, $salt); + } + else { + fexit('24', "error: no password entered, aborting."); + } + + # added user's sandbox dir system('mkdir', "$users_dir/$name"); @@ -123,7 +101,8 @@ } + $max_uid++; open(PW, ">>$passwd_file") or fexit('26', "Unable to open $passwd_file : $!"); - print PW "$name:$uid:$enc_pwd\n"; + print PW "$name:$max_uid:$enc_pwd\n"; close PW; @@ -139,5 +118,5 @@ open(PW, "<$passwd_file") or - fexit('2', "Unable to open $passwd_file : $!"); + fexit('31', "Unable to open $passwd_file : $!"); my @file = <PW>; close PW; @@ -152,8 +131,13 @@ open(PW, ">$passwd_file") or - fexit('3', "Unable to open $passwd_file : $!"); + fexit('32', "Unable to open $passwd_file : $!"); print PW join('', @o_file); close PW; + system('rm', '-rf', "$data_dir/$name"); + if ($?) { + fexit('33', "Unable to remove $name.\n"); + } + system('rm', '-rf', "$users_dir/$name"); if (!$?) { @@ -161,6 +145,6 @@ } else { - system('rm', '-rf', "$users_dir/$name"); - fexit('38', "Unable to remove $name.\n"); + system('rm', '-rf', "$data_dir/$name"); + fexit('34', "Unable to remove $name.\n"); } |
From: Nick J. <nje...@us...> - 2001-10-07 13:44:53
|
Update of /cvsroot/sandweb/sandweb/bin In directory usw-pr-cvs1:/tmp/cvs-serv28829 Modified Files: sandweb-admin Log Message: sandweb-admin - fixed some bugs & removed the prompt for "full name" when creating a new user. This is no longer stored in the password file, but rather the users .prefs.cfg Index: sandweb-admin =================================================================== RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-admin,v retrieving revision 1.5 retrieving revision 1.6 diff -U2 -r1.5 -r1.6 --- sandweb-admin 2001/10/07 13:32:10 1.5 +++ sandweb-admin 2001/10/07 13:44:50 1.6 @@ -105,51 +105,69 @@ #} - open(PW, ">>$passwd_file") or fexit('26', "Unable to open $passwd_file : $!"); - print PW "$name:$uid:$enc_pwd\n"; - close PW; - - # added user's sandbox dir - - system('mkdir', "$users_dir/$name"); - # added user's prefs dir + # added user's sandbox dir + system('mkdir', "$users_dir/$name"); + if ($?) { + fexit('27', "Unable to create $name.\n"); + } - system('mkdir', "$data_dir/$name"); + # added user's prefs dir + system('mkdir', "$data_dir/$name"); - print "Username $name successfully added!\n"; - exit 0; + if (!$?) { + print "Username $name successfully added!\n"; + } + else { + system('rm', '-rf', "$users_dir/$name"); + fexit('28', "Unable to create $name.\n"); + } + + open(PW, ">>$passwd_file") or + fexit('26', "Unable to open $passwd_file : $!"); + print PW "$name:$uid:$enc_pwd\n"; + close PW; + + exit 0; } sub remove_user { - my $name = shift; - if (! $name) { - print "must specify a username to remove!\n"; - exit 1; - } - - open(PW, "<$passwd_file") or fexit('2', "Unable to open $passwd_file : $!"); - my @file = <PW>; - close PW; - - my @o_file = (); - foreach my $line (@file) { - my ($un, $uid, $pw, $fn) = split(':', $line); - unless ($un eq $name) { - push @o_file, $line; - } - } - - open(PW, ">$passwd_file") or fexit('2', "Unable to open $passwd_file : $!"); - print PW join('', @o_file); - close PW; - - system('rm', '-rf', "$users_dir/$name"); + my $name = shift; + if (! $name) { + print "must specify a username to remove!\n"; + exit 1; + } + + open(PW, "<$passwd_file") or + fexit('2', "Unable to open $passwd_file : $!"); + my @file = <PW>; + close PW; + + my @o_file = (); + foreach my $line (@file) { + my ($un, $uid, $pw, $fn) = split(':', $line); + unless ($un eq $name) { + push @o_file, $line; + } + } + + open(PW, ">$passwd_file") or + fexit('3', "Unable to open $passwd_file : $!"); + print PW join('', @o_file); + close PW; + + system('rm', '-rf', "$users_dir/$name"); + if (!$?) { + print "Username $name successfully removed!\n"; + } + else { + system('rm', '-rf', "$users_dir/$name"); + fexit('38', "Unable to remove $name.\n"); + } - print "Username $name successfully removed!\n"; - exit 0; + exit 0; } sub list_users { - open(PW, "<$passwd_file") or fexit('2', "Unable to open $passwd_file : $!"); + open(PW, "<$passwd_file") or fexit('4', "Unable to open $passwd_file : $!"); my @file = <PW>; close PW; @@ -159,6 +177,6 @@ foreach my $line (@file) { chomp $line; - my ($un, $uid, $pw, $fn) = split(':', $line); - print "$uid. $un '$fn'\n"; + my ($un, $uid, $pw) = split(':', $line); + print "$uid. $un\n"; } print "\n"; |
From: Nick J. <nje...@us...> - 2001-10-07 13:32:13
|
Update of /cvsroot/sandweb/sandweb/bin In directory usw-pr-cvs1:/tmp/cvs-serv26605 Modified Files: sandweb-admin Log Message: sandweb-admin no longer asks for full name Index: sandweb-admin =================================================================== RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-admin,v retrieving revision 1.4 retrieving revision 1.5 diff -U2 -r1.4 -r1.5 --- sandweb-admin 2001/09/17 05:26:16 1.4 +++ sandweb-admin 2001/10/07 13:32:10 1.5 @@ -94,17 +94,17 @@ # get full name - print "Enter full name for $name: "; - $tmp = <STDIN>; - chomp ($tmp); - if ($tmp) { - $full_name = $tmp; - } - else { - print "error: no full name entered, aborting.\n"; - exit 25; - } + #print "Enter full name for $name: "; + #$tmp = <STDIN>; + #chomp ($tmp); + #if ($tmp) { + # $full_name = $tmp; + #} + #else { + # print "error: no full name entered, aborting.\n"; + # exit 25; + #} open(PW, ">>$passwd_file") or fexit('26', "Unable to open $passwd_file : $!"); - print PW "$name:$uid:$enc_pwd:$full_name\n"; + print PW "$name:$uid:$enc_pwd\n"; close PW; |
From: Nick J. <nje...@us...> - 2001-10-07 13:31:55
|
Update of /cvsroot/sandweb/sandweb/templates In directory usw-pr-cvs1:/tmp/cvs-serv26350 Removed Files: sandweb-logo.jpg Log Message: removed the logo image from the templates directory --- sandweb-logo.jpg DELETED --- |
From: Nick J. <nje...@us...> - 2001-10-07 13:30:23
|
Update of /cvsroot/sandweb/sandweb/images In directory usw-pr-cvs1:/tmp/cvs-serv26311 Added Files: sandweb-logo.jpg Log Message: added an images directory with the sandweb-logo.jpg in it --- NEW FILE --- ÿØÿà ÿÄ EÛÈSVc?rr t]¶lýæ²GÃ;$¢Ì7Q¨£f<v Ìú½"<¬(ñ±¥í«(esC}?E( !¡1Ö6ÄÑ¥tJBñævíqªjî4öYÙɪÁGè*?~a§Ù¥ÑÑcúßiãz+fݽm¢±b³k£¥Fi-L$K3Ú¡¶kyX\ë¸;ÓWçÿ x1=Æþ¨ôÑ~S]p=û·³IR¥¥TøS»q>FM«¦Qû&ÀÀüÖÈ>Ñ·8ÕñQè}î×ã.Y±Ð]ûßêî{©·×ÔNÍöB£aÔHBE4YzçËýæ\¬íO°£Þezx^ªÆ üµd4®æM¸©uPâf¼ÍâMô ZdÏñõÕðñuo°ª¯jöÁÅ{(µÄ)]óÛ ÙUòJd̪ë6"Ú¨ ºE÷juAûF2ëù1ºg;jÿ P$gâgdÌlàµj°ØkèÀf_¨n7!:U»îmþÜw³¨åÝÎôü¡oÏ+ tùsÓòOÉQÒ8®uUN¯ímH"ÀF ºá³3CßèüKábI ±¬Ì¾|>Vçj÷/ÉW¯YÄù& î/³I^Sv4ª(UQp£Ë§OUm-#:Ь~})aÀ Áç´ØI!DO*5wGÃâêêºC¶»KËÄËÔ'DCayc½¯ÜÄ¢hUiNʬ&JBdWVlæ?HhÌYW+¾×`(H³½3Ý¿Ñÿ jZeã|úaTNGé½î?féØáÍ¡ÈÁ+38c«Gï·Ê}ÒÉLÌþDDþüþá{ÞqÌ|}=ÃH±iÊ .uW<i¦$Ȥ´J°tÈ+¼j%TSáó¶ïUléZ8E³ÿ |
From: Nick J. <nje...@us...> - 2001-10-07 13:28:42
|
Update of /cvsroot/sandweb/sandweb/images In directory usw-pr-cvs1:/tmp/cvs-serv26039/images Log Message: Directory /cvsroot/sandweb/sandweb/images added to the repository |