Annotation of doc/rolesmanip.pl, revision 1.1

1.1     ! harris41    1: #!/usr/bin/perl
        !             2: 
        !             3: # quick temporary script
        !             4: # brought up-to-date by Scott Harrison, 03/01/2001
        !             5: 
        !             6: 
        !             7: print "Usage: rolesmanip.pl DOMAIN USERNAME\n" unless @ARGV;
        !             8: 
        !             9: my $domain=shift @ARGV;
        !            10: my $name=shift @ARGV;
        !            11: 
        !            12: my ($l1,$l2,$l3)=split(//,substr($name,0,3));
        !            13: 
        !            14: use GDBM_File;
        !            15: my %hash;
        !            16:         tie(%hash,'GDBM_File',
        !            17: "/home/httpd/lonUsers/$domain/$l1/$l2/$l3/$name/roles.db",
        !            18: 	    &GDBM_WRCREAT,0640);
        !            19: 
        !            20: $hash{'/'.$domain.'/_dc'}='dc';
        !            21: open OUT, ">/home/httpd/lonUsers/$domain/$l1/$l2/$l3/$name/roles.hist";
        !            22: map {
        !            23:     print OUT $_.' : '.$hash{$_}."\n";
        !            24: } keys %hash;
        !            25: close OUT;
        !            26: 
        !            27: untie %hash;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>