← Back to branch summary

~ubuntu-branches/ubuntu/quantal/mythexport/quantal

« back to all changes in this revision

Viewing changes to usr/share/mythtv/mythexport/deleteFile.cgi

  • Committer: Bazaar Package Importer
  • Author(s): John Baab
  • Date: 2009-03-11 09:22:55 UTC
  • mfrom: (1.1.10 upstream)
  • Revision ID: james.westby@ubuntu.com-20090311092255-rcoilu538y14if41
Tags: 1.99.3-0ubuntu1
* debian/rules:
  - Added missing dependency libhtml-template-perl 
* debian/mythexport.postinst,mythexport.postrm 
  - Moved configs
* Moved configs in daemon and cgi pages  
* Fixed issue where only the first userjob was updated

Show diffs side-by-side

added added

removed removed

Lines of Context:
usr/share/mythtv/mythexport/deleteFile.cgi
10
10
 
11
11
my $connect = undef;
12
12
my $id = param("id");
 
13
my $file = "/etc/mythtv/mythexport/mythexport.cfg";
13
14
 
14
15
my $cfg = new Config::Simple();
15
 
$cfg->read('/etc/mythtv/mythexport.cfg');
 
16
$cfg->read($file) || die $cfg->error();
16
17
 
17
18
my $dir = $cfg->param("dir");
18
19
$dir =~ s/\/$//;
34
35
$query_handle = $connect->prepare($query);
35
36
$query_handle->execute($id,$file) || die "Unable to query mythexport table";
36
37
 
37
 
# find the old recordings
38
 
#my $query = "SELECT file FROM mythexport where id=?";
39
 
#my $query_handle = $connect->prepare($query);
40
 
#$query_handle->execute($id) || die "Unable to query mythexport table";
41
 
 
42
 
#unlink
43
 
#my $file = $query_handle->fetchrow_array();
44
 
#my $location = "$dir\/$file";
45
 
#unlink($location) || die "Unable to find file";
46
 
 
47
 
#$query = "delete from mythexport where id=?";
48
 
#$query_handle = $connect->prepare($query);
49
 
#$query_handle->execute($id) || die "Unable to delete from database";
50
 
 
51
 
#my $content = "$location\n$id";
52
 
 
53
38
my $content = "DONE";
54
39
 
55
40
$template->param(CONTENT => $content);