2013-02-16 16:41:40 +00:00
< ? php if ( ! defined ( 'BASEPATH' )) exit ( 'No direct script access allowed' );
class Lotw extends CI_Controller {
/* Controls who can access the controller and its functions */
function __construct ()
{
parent :: __construct ();
$this -> load -> helper ( array ( 'form' , 'url' ));
$this -> load -> model ( 'user_model' );
if ( ! $this -> user_model -> authorize ( 2 )) { $this -> session -> set_flashdata ( 'notice' , 'You\'re not allowed to do that!' ); redirect ( 'dashboard' ); }
}
2013-02-23 23:42:18 +00:00
private function loadFromFile ( $filepath )
{
2013-02-24 00:40:06 +00:00
ini_set ( 'memory_limit' , '-1' );
2013-02-23 23:42:18 +00:00
set_time_limit ( 0 );
$this -> load -> library ( 'adif_parser' );
$this -> adif_parser -> load_from_file ( $filepath );
$this -> adif_parser -> initialize ();
$table = " <table> " ;
while ( $record = $this -> adif_parser -> get_record ())
{
if ( count ( $record ) == 0 )
{
break ;
};
//echo date('Y-m-d', strtotime($record['qso_date']))."<br>";
//echo date('H:m', strtotime($record['time_on']))."<br>";
//$this->logbook_model->import($record);
//echo $record["call"]."<br>";
//print_r($record->);
$time_on = date ( 'Y-m-d' , strtotime ( $record [ 'qso_date' ])) . " " . date ( 'H:i' , strtotime ( $record [ 'time_on' ]));
$qsl_date = date ( 'Y-m-d' , strtotime ( $record [ 'qslrdate' ])) . " " . date ( 'H:i' , strtotime ( $record [ 'qslrdate' ]));
if ( isset ( $record [ 'time_off' ])) {
$time_off = date ( 'Y-m-d' , strtotime ( $record [ 'qso_date' ])) . " " . date ( 'H:i' , strtotime ( $record [ 'time_off' ]));
} else {
$time_off = date ( 'Y-m-d' , strtotime ( $record [ 'qso_date' ])) . " " . date ( 'H:i' , strtotime ( $record [ 'time_on' ]));
}
$status = $this -> logbook_model -> import_check ( $time_on , $record [ 'call' ], $record [ 'band' ]);
$lotw_status = $this -> logbook_model -> lotw_update ( $time_on , $record [ 'call' ], $record [ 'band' ], $qsl_date , $record [ 'qsl_rcvd' ]);
$table .= " <tr> " ;
$table .= " <td> " . $time_on . " </td> " ;
$table .= " <td> " . $record [ 'call' ] . " </td> " ;
$table .= " <td> " . $record [ 'mode' ] . " </td> " ;
$table .= " <td> " . $record [ 'qsl_rcvd' ] . " </td> " ;
$table .= " <td> " . $qsl_date . " </td> " ;
$table .= " <td>QSO Record: " . $status . " </td> " ;
$table .= " <td>LoTW Record: " . $lotw_status . " </td> " ;
$table .= " <tr> " ;
};
$table .= " </table> " ;
2013-02-24 00:40:06 +00:00
unlink ( $filepath );
2013-02-23 23:42:18 +00:00
$data [ 'lotw_table' ] = $table ;
$data [ 'page_title' ] = " LoTW ADIF Information " ;
$this -> load -> view ( 'layout/header' , $data );
$this -> load -> view ( 'lotw/analysis' );
$this -> load -> view ( 'layout/footer' );
}
2013-02-16 16:41:40 +00:00
public function import () {
$data [ 'page_title' ] = " LoTW ADIF Import " ;
$config [ 'upload_path' ] = './uploads/' ;
$config [ 'allowed_types' ] = 'adi|ADI' ;
$this -> load -> library ( 'upload' , $config );
2013-02-23 19:25:36 +00:00
$this -> load -> model ( 'logbook_model' );
2013-02-23 00:30:33 +00:00
if ( $this -> input -> post ( 'lotwimport' ) == 'fetch' )
2013-02-23 00:57:44 +00:00
{
2013-02-23 00:30:33 +00:00
$file = $config [ 'upload_path' ] . 'lotwreport_download.adi' ;
2013-02-23 00:57:44 +00:00
// Get credentials for LoTW
$query = $this -> user_model -> get_by_id ( $this -> session -> userdata ( 'user_id' ));
$q = $query -> row ();
$data [ 'user_lotw_name' ] = $q -> user_lotw_name ;
$data [ 'user_lotw_password' ] = $q -> user_lotw_password ;
2013-02-23 19:25:36 +00:00
// Validate that LoTW credentials are not empty
// TODO: We don't actually see the error message
if ( $data [ 'user_lotw_name' ] == '' || $data [ 'user_lotw_password' ] == '' )
{
$this -> session -> set_flashdata ( 'warning' , 'You have not defined your ARRL LoTW credentials!' ); redirect ( 'dashboard' );
}
// Query the logbook to determine when the last LoTW confirmation was
$lotw_last_qsl_date = $this -> logbook_model -> lotw_last_qsl_date ();
2013-02-23 00:57:44 +00:00
// TODO: Consolidate code
2013-02-23 19:25:36 +00:00
// TODO: Specifiy in config file whether we want LoTW confirms as V or Y. Both are acceptable under ADIF specification. HRD seems to use V. Everyone else that I've used uses Y.
2013-02-23 00:30:33 +00:00
2013-02-23 00:57:44 +00:00
// Build URL for LoTW report file
$lotw_url = " https://p1k.arrl.org/lotwuser/lotwreport.adi? " ;
$lotw_url .= " login= " . $data [ 'user_lotw_name' ];
$lotw_url .= " &password= " . $data [ 'user_lotw_password' ];
2013-02-23 19:25:36 +00:00
$lotw_url .= " &qso_query=1&qso_qsl='yes' " ;
//TODO: Option to specifiy whether we download location data from LoTW or not
//$lotw_url .= "&qso_qsldetail=\"yes\";
$lotw_url .= " &qso_qslsince= " ;
$lotw_url .= " $lotw_last_qsl_date " ;
// Only pull back entries that belong to this callsign
$lotw_call = $this -> session -> userdata ( 'user_callsign' );
$lotw_url .= " &qso_owncall= $lotw_call " ;
2013-02-22 02:13:42 +00:00
2013-02-23 00:57:44 +00:00
file_put_contents ( $file , file_get_contents ( $lotw_url ));
ini_set ( 'memory_limit' , '-1' );
2013-02-24 00:40:06 +00:00
$this -> loadFromFile ( $file );
2013-02-16 16:41:40 +00:00
}
else
{
2013-02-23 00:30:33 +00:00
if ( ! $this -> upload -> do_upload ())
2013-02-22 02:19:58 +00:00
{
2013-02-23 00:30:33 +00:00
$data [ 'error' ] = $this -> upload -> display_errors ();
$this -> load -> view ( 'layout/header' , $data );
$this -> load -> view ( 'lotw/import' );
$this -> load -> view ( 'layout/footer' );
2013-02-22 02:19:58 +00:00
}
else
2013-02-16 16:41:40 +00:00
{
2013-02-22 02:13:42 +00:00
$data = array ( 'upload_data' => $this -> upload -> data ());
2013-02-23 00:30:33 +00:00
2013-02-24 00:40:06 +00:00
$this -> loadFromFile ( './uploads/' . $data [ 'upload_data' ][ 'file_name' ]);
2013-02-22 02:13:42 +00:00
}
2013-02-16 16:41:40 +00:00
}
2013-02-23 00:30:33 +00:00
} // end function
} // end class