Annotation of /trunk/mage/usr/lib/mage/convert_databases.sh
Parent Directory
| 
Revision Log
Revision 488 -
(hide annotations)
(download)
(as text)
Tue May 1 13:09:39 2007 UTC (17 years ago) by niro
File MIME type: application/x-sh
File size: 12065 byte(s)
Tue May 1 13:09:39 2007 UTC (17 years ago) by niro
File MIME type: application/x-sh
File size: 12065 byte(s)
- fixed package_routines import with some echo & sed magic. this is neccessary to export the functions via 'eval'
| 1 | niro | 487 | #!/bin/bash |
| 2 | |||
| 3 | source /etc/mage.rc.global | ||
| 4 | source /etc/mage.rc | ||
| 5 | |||
| 6 | |||
| 7 | #### fixups #### | ||
| 8 | MLIBDIR=/home/tjoke/alx-cvs/magellan-src/mage/usr/lib/mage | ||
| 9 | INSTALLDB=/var/db/mage | ||
| 10 | ################# | ||
| 11 | |||
| 12 | source ${MLIBDIR}/mage4.functions.sh | ||
| 13 | source ${MLIBDIR}/sql_functions.sh | ||
| 14 | |||
| 15 | die() | ||
| 16 | { | ||
| 17 | echo -e "Exited ${BASH_SOURCE} at line no ${BASH_LINENO}." | ||
| 18 | echo -e "$@" | ||
| 19 | exit 1 | ||
| 20 | } | ||
| 21 | |||
| 22 | sql() | ||
| 23 | { | ||
| 24 | local sqlcmd="$*" | ||
| 25 | [[ -z ${sqlcmd} ]] && die "no sqlcmd given." | ||
| 26 | |||
| 27 | sqlite3 -nullvalue 'NULL' -list -separator '|' ${DBFILE} << EOF || die "error running '$@'" | ||
| 28 | ${sqlcmd}; | ||
| 29 | EOF | ||
| 30 | } | ||
| 31 | |||
| 32 | create_database_layout() | ||
| 33 | { | ||
| 34 | sql "create table categories(id integer primary key, pcat text unique)" | ||
| 35 | sql "create table packages(id integer primary key, | ||
| 36 | pname text, | ||
| 37 | pver text, | ||
| 38 | pbuild text, | ||
| 39 | pcat_id numeric, | ||
| 40 | state text, | ||
| 41 | provide text, | ||
| 42 | pkgtype text | ||
| 43 | )" | ||
| 44 | sql "create table depends(id integer primary key, pkg_id numeric, relation text, pcat_id numeric, pname text, pver text, pbuild text)" | ||
| 45 | sql "create table sdepends(id integer primary key, pkg_id numeric, relation text, pcat_id numeric, pname text, pver text, pbuild text)" | ||
| 46 | sql "create table packages_info(id integer primary key, pkg_id numeric, arch text, md5 text, mtime numeric, homepage text, description text, size numeric)" | ||
| 47 | #sql "create table packages_content(id integer primary key, pkginfo_id numeric, char text, dirs text, files text, pipes text, symlinks text)" | ||
| 48 | sql "create table packages_content(id integer primary key, pkginfo_id numeric, char blob, dirs blob, files blob, pipes blob, symlinks blob)" | ||
| 49 | sql "create table packages_routines(id integer primary key, | ||
| 50 | pkg_id numeric, | ||
| 51 | mincludes text, | ||
| 52 | preinstall text, | ||
| 53 | postinstall text, | ||
| 54 | preremove text, | ||
| 55 | postremove text, | ||
| 56 | extra_functions text, | ||
| 57 | extra_vars text)" | ||
| 58 | } | ||
| 59 | |||
| 60 | convert_mage_db() | ||
| 61 | { | ||
| 62 | local i | ||
| 63 | local magefile | ||
| 64 | local pcat | ||
| 65 | local pname | ||
| 66 | local pver | ||
| 67 | local pbuild | ||
| 68 | local pcatid | ||
| 69 | local state | ||
| 70 | local preinstall | ||
| 71 | local postinstall | ||
| 72 | local preremove | ||
| 73 | local postremove | ||
| 74 | local pkgid | ||
| 75 | local dep | ||
| 76 | local PKGNAME | ||
| 77 | local STATE | ||
| 78 | local DESCRIPTION | ||
| 79 | local HOMEPAGE | ||
| 80 | local DEPEND | ||
| 81 | local SDEPEND | ||
| 82 | local PROVIDE | ||
| 83 | local PKGTYPE | ||
| 84 | local preinstall | ||
| 85 | local postinstall | ||
| 86 | local preremove | ||
| 87 | local postremove | ||
| 88 | local sym | ||
| 89 | local depname | ||
| 90 | local depver | ||
| 91 | local depbuild | ||
| 92 | local depcat | ||
| 93 | local depcatid | ||
| 94 | local md5file | ||
| 95 | local md5sum | ||
| 96 | |||
| 97 | # create categories | ||
| 98 | for i in virtual ${MAGEDIR}/* | ||
| 99 | do | ||
| 100 | pcat="$(basename ${i})" | ||
| 101 | case ${pcat} in | ||
| 102 | include|profiles) continue;; | ||
| 103 | esac | ||
| 104 | |||
| 105 | sql "insert into categories (pcat) values('${pcat}')" | ||
| 106 | done | ||
| 107 | |||
| 108 | # create packages | ||
| 109 | for magefile in $(find ${MAGEDIR} -type f -name *.mage| sort) | ||
| 110 | do | ||
| 111 | case ${DEBUG} in | ||
| 112 | 1|true) echo "converting ${magefile}" ;; | ||
| 113 | esac | ||
| 114 | pcat="$(magename2pcat ${magefile})" | ||
| 115 | pname="$(magename2pname ${magefile})" | ||
| 116 | pver="$(magename2pver ${magefile})" | ||
| 117 | pbuild="$(magename2pbuild ${magefile})" | ||
| 118 | # substitute r from pbuild | ||
| 119 | pbuild="${pbuild/r/}" | ||
| 120 | |||
| 121 | source ${magefile} | ||
| 122 | |||
| 123 | pcatid=$(sql "select id from categories where pcat='${pcat}'") | ||
| 124 | sql "insert into packages( | ||
| 125 | pname, | ||
| 126 | pver, | ||
| 127 | pbuild, | ||
| 128 | pcat_id, | ||
| 129 | state, | ||
| 130 | provide, | ||
| 131 | pkgtype | ||
| 132 | ) | ||
| 133 | values( | ||
| 134 | '${pname}', | ||
| 135 | '${pver}', | ||
| 136 | '${pbuild}', | ||
| 137 | '${pcatid}', | ||
| 138 | '${STATE}', | ||
| 139 | '${PROVIDE}', | ||
| 140 | '${PKGTYPE}' | ||
| 141 | )" | ||
| 142 | |||
| 143 | pkgid=$(sql "select id from packages where pname='${pname}' and pver='${pver}' and pbuild='${pbuild}'") | ||
| 144 | # depends | ||
| 145 | while read sym dep | ||
| 146 | do | ||
| 147 | [[ -z ${dep} ]] && continue | ||
| 148 | depcat="$(dep2pcat ${dep})" | ||
| 149 | depcatid=$(sql "select id from categories where pcat='${depcat}'") | ||
| 150 | depname="$(dep2pname ${dep})" | ||
| 151 | depver="$(dep2pver ${dep})" | ||
| 152 | sql "insert into depends(pkg_id, | ||
| 153 | relation, | ||
| 154 | pcat_id, | ||
| 155 | pname, | ||
| 156 | pver, | ||
| 157 | pbuild) | ||
| 158 | values('${pkgid}', | ||
| 159 | '${sym}', | ||
| 160 | '${depcatid}', | ||
| 161 | '${depname}', | ||
| 162 | '${depver}', | ||
| 163 | '${depbuild}')" | ||
| 164 | done << EOF | ||
| 165 | ${DEPEND} | ||
| 166 | EOF | ||
| 167 | # sdepends | ||
| 168 | while read sym dep | ||
| 169 | do | ||
| 170 | [[ -z ${dep} ]] && continue | ||
| 171 | depcat="$(dep2pcat ${dep})" | ||
| 172 | depcatid=$(sql "select id from categories where pcat='${depcat}'") | ||
| 173 | depname="$(dep2pname ${dep})" | ||
| 174 | depver="$(dep2pver ${dep})" | ||
| 175 | sql "insert into sdepends(pkg_id, | ||
| 176 | relation, | ||
| 177 | pcat_id, | ||
| 178 | pname, | ||
| 179 | pver, | ||
| 180 | pbuild) | ||
| 181 | values('${pkgid}', | ||
| 182 | '${sym}', | ||
| 183 | '${depcatid}', | ||
| 184 | '${depname}', | ||
| 185 | '${depver}', | ||
| 186 | '${depbuild}')" | ||
| 187 | done << EOF | ||
| 188 | ${SDEPEND} | ||
| 189 | EOF | ||
| 190 | |||
| 191 | for arch in i686 x86_64 | ||
| 192 | do | ||
| 193 | md5file="${MAGEDIR}/${pcat}/${pname}/md5/${pname}-${pver}-${arch}-r${pbuild}.md5" | ||
| 194 | [[ -f ${md5file} ]] && md5sum="$(cat ${md5file} | cut -d' ' -f1)" | ||
| 195 | |||
| 196 | # fix descriptions | ||
| 197 | DESCRIPTION="$(echo ${DESCRIPTION} | sed s:\':\'\':g)" | ||
| 198 | |||
| 199 | sql "insert into packages_info(pkg_id, arch, md5, description, homepage) | ||
| 200 | values('${pkgid}','${arch}','${md5sum}','${DESCRIPTION}','${HOMEPAGE}')" | ||
| 201 | done | ||
| 202 | |||
| 203 | mincludes="$(grep -r 'minclude ' ${magefile} | cut -d: -f2 | sed s:minclude\ ::)" | ||
| 204 | |||
| 205 | niro | 488 | # |
| 206 | niro | 487 | # install routines & includes |
| 207 | niro | 488 | # |
| 208 | # needs special magic: the last line of typeset has no ';' | ||
| 209 | # but to eval the function we must append it | ||
| 210 | # so this sed deletes the last line of the typeset output | ||
| 211 | # and replaces it with an ;} and a newline between | ||
| 212 | # | ||
| 213 | # but we will not add this fun when no postinstall etc are given | ||
| 214 | # -> [[ -n $(typeset -f postinstall ]] && | ||
| 215 | # | ||
| 216 | # also the character ' is a problem while importing to sql | ||
| 217 | # because we use ' as escape char. so we replace it with '' | ||
| 218 | # | ||
| 219 | # $([[ -n $(typeset -f postinstall) ]] && echo -e "$(typeset -f postinstall | sed s:\':\'\':g | sed '$d');\n}") | ||
| 220 | # | ||
| 221 | niro | 487 | sql "insert into packages_routines(pkg_id, |
| 222 | mincludes, | ||
| 223 | postinstall, | ||
| 224 | preinstall, | ||
| 225 | preremove, | ||
| 226 | postremove) | ||
| 227 | values('${pkgid}', | ||
| 228 | '${mincludes}', | ||
| 229 | niro | 488 | '$([[ -n $(typeset -f postinstall) ]] && echo -e "$(typeset -f postinstall | sed s:\':\'\':g | sed '$d');\n}")', |
| 230 | '$([[ -n $(typeset -f preinstall) ]] && echo -e "$(typeset -f preinstall | sed s:\':\'\':g | sed '$d');\n}")', | ||
| 231 | '$([[ -n $(typeset -f preremove) ]] && echo -e "$(typeset -f preremove | sed s:\':\'\':g | sed '$d');\n}")', | ||
| 232 | '$([[ -n $(typeset -f postremove) ]] && echo -e "$(typeset -f postremove | sed s:\':\'\':g | sed '$d');\n}")')" | ||
| 233 | niro | 487 | |
| 234 | unset PKGNAME | ||
| 235 | unset DEPEND | ||
| 236 | unset SDEPEND | ||
| 237 | unset PROVIDE | ||
| 238 | |||
| 239 | # unset these functions | ||
| 240 | unset -f preinstall | ||
| 241 | unset -f postinstall | ||
| 242 | unset -f preremove | ||
| 243 | unset -f postremove | ||
| 244 | done | ||
| 245 | } | ||
| 246 | |||
| 247 | |||
| 248 | convert_install_db() | ||
| 249 | { | ||
| 250 | local i | ||
| 251 | local magefile | ||
| 252 | local pcat | ||
| 253 | local pname | ||
| 254 | local pver | ||
| 255 | local pbuild | ||
| 256 | local pcatid | ||
| 257 | local state | ||
| 258 | local preinstall | ||
| 259 | local postinstall | ||
| 260 | local preremove | ||
| 261 | local postremove | ||
| 262 | local pkgid | ||
| 263 | local dep | ||
| 264 | local PKGNAME | ||
| 265 | local STATE | ||
| 266 | local DESCRIPTION | ||
| 267 | local HOMEPAGE | ||
| 268 | local DEPEND | ||
| 269 | local SDEPEND | ||
| 270 | local PROVIDE | ||
| 271 | local PKGTYPE | ||
| 272 | local preinstall | ||
| 273 | local postinstall | ||
| 274 | local preremove | ||
| 275 | local postremove | ||
| 276 | local sym | ||
| 277 | local depname | ||
| 278 | local depver | ||
| 279 | local depbuild | ||
| 280 | local depcat | ||
| 281 | local depcatid | ||
| 282 | local md5file | ||
| 283 | local md5sum | ||
| 284 | local pkginfoid | ||
| 285 | local entrydir | ||
| 286 | |||
| 287 | # create categories | ||
| 288 | for i in virtual ${INSTALLDB}/* | ||
| 289 | do | ||
| 290 | pcat="$(basename ${i})" | ||
| 291 | case ${pcat} in | ||
| 292 | include|profiles) continue;; | ||
| 293 | esac | ||
| 294 | |||
| 295 | sql "insert into categories (pcat) values('${pcat}')" | ||
| 296 | done | ||
| 297 | |||
| 298 | # create packages | ||
| 299 | for magefile in $(find ${INSTALLDB} -type f -name *.mage| sort) | ||
| 300 | do | ||
| 301 | case ${DEBUG} in | ||
| 302 | 1|true) echo "converting ${magefile}" ;; | ||
| 303 | esac | ||
| 304 | |||
| 305 | pcat="$(magename2pcat ${magefile})" | ||
| 306 | pname="$(magename2pname ${magefile})" | ||
| 307 | pver="$(magename2pver ${magefile})" | ||
| 308 | pbuild="$(magename2pbuild ${magefile})" | ||
| 309 | # substitute r from pbuild | ||
| 310 | pbuild="${pbuild/r/}" | ||
| 311 | |||
| 312 | source ${magefile} | ||
| 313 | |||
| 314 | pcatid=$(sql "select id from categories where pcat='${pcat}'") | ||
| 315 | sql "insert into packages( | ||
| 316 | pname, | ||
| 317 | pver, | ||
| 318 | pbuild, | ||
| 319 | pcat_id, | ||
| 320 | state, | ||
| 321 | provide, | ||
| 322 | pkgtype | ||
| 323 | ) | ||
| 324 | values( | ||
| 325 | '${pname}', | ||
| 326 | '${pver}', | ||
| 327 | '${pbuild}', | ||
| 328 | '${pcatid}', | ||
| 329 | '${STATE}', | ||
| 330 | '${PROVIDE}', | ||
| 331 | '${PKGTYPE}' | ||
| 332 | )" | ||
| 333 | |||
| 334 | pkgid=$(sql "select id from packages where pname='${pname}' and pver='${pver}' and pbuild='${pbuild}'") | ||
| 335 | # depends | ||
| 336 | while read sym dep | ||
| 337 | do | ||
| 338 | [[ -z ${dep} ]] && continue | ||
| 339 | depcat="$(dep2pcat ${dep})" | ||
| 340 | depcatid=$(sql "select id from categories where pcat='${depcat}'") | ||
| 341 | depname="$(dep2pname ${dep})" | ||
| 342 | depver="$(dep2pver ${dep})" | ||
| 343 | sql "insert into depends(pkg_id, | ||
| 344 | relation, | ||
| 345 | pcat_id, | ||
| 346 | pname, | ||
| 347 | pver, | ||
| 348 | pbuild) | ||
| 349 | values('${pkgid}', | ||
| 350 | '${sym}', | ||
| 351 | '${depcatid}', | ||
| 352 | '${depname}', | ||
| 353 | '${depver}', | ||
| 354 | '${depbuild}')" | ||
| 355 | done << EOF | ||
| 356 | ${DEPEND} | ||
| 357 | EOF | ||
| 358 | # sdepends | ||
| 359 | while read sym dep | ||
| 360 | do | ||
| 361 | [[ -z ${dep} ]] && continue | ||
| 362 | depcat="$(dep2pcat ${dep})" | ||
| 363 | depcatid=$(sql "select id from categories where pcat='${depcat}'") | ||
| 364 | depname="$(dep2pname ${dep})" | ||
| 365 | depver="$(dep2pver ${dep})" | ||
| 366 | sql "insert into sdepends(pkg_id, | ||
| 367 | relation, | ||
| 368 | pcat_id, | ||
| 369 | pname, | ||
| 370 | pver, | ||
| 371 | pbuild) | ||
| 372 | values('${pkgid}', | ||
| 373 | '${sym}', | ||
| 374 | '${depcatid}', | ||
| 375 | '${depname}', | ||
| 376 | '${depver}', | ||
| 377 | '${depbuild}')" | ||
| 378 | done << EOF | ||
| 379 | ${SDEPEND} | ||
| 380 | EOF | ||
| 381 | |||
| 382 | DESCRIPTION="$(echo ${DESCRIPTION} | sed s:\':\'\':g)" | ||
| 383 | sql "insert into packages_info(pkg_id, arch, md5, description, homepage) | ||
| 384 | values('${pkgid}','${ARCH}','${md5sum}','${DESCRIPTION}','${HOMEPAGE}')" | ||
| 385 | |||
| 386 | |||
| 387 | # install routines & includes | ||
| 388 | sql "insert into packages_routines(pkg_id, | ||
| 389 | mincludes, | ||
| 390 | postinstall, | ||
| 391 | preinstall, | ||
| 392 | preremove, | ||
| 393 | postremove) | ||
| 394 | values('${pkgid}', | ||
| 395 | '${mincludes}', | ||
| 396 | '$(typeset -f postinstall | sed s:\':\'\':g)', | ||
| 397 | '$(typeset -f preinstall | sed s:\':\'\':g)', | ||
| 398 | '$(typeset -f preremove | sed s:\':\'\':g)', | ||
| 399 | '$(typeset -f postremove | sed s:\':\'\':g)')" | ||
| 400 | |||
| 401 | #### #### | ||
| 402 | # record contents # | ||
| 403 | #### #### | ||
| 404 | pkginfoid=$(sql "select id from packages_info where pkg_id='${pkgid}' and arch='${ARCH}'") | ||
| 405 | entrydir="$(dirname ${magefile})" | ||
| 406 | # sql "insert into packages_content(pkginfo_id, | ||
| 407 | # char, | ||
| 408 | # dirs, | ||
| 409 | # files, | ||
| 410 | # pipes, | ||
| 411 | # symlinks) | ||
| 412 | # values('${pkginfoid}', | ||
| 413 | # '$(< ${entrydir}/.char)', | ||
| 414 | # '$(< ${entrydir}/.dirs)', | ||
| 415 | # '$(< ${entrydir}/.files)', | ||
| 416 | # '$(< ${entrydir}/.pipes)', | ||
| 417 | # '$(< ${entrydir}/.symlinks)')" | ||
| 418 | sql "insert into packages_content(pkginfo_id, | ||
| 419 | char, | ||
| 420 | dirs, | ||
| 421 | files, | ||
| 422 | pipes, | ||
| 423 | symlinks) | ||
| 424 | values('${pkginfoid}', | ||
| 425 | 'records/${pkginfoid}/char.bz2', | ||
| 426 | 'records/${pkginfoid}/dirs.bz2', | ||
| 427 | 'records/${pkginfoid}/files.bz2', | ||
| 428 | 'records/${pkginfoid}/pipes.bz2', | ||
| 429 | 'records/${pkginfoid}/symlinks.bz2')" | ||
| 430 | # create compressed content files | ||
| 431 | local entryfile | ||
| 432 | for entryfile in char dirs files pipes symlinks | ||
| 433 | do | ||
| 434 | install -d $(dirname ${DBFILE})/records/${pkginfoid} | ||
| 435 | cat ${entrydir}/.${entryfile} | bzip2 -9 >> $(dirname ${DBFILE})/records/${pkginfoid}/${entryfile}.bz2 | ||
| 436 | done | ||
| 437 | |||
| 438 | unset PKGNAME | ||
| 439 | unset DEPEND | ||
| 440 | unset SDEPEND | ||
| 441 | unset PROVIDE | ||
| 442 | |||
| 443 | # unset these functions | ||
| 444 | unset -f preinstall | ||
| 445 | unset -f postinstall | ||
| 446 | unset -f preremove | ||
| 447 | unset -f postremove | ||
| 448 | done | ||
| 449 | } | ||
| 450 | |||
| 451 | convert_virtual_defaults() | ||
| 452 | { | ||
| 453 | local virtual | ||
| 454 | local package | ||
| 455 | local vcat | ||
| 456 | local vname | ||
| 457 | local pcat | ||
| 458 | local pname | ||
| 459 | |||
| 460 | sql "create table virtual_defaults(id integer primary key, vcat text,vname text, pcat text, pname text)" | ||
| 461 | |||
| 462 | while read virtual package | ||
| 463 | do | ||
| 464 | vcat="$(dirname ${virtual})" | ||
| 465 | vname="$(basename ${virtual})" | ||
| 466 | pcat="$(dirname ${package})" | ||
| 467 | pname="$(basename ${package})" | ||
| 468 | |||
| 469 | sql "insert into virtual_defaults(vcat,vname,pcat,pname) values('${vcat}','${vname}','${pcat}','${pname}')" | ||
| 470 | done < /etc/mage-profile/virtuals.defaults | ||
| 471 | } | ||
| 472 | |||
| 473 | |||
| 474 | # packages db | ||
| 475 | #DBFILE=/home/tjoke/DATABASES/mage6.sql | ||
| 476 | #create_database_layout | ||
| 477 | #convert_mage_db | ||
| 478 | |||
| 479 | # virtual default | ||
| 480 | #DBFILE=/home/tjoke/DATABASES/virtuals6.sql | ||
| 481 | #convert_virtual_defaults | ||
| 482 | |||
| 483 | # # install db | ||
| 484 | # DBFILE=/home/tjoke/DATABASES/install6.sql | ||
| 485 | # create_database_layout | ||
| 486 | # convert_install_db | ||
| 487 | |||
| 488 | |||
| 489 | METHOD="$1" | ||
| 490 | DBFILE="$2" | ||
| 491 | |||
| 492 | [[ -z ${METHOD} ]] && die "No method given. Use --install, --packages or --virtual for your appropiate task" | ||
| 493 | [[ -z ${DBFILE} ]] && die "No database given." | ||
| 494 | |||
| 495 | case $1 in | ||
| 496 | --install|-i) | ||
| 497 | create_database_layout | ||
| 498 | convert_install_db | ||
| 499 | ;; | ||
| 500 | --packages|-p) | ||
| 501 | create_database_layout | ||
| 502 | convert_mage_db | ||
| 503 | ;; | ||
| 504 | --virtuals|-v) | ||
| 505 | convert_virtual_defaults | ||
| 506 | ;; | ||
| 507 | *) die "Unkown method." ;; | ||
| 508 | esac |
Properties
| Name | Value |
|---|---|
| svn:executable | * |