![[BACK]](/icons/back.gif){kind=icon}
Return to excise_from_db.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / debugging_tools|
Return to excise_from_db.pl CVS log | Up to [LON-CAPA] / loncom / debugging_tools |
| version 1.1, 2004/01/27 18:42:25 | version 1.2, 2005/03/19 00:39:54 |
|---|---|
| Line 37 use GDBM_File; | Line 37 use GDBM_File; |
| my $fname = shift; | my $fname = shift; |
| my $key = shift; | my $key = shift; |
| if (! defined($fname) || ! defined($key)) { | |
| print "Specify db file and key on command line.".$/. | |
| 'excise_from_db.pl roles.db "a very long key"'.$/; | |
| exit; | |
| } | |
| my %db; | my %db; |
| if (! tie(%db,'GDBM_File',$fname,&GDBM_WRITER,0640)) { | if (! tie(%db,'GDBM_File',$fname,&GDBM_WRITER,0640)) { |
| warn "Unable to tie to $fname"; | warn "Unable to tie to $fname"; |