You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
617 B
29 lines
617 B
# |
|
# Generates a script that can be used to duplicate a dpkg-based system. |
|
# |
|
# Authors: |
|
# Daniel Bolton <danielbarrettbolton@gmail.com> |
|
# Sorin Ionescu <sorin.ionescu@gmail.com> |
|
# |
|
|
|
# function deb-clone { |
|
|
|
local clone_script="${0}.sh" |
|
local package_list=$( |
|
perl \ |
|
-m 'AptPkg::Cache' \ |
|
-e ' |
|
$c=AptPkg::Cache->new; |
|
for (keys %$c) { |
|
push @a, $_ if $c->{$_}->{'CurrentState'} eq 'Installed'; |
|
} |
|
print "$_ " for sort @a; |
|
' |
|
) |
|
|
|
rm "$clone_script" |
|
print '#!/bin/sh\n' > "$clone_script" |
|
print "aptitude install ${package_list}\n" >> "$clone_script" |
|
chmod +x "$clone_script" |
|
|
|
# }
|
|
|