9 lines
337 B
9 lines
337 B
# Create a simple script that can be used to 'duplicate' a system. |
|
print '#!/bin/sh'"\n" > apt-copy.sh |
|
|
|
list=$(perl -m'AptPkg::Cache' -e '$c=AptPkg::Cache->new; for (keys %$c){ push @a, $_ if $c->{$_}->{'CurrentState'} eq 'Installed';} print "$_ " for sort @a;') |
|
|
|
print 'aptitude install '"$list\n" >> apt-copy.sh |
|
|
|
chmod +x apt-copy.sh |
|
|
|
|