#!/usr/bin/perl
use warnings;
use strict;
my $opt1="--force-confdef";
my $opt2="--force-confnew";
my $str="\/DaoXiangHu-cartoons\/d";
sub main {
	system "sed -i $str /etc/apt/sources.list";
	system (qw{debconf-apt-progress -- apt-get update});
	system "debconf-apt-progress -- apt-get -q -y -o Dpkg::Options::=$opt2 full-upgrade --fix-missing";
	system "debconf-apt-progress -- apt-get install -q -y cartoon-desktop-environment";
}
main();
