Help for this page

Select Code to Download


  1. or download this
    my ($type,@tokens)=split(/\~/,$line);

...
{
   ...
}
  2. or download this
    
# %statements is an array of prepared SQL statement objects ready to h
+ave values plugged in
...
 "AlertError"=>[0,1,2,3,4,5],
 "SendCleared"=>[...
);
  3. or download this
    
while ($line=...)
...
  $statements{$type}->execute(@tokens[@{$columns{$type}}]);
}