installer/data/mysql/atomicupdate/bug_34584_remove_twitter.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "34584",
   5     description => "Update SocialNetworks system preference to Choice",
   6     up          => sub {
   7         my ($args) = @_;
   8         my ( $dbh, $out ) = @$args{qw(dbh out)};
   9
  10         # Do you stuffs here
  11         $dbh->do(
  12             q{UPDATE systempreferences SET type = "Choice", options = "facebook|linkedin|email" WHERE variable = "SocialNetworks"}
  13         );
  14
  15         say $out "Updated system preference 'SocialNetworks'";
  16     },
  17 };