← Back to branch summary

~ubuntu-branches/ubuntu/saucy/dahdi-tools/saucy

« back to all changes in this revision

Viewing changes to xpp/perl_modules/Dahdi/Xpp.pm

  • Committer: Stefan Lesicnik
  • Date: 2011-05-08 12:22:46 UTC
  • mfrom: (2.1.4 sid)
  • Revision ID: stefan@lsd.co.za-20110508122246-lh6k2x1uy8pl3vdi
Tags: 1:2.4.1-1ubuntu1
http://bugs.debian.org/581076
http://bugs.debian.org/582094
https://launchpad.net/bugs/493304
* Merge from Debian. Remaining changes:
  - Bug Fix: If linux-headers are not installed, don't block, and print
    information for the user.
  - added debian/dahdi.postinst
  - added --error-handler=init_failed to debian/rules
  - Changes from Debian:
    - debian/control: Change Maintainer
    - debian/control: Removed Uploaders field.
    - debian/control: Removed Debian Vcs-Svn entry and replaced with
      ubuntu-voip Vcs-Bzr, to reflect divergence in packages.
    - debian/control: Package dahdi Depends on dahdi-dkms | dahdi-source
* debian/control: Added gawk as dependency for dkms build (LP: #493304)
* New upstream release (Closes: #581076, #582094).
* Patches hardware_rescan, perl_fix_noserial, perl_fix_transportdir,
  astribank_allow_ignoreend, init_unload_modules and wcb4xxp_extra_trunk
  dropped: merged upstream.
* dahdi-linux 2.3.0 is required (extra config options for dahdi_cfg).
* Convert to dpkg v.3 format.
* Standards version: 3.9.1.0 (No change needed.

Show diffs side-by-side

added added

removed removed

Lines of Context:
xpp/perl_modules/Dahdi/Xpp.pm
5
5
# This program is free software; you can redistribute and/or
6
6
# modify it under the same terms as Perl itself.
7
7
#
8
 
# $Id: Xpp.pm 7473 2009-11-04 17:25:21Z tzafrir $
 
8
# $Id: Xpp.pm 8215 2010-03-02 18:07:37Z tzafrir $
9
9
#
10
10
use strict;
11
11
use Dahdi::Hardware;
34
34
#
35
35
my @xbuses;
36
36
 
37
 
my $proc_base = "/proc/xpp";
38
 
our $sysfs_astribanks = "/sys/bus/astribanks/devices";
39
 
our $sysfs_xpds = "/sys/bus/xpds/devices";
40
 
our $sysfs_ab_driver = "/sys/bus/astribanks/drivers/xppdrv";
 
37
our $sysfs_astribanks;
 
38
our $sysfs_xpds;
 
39
our $sysfs_ab_driver;
 
40
 
 
41
BEGIN {
 
42
        my $virt_base = $Dahdi::virt_base;
 
43
        $sysfs_astribanks = "$virt_base/sys/bus/astribanks/devices";
 
44
        $sysfs_xpds = "$virt_base/sys/bus/xpds/devices";
 
45
        $sysfs_ab_driver = "$virt_base/sys/bus/astribanks/drivers/xppdrv";
 
46
}
41
47
 
42
48
sub scan($) {
43
49
        my $pack = shift || die;
253
259
        my $result;
254
260
        my $newapi = 0;
255
261
 
 
262
        my $proc_base = $Dahdi::proc_xpp_base;
256
263
        my $file = "$proc_base/sync";
257
264
        return '' unless -f $file;
258
265
        # First query