- Timestamp:
- Jun 9, 2006, 12:45:56 AM (19 years ago)
- Location:
- branches/2.0.8/tools
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2.0.8/tools/build2qemu
r602 r656 80 80 sleep 300 81 81 fi 82 ssh -p $sp root@localhost "perl -pi -e 's|/home/bruno|/users/bruno|' /etc/passwd /home/bruno/.rpmmacros ; mv /home /users; rpm -e tetex tetex-latex passivetex jadetex texinfo xmltex linuxdoc-tools xmlto docbook-utils-pdf subversion tetex-context tetex-dvips docbook-utils"83 82 rdate=`date "+%m%d%H%M"` 84 83 ssh -p $sp root@localhost "date $rdate" -
branches/2.0.8/tools/distro-env
r597 r656 124 124 fi 125 125 mkdir -p ${TOPBUILDDIR}/{RPMS,SRPMS,SPECS,SOURCES,BUILD} 126 elif [ _"$dtype" = _"deb" ]; then 127 export TOPBUILDDIR=${BASE}/build 128 mkdir -p ${TOPBUILDDIR} 126 129 elif [ _"$dtype" = _"ebuild" ]; then 127 130 export TOPBUILDDIR=${BASE}/build -
branches/2.0.8/tools/mkchangelog.pl
r646 r656 10 10 use strict; 11 11 use Date::Manip; 12 use File::Basename; 13 use English; 12 14 13 15 my $log = ""; … … 16 18 my $pkg2; 17 19 my $outfile = $ARGV[2]; 18 my $TOOLHOME = $ENV{TOOLHOME};19 20 my $chglog = ""; 20 21 my $ndate = ""; 22 my $n2date = ""; 21 23 my $tmp = ""; 22 24 my $ver = ""; … … 30 32 (not (defined $pkg)) || ($pkg eq "") || 31 33 (not (defined $outfile)) || ($outfile eq "")); 34 35 my $TOOLHOME; 36 $tmp = dirname($PROGRAM_NAME); 37 if ($tmp =~ /^\//) { 38 $TOOLHOME = $tmp; 39 } 40 else { 41 $TOOLHOME = "$ENV{PWD}/$tmp"; 42 } 32 43 33 44 die "TOOLHOME doesn't exist" if (not (defined $TOOLHOME)); … … 54 65 $tmp = <INPUT>; 55 66 $tmp = <INPUT>; 67 if ($dtype eq "announce") { 68 print OUTPUT $tmp; 69 } 56 70 $tmp = <INPUT>; 71 if ($dtype eq "announce") { 72 print OUTPUT $tmp; 73 } 57 74 58 75 # Handle each block separated by newline … … 63 80 #print "**$date**\n"; 64 81 $ndate = UnixDate($date,"%a", "%b", "%d", "%Y"); 82 $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z"); 65 83 #print "**$ndate**\n"; 66 84 if ($dtype eq "rpm") { 67 85 print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver\n"; 68 86 print OUTPUT "- Updated to $ver\n"; 87 } 88 if ($dtype eq "deb") { 89 print OUTPUT "$pkg ($ver) unstable; urgency=low\n"; 90 print OUTPUT "\n"; 91 } 69 92 70 $tmp = <INPUT>; 71 while ($tmp !~ /^$/) { 72 print OUTPUT $tmp; 73 last if (eof(INPUT)); 74 $tmp = <INPUT>; 93 $tmp = <INPUT>; 94 while ($tmp !~ /^$/) { 95 print OUTPUT " * $tmp"; 96 last if (eof(INPUT)); 97 $tmp = <INPUT>; 98 } 99 print OUTPUT "\n"; 100 101 if ($dtype eq "deb") { 102 print OUTPUT " -- Bruno Cornec <bruno\@mondorescue.org> $n2date\n\n"; 103 print OUTPUT "\n"; 75 104 } 76 print OUTPUT "\n"; 77 78 }105 106 last if (eof(INPUT)); 107 last if ($dtype eq "announce"); 79 108 } 80 109 close(OUTPUT);
Note:
See TracChangeset
for help on using the changeset viewer.