File: postinst

package info (click to toggle)
dbishell 0.8.9-7.2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 788 kB
  • ctags: 1,423
  • sloc: perl: 13,353; makefile: 138; sh: 10
file content (18 lines) | stat: -rw-r--r-- 594 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/bin/sh -e
# dbishell postinst

if [ "$1" = "configure" ]; then

echo "Checking for interesting perl DBI drivers..."

perl -MDBI       \
     -Mstrict    \
     -e 'my $bored  = q^* No Interesting DBD Drivers on this system, please install some *^;' \
     -e 'my $boring = q^(?:ADO|ExampleP|Multiplex|Proxy)$^;'                   \
     -e 'my @dbd = grep { !/$boring/o } DBI->available_drivers();'       \
     -e '$, = "\n";'                                                     \
     -e 'print(STDOUT ( @dbd ? ( "Interesting drivers installed:",@dbd) : ($bored) ), "");'

fi

#DEBHELPER#