Revision 6b13ea85
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
|
|
||
|
opendir SQLDIR, "sql/${dbdriver}-upgrade" or &error("", "sql/${dbdriver}-upgrade: $!");
|
||
|
my @upgradescripts =
|
||
|
grep(/$form->{dbdriver}-upgrade-\Q$cur_version\E.*\.(sql|pl)/, readdir(SQLDIR));
|
||
|
grep(/$form->{dbdriver}-upgrade-\Q$cur_version\E.*\.(sql|pl)$/, readdir(SQLDIR));
|
||
|
closedir SQLDIR;
|
||
|
|
||
|
return ($#upgradescripts > -1);
|
||
Auch abrufbar als: Unified diff
Die RegExp für die Namen der Upgradescripte sollte am Stringende verankert sein, um z.B. Backupdateien mit ~ am Ende nicht zu erfassen.