606 287 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
use strict;
use libdb;

sub DoUpdate($$$)
{
    my ($dbhandle, $dbname, $version) = @_;

    DBQueryFatal("REPLACE INTO table_regex VALUES ".
		 " ('groups','newgid','text','regex', ".
		 "  '^[a-zA-Z][-a-zA-Z0-9]+\$',2,32,NULL)");
    return 0;
}

# Local Variables:
# mode:perl
# End: