App-FTNDB

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

      name 'ftndbadm'.

0.29    Sun Mar 18 18:28 2012
    - Use the database type for the 'id' field selection in the function
      create_nodelist_table.

0.28    Sun Mar 18 15:56 2012
    - Add $ftnyear and $yearday to the list_ftn_nodelist bind_columns call in
      ftnpldb-nodelist.
    - Change the default to 'now' and drop the "(14)" from TIMESTAMP for the
      field 'updated' definition.

0.27    Sun Mar 18 12:56 2012
    - Updated the doc/TODO file.
    - lib/FTN/Database/Nodelist.pm:
        Add the new field 'ftnyear' to the nodelist table definition.
        Add the new field 'yearday' to the nodelist table definition.
        Add 'ftnyear' and 'yearday' to the nodelist ftnnode index definition.

0.26    Sun Mar 18 10:58 2012
    - Update the Copyright end year to 2012.

bin/ftndb-nodelist  view on Meta::CPAN

    # build Select query sql statement
    my $sql_statement = "SELECT * FROM $table_name WHERE zone = $zone_number and net = $net_number ";
    $sql_statement .= 'ORDER by node ASC';

    # execute query
    my $query_handle = $db_handle->prepare($sql_statement);
    $query_handle->execute();

    $query_handle->bind_columns(\my($id, $type, $zone, $net, $node, $point, $region,
     $name, $location, $sysop, $phone, $baud, $flags, $domain, $ftnyear, $yearday, $source, $updated));

    open(ListFile, ">$list_file") or die "Cannot open $list_file\n";

    while($query_handle->fetch()) {
        write ListFile;
    }

    close ListFile;

    # finish query

doc/History  view on Meta::CPAN

    - Started work on v1.2, using sqlite database instead of mysql,
      bumping version references from 1.1. to 1.2

29 Jun 05
    - Released as v1.1.

22 Mar 04
    - Merged v1.1 beta back in to main.

21 Mar 04 -
    - updated copyright years to 2004
    
11 AUG 03 - 
   nltable.pl - added a timestamp filed, 'updated'.

04 May 03 -
   nltable.pl -  doubled possible size of flags field to 64.

 1 Jan 03 - Corrected year numbers to 2003.

29 June 02
    nl2sql.pl : Implement finding file (by day number) when given a basename
    & directory of the nodelist file; this is now the default; use "-e" option
    to have it match full file name. Use nodelist filename for the 'source'

lib/App/FTNDB/Nodelist.pm  view on Meta::CPAN

    $sql_statement .= "name      VARCHAR(48) DEFAULT '' NOT NULL, ";
    $sql_statement .= "location  VARCHAR(48) DEFAULT '' NOT NULL, ";
    $sql_statement .= "sysop     VARCHAR(48) DEFAULT '' NOT NULL, ";
    $sql_statement .= "phone     VARCHAR(32) DEFAULT '000-000-000-000' NOT NULL, ";
    $sql_statement .= "baud      CHAR(6) DEFAULT '300' NOT NULL, ";
    $sql_statement .= "flags     VARCHAR(128) DEFAULT ' ' NOT NULL, ";
    $sql_statement .= "domain    VARCHAR(8) DEFAULT 'fidonet' NOT NULL, ";
    $sql_statement .= "ftnyear   SMALLINT  DEFAULT '0' NOT NULL, ";
    $sql_statement .= "yearday   SMALLINT  DEFAULT '0' NOT NULL, ";
    $sql_statement .= "source    VARCHAR(16) DEFAULT 'local' NOT NULL, ";
    $sql_statement .= "updated   TIMESTAMP DEFAULT 'now' NOT NULL ";
    $sql_statement .= ") ";

    $db_handle->do("$sql_statement ") or croak($DBI::errstr);

    return(0);

}

=head2 create_ftnnode_index