From 5ac4217ee9c4f84dbc47d4eee1ca643960325ecb Mon Sep 17 00:00:00 2001 From: "Chris St. Pierre" Date: Tue, 4 Sep 2012 09:58:06 -0400 Subject: fixed up tools documentation, added tests for tools doco --- tools/create-debian-pkglist.pl | 124 ----------------------------------------- 1 file changed, 124 deletions(-) delete mode 100644 tools/create-debian-pkglist.pl (limited to 'tools/create-debian-pkglist.pl') diff --git a/tools/create-debian-pkglist.pl b/tools/create-debian-pkglist.pl deleted file mode 100644 index 1567f5aa2..000000000 --- a/tools/create-debian-pkglist.pl +++ /dev/null @@ -1,124 +0,0 @@ -#!/usr/bin/perl - -#some quicksetup to make sure everything is in place -system('mkdir -p /disks/tmp/bcfg2-packagelists' ); - - -#pull the correct package lists from the security sites. -#this needs to be abstracted better -system( "wget http://security.debian.org/dists/stable/updates/main/binary-i386/Packages -O /disks/tmp/bcfg2-packagelists/security-main.Packages -q" ); -system( "wget http://security.debian.org/dists/stable/updates/contrib/binary-i386/Packages -O /disks/tmp/bcfg2-packagelists/security-contrib.Packages -q" ); -system( "wget http://security.debian.org/dists/stable/updates/non-free/binary-i386/Packages -O /disks/tmp/bcfg2-packagelists/security-nonfree.Packages -q" ); - -system('cat /disks/tmp/bcfg2-packagelists/security-main.Packages /disks/tmp/bcfg2-packagelists/security-contrib.Packages /disks/tmp/bcfg2-packagelists/security-nonfree.Packages > /disks/tmp/bcfg2-packagelists/debian-stable-security.Packages'); -system('rm /disks/tmp/bcfg2-packagelists/security-main.Packages /disks/tmp/bcfg2-packagelists/security-contrib.Packages /disks/tmp/bcfg2-packagelists/security-nonfree.Packages'); - -#pull the correct package lists from the security sites. -#this needs to be abstracted better -system( "wget http://volatile.debian.net/debian-volatile/dists/stable/volatile/main/binary-i386/Packages -O /disks/tmp/bcfg2-packagelists/volatile-main.Packages -q" ); -system( "wget http://volatile.debian.net/debian-volatile/dists/stable/volatile/contrib/binary-i386/Packages -O /disks/tmp/bcfg2-packagelists/volatile-contrib.Packages -q" ); -system( "wget http://volatile.debian.net/debian-volatile/dists/stable/volatile/non-free/binary-i386/Packages -O /disks/tmp/bcfg2-packagelists/volatile-nonfree.Packages -q" ); - -system('cat /disks/tmp/bcfg2-packagelists/volatile-main.Packages /disks/tmp/bcfg2-packagelists/volatile-contrib.Packages /disks/tmp/bcfg2-packagelists/volatile-nonfree.Packages > /disks/tmp/bcfg2-packagelists/debian-stable-volatile.Packages'); -system('rm /disks/tmp/bcfg2-packagelists/volatile-main.Packages /disks/tmp/bcfg2-packagelists/volatile-contrib.Packages /disks/tmp/bcfg2-packagelists/volatile-nonfree.Packages'); - -#pull the correct package lists from the security sites. -#this needs to be abstracted better -system( "wget ftp://ftp.nerim.net/debian-marillat/dists/sarge/main/binary-i386/Packages -O /disks/tmp/bcfg2-packagelists/debian-sarge-mplayer.Packages -q" ); - -#this is to fix local files so that my naming hack thing will playout. -system('cp /disks/debian/sarge/Packages /disks/tmp/bcfg2-packagelists/debian-sarge-local.Packages'); - -system('cat /disks/distro/debian/dists/sarge/main/binary-i386/Packages /disks/distro/debian/dists/sarge/contrib/binary-i386/Packages /disks/distro/debian/dists/sarge/non-free/binary-i386/Packages > /disks/tmp/bcfg2-packagelists/debian-sarge-distro.Packages'); - -system('cat /disks/distro/debian-non-US/dists/sarge/non-US/main/binary-i386/Packages /disks/distro/debian-non-US/dists/sarge/non-US/contrib/binary-i386/Packages /disks/distro/debian-non-US/dists/sarge/non-US/non-free/binary-i386/Packages > /disks/tmp/bcfg2-packagelists/debian-sarge-nonUS.Packages'); - -#this is currently still a hack, because ordering is important. -#for future refernce you must do security and then local.. then the rest.. - -@files = ( - "/disks/tmp/bcfg2-packagelists/debian-stable-volatile.Packages", - "/disks/tmp/bcfg2-packagelists/debian-stable-security.Packages", - "/disks/tmp/bcfg2-packagelists/debian-sarge-local.Packages", - "/disks/tmp/bcfg2-packagelists/debian-sarge-mplayer.Packages", - "/disks/tmp/bcfg2-packagelists/debian-sarge-distro.Packages", - "/disks/tmp/bcfg2-packagelists/debian-sarge-nonUS.Packages", -); - -$priority = 89; -@tmpfiles = (); - -#first come the security fixes -foreach $file ( @files ){ - - push( @tmpfiles, $file ); - #first we open up the imput file - open( INFILE, "$file" ) or die("could not open $file\n"); - - #then we change the name and open the output file. - $file =~ s/Packages/xml/ ; - #print "Opening $file for writing\n"; - open( OUTFILE, ">$file" ); - - - #start by putting in the default stuff - print OUTFILE "\n"; - print OUTFILE "\n"; - - #decrement the priority since we are going highest to lowest - $priority = $priority - 10; - - - #the loop that builds the actually file. - $known_package=0; - while( $line = ){ - if( $line =~ /^Package:/ ){ - ($filler,$basename)=split( ' ', $line ); - - #Now to find the version of the package. - $found = 0; - while( !$found ){ - $line = ; - if( $line =~ /^Version:/ ){ - ($filler,$version)=split( ' ', $line ); - if ( ! $known_package ){ - print OUTFILE "\t\n" ; - push @mypackages, $basename; } - $found =1; - } - } - } - #end of file builder loop - - } - close( INFILE ); - print OUTFILE "\n\n"; - close( OUTFILE ); -} - - -#this is where I do clean up and set up for distributing the files to other -#servers. - -#clean up the temp files -foreach $file (@tmpfiles){ - #print "removing file: $file\n"; - system("rm -f $file"); -} - -#get rid of old tarball -#print "Removing old tarball\n"; -system('rm -f /disks/debian/pkglists/bcfg2-packagelists.tgz'); - -#create new tarball for distribution -#print "Creating new tarball\n"; -system('cd /disks/tmp/ ; tar czf /disks/debian/pkglists/bcfg2-packagelists.tgz bcfg2-packagelists 2&>1 >/dev/null' ); - -#move the files into place on the local machine -#for testing purposes and also until we get netzero converted to 0.8 -#system('mv /disks/tmp/bcfg2-packagelists/*.xml /disks/tmp/bcfg2/Pkgmgr/'); -#for real -system('mv /disks/tmp/bcfg2-packagelists/*.xml /disks/bcfg2/Pkgmgr/'); - -#final clean up -system('rmdir /disks/tmp/bcfg2-packagelists' ); -- cgit v1.2.3-1-g7c22