App-CPANIDX

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

              Server: lighttpd/1.4.25

              ---
              -
                mod_name: POE::Component::SmokeBox::Dists
                cpan_id: BINGOS
                perms: f

        "timestamp"
            Does not take a search term. Returns a timestamp of when the
            CPAN Index Database was last updated and when the packages file
            that was used was last updated. Both values are in epoch time.

              curl -i http://name.of.website/cpanidx/yaml/timestamp

              HTTP/1.1 200 OK
              Content-type: application/x-yaml; charset=utf-8
              Transfer-Encoding: chunked
              Date: Wed, 09 Jun 2010 10:16:15 GMT
              Server: lighttpd/1.4.25

              ---
              -
                lastupdated: 1276075625
                timestamp: 1276077865

        "topten"
            Does not take a search term. Returns a list of the authors with
            the most distributions. This is not the most accurate, try
            <http://thegestalt.org/simon/perl/wholecpan.html> for a more
            accurate leaderboard.

              curl -i http://name.of.website/cpanidx/yaml/topten

lib/App/CPANIDX.pm  view on Meta::CPAN

  Server: lighttpd/1.4.25

  ---
  -
    mod_name: POE::Component::SmokeBox::Dists
    cpan_id: BINGOS
    perms: f

=item C<timestamp>

Does not take a search term. Returns a timestamp of when the CPAN Index Database was last updated
and when the packages file that was used was last updated. Both values are in epoch time.

  curl -i http://name.of.website/cpanidx/yaml/timestamp

  HTTP/1.1 200 OK
  Content-type: application/x-yaml; charset=utf-8
  Transfer-Encoding: chunked
  Date: Wed, 09 Jun 2010 10:16:15 GMT
  Server: lighttpd/1.4.25

  ---
  -
    lastupdated: 1276075625
    timestamp: 1276077865

=item C<topten>

Does not take a search term. Returns a list of the authors with the most distributions. This is not the
most accurate, try L<http://thegestalt.org/simon/perl/wholecpan.html> for a more accurate leaderboard.

  curl -i http://name.of.website/cpanidx/yaml/topten

  HTTP/1.1 200 OK

lib/App/CPANIDX/Tables.pm  view on Meta::CPAN

      'dist_file VARCHAR(400) NOT NULL',
      'dist_vers VARCHAR(50)',
    ],
   auths => [
      'cpan_id VARCHAR(20) NOT NULL',
      'fullname VARCHAR(255) NOT NULL',
      'email TEXT',
    ],
   timestamp => [
      'timestamp VARCHAR(30) NOT NULL',
      'lastupdated VARCHAR(30) NOT NULL',
   ],
   mirrors => [
      'hostname VARCHAR(50) NOT NULL',
      'dst_bandwidth VARCHAR(50)',
      'dst_contact VARCHAR(60)',
      'dst_ftp VARCHAR(250)',
      'dst_http VARCHAR(250)',
      'dst_location TEXT',
      'dst_notes TEXT',
      'dst_organisation TEXT',

t/03_tables.t  view on Meta::CPAN

                       join(', ', @{ $fields } ) . ' )';
  }
}

my $tests = {
  auths => 'CREATE TABLE IF NOT EXISTS auths ( cpan_id VARCHAR(20) NOT NULL, fullname VARCHAR(255) NOT NULL, email TEXT )',
  dists => 'CREATE TABLE IF NOT EXISTS dists ( dist_name VARCHAR(190) NOT NULL, cpan_id VARCHAR(20) NOT NULL, dist_file VARCHAR(400) NOT NULL, dist_vers VARCHAR(50) )',
  mirrors => 'CREATE TABLE IF NOT EXISTS mirrors ( hostname VARCHAR(50) NOT NULL, dst_bandwidth VARCHAR(50), dst_contact VARCHAR(60), dst_ftp VARCHAR(250), dst_http VARCHAR(250), dst_location TEXT, dst_notes TEXT, dst_organisation TEXT, dst_rsync VAR...
  mods => 'CREATE TABLE IF NOT EXISTS mods ( mod_name VARCHAR(300) NOT NULL, dist_name VARCHAR(190) NOT NULL, dist_vers VARCHAR(50), cpan_id VARCHAR(20) NOT NULL, mod_vers VARCHAR(30) )',
  perms => 'CREATE TABLE IF NOT EXISTS perms ( mod_name VARCHAR(300) NOT NULL, cpan_id VARCHAR(20) NOT NULL, perm VARCHAR(20) )',
  timestamp => 'CREATE TABLE IF NOT EXISTS timestamp ( timestamp VARCHAR(30) NOT NULL, lastupdated VARCHAR(30) NOT NULL )',
  tmp_auths => 'CREATE TABLE IF NOT EXISTS tmp_auths ( cpan_id VARCHAR(20) NOT NULL, fullname VARCHAR(255) NOT NULL, email TEXT )',
  tmp_dists => 'CREATE TABLE IF NOT EXISTS tmp_dists ( dist_name VARCHAR(190) NOT NULL, cpan_id VARCHAR(20) NOT NULL, dist_file VARCHAR(400) NOT NULL, dist_vers VARCHAR(50) )',
  tmp_mirrors => 'CREATE TABLE IF NOT EXISTS tmp_mirrors ( hostname VARCHAR(50) NOT NULL, dst_bandwidth VARCHAR(50), dst_contact VARCHAR(60), dst_ftp VARCHAR(250), dst_http VARCHAR(250), dst_location TEXT, dst_notes TEXT, dst_organisation TEXT, dst_r...
  tmp_mods => 'CREATE TABLE IF NOT EXISTS tmp_mods ( mod_name VARCHAR(300) NOT NULL, dist_name VARCHAR(190) NOT NULL, dist_vers VARCHAR(50), cpan_id VARCHAR(20) NOT NULL, mod_vers VARCHAR(30) )',
  tmp_perms => 'CREATE TABLE IF NOT EXISTS tmp_perms ( mod_name VARCHAR(300) NOT NULL, cpan_id VARCHAR(20) NOT NULL, perm VARCHAR(20) )',
  %{ $cl_tabs },
};

plan tests => 2 + ( scalar keys %$tests );