load-change_pw.pl

#!/usr/bin/perl
#
use strict;
use warnings;
use DBD::Pg;

my $dbh = DBI->connect("dbi:Pg:dbname=cms3",'cms3','',{AutoCommit=>1})or die $!;
my (@row,$sth,$query);
my $t     = time;

my $body;
{
  local $/ = undef;
  open(FILE,'<','api-change-pw.txt') or die $!;
  $body = <FILE>;
  close FILE;
}
$sth=$dbh->prepare("SELECT id from valid_domains where domain=?")or die $!;
$sth->execute('ALL');
@row=$sth->fetchrow_array;
my $domain_id=$row[0];

$sth=$dbh->prepare("SELECT url,active,id FROM pages where url=?")or die $!;
$sth->execute('/api/change_pw');
@row=$sth->fetchrow_array;
if ($#row <0)
  {
  $sth = $dbh->do( "INSERT INTO pages (body,url,domain_id,creation_time,userid,remote_addr,active,version_num) values ('$body','/api/change_pw','$domain_id','$t',1,'72.201.204.99','TRUE',1)") or die $!;
  print "created /api/change_pw\n";
  }
else
  {
  $sth=$dbh->do("UPDATE pages set body='$body' where url='/api/change_pw' and domain_id='$domain_id' ") or die $!;
  print "updated /api/change_pw\n";
  }