1package Magus::RestrictedDistfile;
2
3use strict;
4use warnings;
5use base qw(Magus::DBI);
6
7__PACKAGE__->table('restricted_distfiles');
8__PACKAGE__->columns(All => qw/id port filename/);
9__PACKAGE__->has_a(port => 'Magus::Port');
10
11__PACKAGE__->set_sql(by_run_and_machine => <<END_OF_SQL);
12SELECT restricted_distfiles.* FROM restricted_distfiles,ports
13WHERE restricted_distfiles.port=ports.id AND run=? AND machine=? ORDER BY time DESC
14END_OF_SQL
15
161;
17__END__
18