462 680 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#
# Image import and IMS stuff.
#
use strict;
use libdb;

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

    DBQueryFatal("REPLACE INTO table_regex VALUES ".
		 " ('images','origin_uuid','text','regex',".
		 "  '^\\\\w+\\\\-\\\\w+\\\\-\\\\w+\\\\-\\\\w+\\\\-\\\\w+\$', ".
		 "  0,64,NULL)");
    
    DBQueryFatal("REPLACE INTO table_regex VALUES ".
		 " ('images','origin_name','text','regex',".
18
		 "  '^[-\\\\w\\\\.+:\\\\/]+\$', ".
19 20 21 22 23 24 25 26 27 28 29 30 31
		 "  0,128,NULL)");
    
    DBQueryFatal("REPLACE INTO table_regex VALUES ".
		 " ('images','origin_urn','text','redirect',".
		 "  'projects:manager_urn',0,0,NULL)");

    return 0;
}
1;

# Local Variables:
# mode:perl
# End: