view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

      to bin/ftndb-nodelist.
    - Create the initial set of files for the development of a replacement
      administration script using App::Cmd and at least initially using the
      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.

bin/ftndb-nodelist  view on Meta::CPAN

    my $db_handle = FTN::Database::open_ftn_database(\%db_option);

    # 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;