Друпальское: img_assist to img src

#!/usr/bin/perl
use strict;
use DBI;
my $dbname = shift @ARGV or die;
my $db = DBI->connect("dbi:Pg:dbname=$dbname") or die;
$db->{AutoCommit}=0;
$db->do("SET client_encoding=\'WIN\'") or die;

my $sel = $db->prepare("select filepath from files f inner join image i on i.fid=f.fid  where i.image_size='_original' and i.nid=?");

sub ia2html
{
  my $str = shift or return "";
  $str=~s/^\[//;
  $str=~s/\]$//;
  my @fields = split(/\|/,$str);
  my $hash={};
  foreach my $f (@fields)
  {
        my @a=split(/\=/,$f,2);
        $hash->{$a[0]} = $a[1];
  }
  return "" unless($hash->{nid});
  return "" unless $sel->execute($hash->{nid});
  my @fp=$sel->fetchrow_array;
  my $ret = "<img src=\"/$fp[0]\" ";
  my $lb=""; my $le="";
  $ret .= "width=\"$hash->{width}\" " if $hash->{width};
  $ret .= "height=\"$hash->{height}\" " if $hash->{height};
  $ret .= "alt=\"$hash->{desc}\" " if $hash->{desc};
  $ret .= "title=\"$hash->{title}\" " if $hash->{title};
  if($hash->{link}=~/(popup|node)/)
   {
     my $tg= ($hash->{link}=~/(popup)/)?" _target=\"_blank\" " : "";
     $lb = "<a href=\"/$fp[0]\" $tg>";
     $le="</a>";
   }
  $ret .=" class=\"inline inline-$hash->{align}\" " if $hash->{align};
  $ret .= ">";
  return $lb.$ret.$le;
}

my $selnodes = $db->prepare("select nid,teaser,body from node_revisions where body like '%[img_a%' or teaser like '%[img_a%'");
my $upnodes = $db->prepare("update node_revisions set teaser=?,body=? where nid=?");
$selnodes->execute;
while(my $d = $selnodes->fetchrow_hashref)
{
  $d->{teaser}=~s/(\]+\])/ia2html($1)/ge;
  $d->{body}=~s/(\]+\])/ia2html($1)/ge;
  $upnodes->execute($d->{teaser},$d->{body},$d->{nid});  
}
$selnodes->finish;
$upnodes->finish;
$sel->finish;
$db->commit;
$db->disconnect;