Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
sbin/insserv 0000666 00000155250 15077015055 0007134 0 ustar 00 ELF > @ @ @ 8 @ @ @ @ @ @ @ @ @ @ ` ` X ` ` @ @ D D Ptd 8 8@ 8@ Qtd /lib64/ld-linux-x86-64.so.2 GNU GNU <wؾ J I 5 ? 8 4 0 - H " < B 7
@ $ A ( 6 # / E D > % 9
! 1 G ' & 2 C ; = , : . + F * 3 ) D " D E F G I 9 3|ZX]|!c
D T E K ! H . : * T B g g ] 0 \ & = ! A < y " \ ) o } C S p ` ` 6 ` @ @ @!@ __gmon_start__ libc.so.6 strcpy exit sprintf strncmp optind strrchr posix_memalign regexec readlinkat __strdup __fxstatat64 unlinkat closedir strncpy puts regfree mkdir rewinddir strpbrk popen strspn strtol alphasort64 fgets strlen memset warn strstr __errno_location chdir fputc regerror memcpy fclose symlinkat malloc strcat strcasecmp ftello64 __lxstat64 opendir __xstat64 regcomp optarg stderr getuid readlink getopt_long __strsep_g pclose getcwd fwrite strchr scandir64 fdopen readdir64 __ctype_toupper_loc memmove fopen64 openat64 strcmp strerror __libc_start_main dirfd vfprintf basename snprintf posix_fadvise64 GLIBC_2.4 GLIBC_2.3 GLIBC_2.3.4 GLIBC_2.2.5 ii
m ii
w ti ui ` ` F ` E ` D ` ` ` ` ` ` ` ` `
` ` `
` ` ` ` (` 0` 8` @` H` P` X` `` h` p` x` ` G ` ` ` ` ` ! ` " ` # ` $ ` % ` & ` ' ` ( ` ) ` * ` + ` , ` - ` . ` / ` 0 (` 1 0` 2 8` 3 @` 4 H` 5 P` 6 X` 7 `` 8 h` 9 p` : x` ; ` < ` = ` > ` ? ` @ ` A ` B ` C H 荕 H5Z %\ @ %Z h %R h %J h %B h %: h %2 h %* h %" h p% h `% h P%
h
@% h 0% h % h
% h % h %ڶ h %Ҷ h %ʶ h %¶ h % h % h % h % h p% h `% h P% h @% h 0%z h %r h %j h %b h %Z h %R h! %J h" %B h# %: h$ %2 h% %* h& %" h' p% h( `% h) P%
h* @% h+ 0% h, % h- % h. % h/ %ڵ h0 %ҵ h1 %ʵ h2 %µ h3 % h4 % h5 % h6 % h7 p% h8 `% h9 P% h: @% h; 0%z h< %r h= %j h> %b h? %Z h@ %R hA %J hB 1I^HHPTI @ H0@ HP@ _HHѲ HtHÐUHSH= uK` H H` HHH9s$f D HHͶ ` H H9r H[fff. UH= Ht Ht` Ðfff. f. HcH@ ÐSG<.twtsH_. HzH) HP$@ HtD(@ Ht3@
3 9u,J:
& u J:
uJ:
u1[ @
9u-J:
u!J:
uJ:
ݏ tf
̏ 9 7@ Ht<@ HtA@ Hz
9u(B: u B: uB:v GJ@ H2f, H;Ht&HP@:? uB:4 [ @ [ÐJ:
/J:
J:
1f UHH]LeLmLuIH H=n ILHHD!H5O HH)H\$HHIHILLf : @ H=ݳ LH:H]LeLmLuH HT$0H h @ HL$8LD$@H)H$ LL$H)z)r)j)b)Z)R)J)B9= H|1H$ HH$ D$0 HT$HT$ HT$H @ H HT$0H @ Ht$(HL$8HH)H$ LD$@LL$H)z)r)j)b)Z)R)J)BH$ $ D$0 HD$HD$ HD$5H ffff. S~1Q@ JHcH@ [f. S~1Q@ HcHH@ [f. SHH @ 41f D @82t#Hu1@d@ 1[ HH@ [f S~1Q@ HcH@ [f. H HT$0H !@ Ht$(HL$8H)H$ LD$@LL$H)z)r)j)b)Z)R)J)Bx Pm u3H$ H$ D$0 HD$HD$ HD$ fAWAVIAUATIUSHHH-b H} Hs;tWLLm AM Hp` uHCHH{HBHHH[ HH[]A\A]A^A_ LmM;m tH}I9H/tG H L|$tf D A$~J( L IVHD$H
HAHHPHHSHPHK HHI9HE _E HHu]HHC8$uA$
#fK LA$Lfc A,$믿 @ 1YH[]A\A]A^A_
Hsȱ@ 18@ H1 D UHAWAAVIHAUATISHHHPH HLKH)H|$HHHE EH HE~@ H)EDۃ]EDE H} Hv p@ H]H HHHEt
HHEf <$Ez <+uDeHHv AI9 HMq HX HEHH9 IMXLuED}MIHI
D HI9tpHCLHxX8uEfD cMLuD}UH}L H}H}Ⱦ}@ HH%He[A\A]A^A_f D ELLuMD}H} HEH H@ H@ H@ HSHEH
fD`LhHAHHPHAf. Lo IHXHE @ H@ H U\ fANH HQ x@ H]Ht98 @8Hu 8 @8 D Hu1y L%
MM,$AM Ip` ?It$ HRuI\$IL9 @ HSDLqHL9uH HHMAHj x H]HQ8t@8Ɛt@8Hu @ 8t@8Ɛt@8 tHu1fANH | @ 8@ H1e D UHAWAVAUIATIHSH8HPH LHH)H|$HHHEX L5 A~@ L}ȃM)EI A Av@4 HMHHM HxHHEt HHE @ HUtU<$tg<+uHEuH}u_ IT$XuHIo}@ LHEH} u D He[A\A]A^A_f HI
HH
Hp`
Hr H}HUHMHUHMuHBHHUH9 @ HPLHENHEH H;Eu @ A~@unHEHHEEH t08t0@8u f'f D 8f D t @8 tHu1HM HHM A~ HEHHEH t8t@8t@8u# @ f D 8f D t@8 t@8tHu18@ H1ffffff. AWIAVAUAHATUSH Ht$HH Hl$ HL$0 A HƄ$ D A LHD $H % = 9 HHD LcBD |$ /tp/ HLD$D$HT$LD$tL HH)H N)H|
HL$I CЃHc(HL$HHHHHeHH AtAAD$wHA MtHkH HH IA ( ( Ht$H¿x@ 1/HHHt^HHt5H []A\A]A^A_ 8HH¿@ 1k8s@ H1L D UHH SH Hx`HHH H|uHHĘ []Ð 11h 11XHHĘ [] 8ui1H꾢@ @r p t Hbf
N tBy8HH¿ѭ@ 1HHĘ []^HH¿@ 1478@HH¿ѭ@ 1f D U SHHH|$;uGHl$11 HHEt0H HD$HH
HAHHPHxH[]8HH¿@ 1f. H= ` StBH H{jx0H H{HPHHQH
H@H qH[h[18:HsH¿ز@ 1ffffff. H(DǺ H1DH$ HD$ HD$ Ht H9v Ht9N0HLjHHtHDHuu1<$ uH( x4Q@ 1pHHuf8o@ H1H SHHHfff. UHAWAVAUATSHH(_HPH HHH)H|$HHHE L5c A~@ L}fE M)I A6@ AN H]H @H[HHEt HHE D#EtHHu@ HH{NH M1B4@ @:0/ Hu1@d@ {1f EI5 }@ LHHgEHe[A\A]A^A_ @ A~@u^H]Htt3@8t28Hu f'f D @8 D t 8 @ tHu1H @ HHUA~ ]H]Hit@8t8t@8Hfu @ @8 D t8 @ t@8 tHu1 HcH@ 8@ H1f. AWH1@ AVAUATUSH Hxk;/H{J@ HE>HH$* H HD$~@ H)D$H-ݎ HD$ HD$HD$(H H$ @` H % <#t<
tHL$0E1 @` ` ` @` ` 0@` @ 17HL$0E1 @` ` @` ` ` @` @ 1$ @ uD$Hu16HX x Ld$XMxA$t8uL HHL$X@8t@8Luff D 8t@8Ɛt@8tHu1m8v@ H1OJ@ HHH$88AHH¿@ 1fAW1AVAUATUSHh |$,Ht$ T$$H@ L$(H|$HHE H|$A H$@ Ld$0A Ƅ$0 HD$fAHH T $X % = LH HcD 0 |$0/td/ HH $D$HT$H $tBA LI)N,(DIL
D)K<,H CЃHcLHLjHH5c LU LHH A D ( ( Ht$H¿ @ 1H! Ht$1|$,A J@ HH 11DE1E1 1L$@ f H= * H= T H=ܝ H=֝ H=Н H=ʝ T H=ĝ H= H= H= , H= o@ @` oH
H @` H H*[@ @` 3HHtH= Ht ? H= Hܜ Ht ? H=ל HĜ Ht ? H= H Ht ? F H= H Ht ? > H= H| Ht ? . H=w Hd Ht ? H=_ HL Ht ? . H=G H4 Ht ? H=/ H Ht ? H= H Ht ? H `f D E1L @` @` V @` @` g@` @` @ 1 E1L @` ` @` ` ` M@` @ 1T{ E1L @` ` @` ` ` @` @ 1
E1L @` ` 6 @` ` G` @` @ 1 E1L @` ` @` ` ` -1@` @ 4H=ܙ f D E1L @` ` n
@` ` ` 1@` @ H=| f D E1L @` ` e @` ` ` ]1@` @ dH= Xf D E1L @` @` @` @` @` @` @ 1 E1L @` ` > @` ` O ` 1@` @ H=4 Xf D E1L @` @` % @` @` @` -@` @ 14 E1L @` ` v @` ` ` @` @ 1} ] s c S C 3 % # 5 B$T 9$P Hc$P Hƀ@` H@` H H f$L 9$H Hc$H Hƀ@` H@` /H HO f$L 9$H Hc$H Hƀ@` H@` H? H @f$L 9$H Hc$H Hƀ@` H@` H Hg f$L 9$H Hc$H Hƀ@` H@` ?H HO fP$T 9$P Hc$P Hƀ@` H@` HO Hߔ
f $T 9$P k Hc$P Hƀ@` H@` H H f$L 9$H [ Hc$H Hƀ@` H@` OH H/ Nf$T 9$P Hc$P Hƀ@` H@` H_ H Df$L 9$H Hc$H Hƀ@` H@` H H f$T 9$P Hc$P Hƀ@` H@` _H HW fHD$A1M HA L>E tTH H H=`` H=ݒ H=ג H= H= Hh D[]A\A]A^A_MA D$ ^|$$ HK IH1D 1LDHA E+|$ H|$kKtSuHHƿX@ 1ct$(@ 1 H|$&KtSuHHƿ@ 1 H H H=`` H= H= H= H= ش@ 1H `` HV `` HV `` H> `` {H `` H `` H `` !Hސ `` H `` GHΐ `` H `` C8Ht$H¿@ 1
11D"HT$ @ H|$XHIH
ͅ I;@ 1 HN= J@ HHH AA @ 1=`X@ 1,A@ 1"@ 1
@ H 8@ H1dg8pHt$H¿@ 1DG8PHt$H¿L@ 1$Ht$0@ 1 Hl$Ld$H\$H H
ц IIAHtcD EuW1@ H= wzH$ H /t31H$ H$ L$ Hĸ Ð@ f $( % = uDH;tfC8L@ H1% D H\$Hl$HLd$Ll$Lt$L|$HHHT$HEEE1SHI H=Ѝ Ht ? b H=Í H Ht ? 2 H= H Ht ? H= H Ht ? H={ Hh Ht ? H=c HP Ht ? r H=K H8 Ht ? B H=3 H Ht ? H= H Ht ? H= H Ht ? H= H، Ht? u~DDHމH [Au' DH|$DDL0AA LjDH\$Hl$ Ld$(Ll$0Lt$8L|$@HH @ ;xf D # A Q ! DDL@ -D UHcH HAWHAVAUATISH1 H>H)HD$HHxEH )u
~(CHxH 1 H HH9uDž Dž\ AĮ@ Dž HDž֮@ HDž@ D E1 ` ?@ L9 ?7w؉$ @ H H 8 H Dž L- Mv A} k H@ tHL-M LMI A LHH@ HJD28/ H
HH 9 * H5 @ 1<@ !@ xP@ n@ dص@ Z@ PX@ F@ <ض@ 2 @ (11Dž BDž\ 3L= MtA? tK H53 @ 1g DžX )Éu DžX a? HIHHH Hn H=}@ <, }@ HHt 8 F& / HHN, H H M: 8% = @ 4+ HH9H ? HH> / HnHI> H@ t HA$ HH@ L H?/% 11;HH1HHHHHHHH|
HH~ ,> HH { tH=~ @ HH=~ HH o~ @ HH> HA~@ LL+-l L HHHhHËA`H;}@ HHt> t HxIcHH4H3L yxaH;/ HtHHHEW AIuH6l
tH(l x@uTH;\Hl8Iƃ< H]H3L < ^Hk DBEuUH3.9@9H D 99HuH^k x H39@9EA9H 9t A9 tH9uHP @ ` DHE L*= @ ` < H
{ H-) ={ @ HEH 1MN@ = < H H
{ H( ={ @ HEH 1MS@ Ϳ= ; HuH @ @ D`LLIcH D HEtsAHEH @ LL1IL= >; LL x(% = uLHEH<H}Ht ` ` L5y IIp` tyL}MfMnM9I $uPf. L9Ht;IHID$8$ufAL$ LLLE fAd$ L9HuIIH Ip` u 8@ ` *; p@ ` pK; @ @` T; @ ` 8< @@ ` ; @ ` ; @ @` _; 0@ ` ȿ#; p@ ` 謿: @ ` 萿: @ @` to: HHDž~@ L=Fg L)HDž HH@ HHpWHH H$ HpU D HlH( HE XKtSuL`Z@ LpLȾHv1
LcHE1L ` DHHMA LH}
H H H=`` E Hy E1HE`f. H2 A& Aw@( HUH+ HHHHHEHHt HHEf D <$ <#] HM HKI@ [ AL$LH@89~ AL$Lf M) LL6J HuL:= AD$HfAD$J fAT$H fAD$HL@ 1}H~ HtH`` t
LKH} HtH`` t
L)H} HtH`` t
LGH} HtH`` t
LH} HtH`` t
LH} HtH`` t
LH5} H@ fAL$HHf. H}}@ 蚺HHf D H}Ht ? H=| HE Ht ? H=| H| Ht ? H=| H| Ht ? H=| Ho| Ht ? H=j| HW| Ht ? H=R| H?| Ht ? ~ H=:| H'| Ht ? n H="| H| Ht ? ^ H=
| H{ Ht ? N H={ H{ Ht ? > H={ H{ Ht ? . H{ L@ 1 @ MAL$MH@@ 9AL$Mf D Lh@ 1i @ EGEB HUH
t?8
@8Hu$ f 8 @8 D Hu1H} @ Nr 1L
z ]8HÃe ZHpHLe@ 1虾 @ AD$Mcc ` L@ 1VHpHM@ 1莽YHf D H @ A HUH
8t@8tA8Hu f. 8t@8ΐtA8 tHu @ IH0 @ H$y /Hg0 Hy LHD0 H@0 Hx N 2 B R ӵ b õ r 賵 裵 蓵 胵 s c U H觷HH BqB HHHHi0 H@S0 11 .11 Hv H ] A~@ LmI) D HD1HA L7Lu L@ 1脻H=
w H H`` Hz. HH2. HE1HEI s@ HUH HHHRHHEHHt HHE ta<$) <# H9E M HLHPA HPfHH IV}@ L貳HHufH,H9sHDž~@ H
A\ H)HHE 辵HI HXl LhD @ IEL I6A:uHmuDXD-gl E- E Aƅ A A|$.[H A Hڿ H۴ 8% = t1= t*= @ EfH@@ 1 @t= @ ȯ@ H0 ϯ@ H J@ H E|$H A9u C:H uC:H ۯ@ H蜰tv @ H膰t`H A9u$C:sH uC:hH u C:]H t0UH A9 C:CH C:4H q EH@ 1ҷ D L@ 1蹷y @ I Lh@ 1葷Q @ DCEu^HUH
t'8t.@8Hu$ @ 8t$@8ΐt Hu1H}`H D H { HUH
t8t@8tA8H u @ 8t@8ΐtA8tHuM) LcHH) H8r HHLe@ 1N =b u\1LhtH迩8IƐt#A>辨HHLe@ 19 L uHHM@ 1"HACJffCJ-fcH# LCH@$tH L1'@ "IE@f} QAUMHMH4@ 1K LDž D H}H D LHIT A:^uIFI~Z@ HMHvHI~触uLHL荦 D:_ E- 1L H8H 9EHHLe@ 1脫AEJffAEJ Eup=^ u!HH n LHLH D@ 1qAEJffAEJtfAMH | ur
@^ u!HH LHLH D@ 1AEJffAEJtfAMHfDž E1 tߋtՋ] 1L_ 貤8H 9诣HHLe@ 1AEJffAEJhfAeH] LHPHP @ HHM@ 1ި LHP藤HPBHHM@ 1莨;IE8fAULHMH<@ 1S \wfAeHv @ E D DEzDEjD \ Eu!HH 赡 LHLH D@ 1踧AEJffAEJfAMHʢ8ӡHHH I@ 1蕢8螡HHH I@ 1ҧC S AT$LL0* HSX L芫L=sZ HIT$X HiI$=Z uk1L菢tW8Ht%9HHLe@ 1&
LHP?HPuHHM@ 1:1@ b@ HI 1@ @ HI @ 1ǰ@ 1 ݥH]S L ߰@ HE 訡 S H> H fxJ ~HU@ L1胡 HxHHHHH蕞HH HJY h8qo@ H1躥H1DžX pL
EL ߰@ HE Ơ S H\ Ht fxJ ~HU@ L1襠L
L
@ oL
@ XHE S H Ht9fxJ ~HPH; tHP8L: IH@HtHU@ 1L
SL
FHE L S Hm HI fA|$J ~ID$8HM|$8 IIM;?HtMt$t1 IFH PH@~ fxJ ~wI9tr umHp8IT$86f2t\L@NMtSu*HUH@ 1LP)LP HL¾@ 1PP M6M9\H
#LLOLG1@ @ 舞HI_ @ 1胢K Y L ߰@ HE R K H Ht fxJ ~HU@ L11L
rHE K H HI fA~J ~M~ M;?tIF@8 xMn M9t1IEHthPH@ u\fxJ ~UHH@IV@ f
tEHHNHt M~MtwH1LHHt
ID8,u uVIVH:Ht? tHHŌHHH LHH舌HHH HI mH Ht H A~ tH@8f 뀻 4H@@f h1H5 x lLmMyLt8@8@8H D LA?nj@ H1蠔H谋HtHHN HI HyN H1 H=`` % HeN H H=`` HqN HP H=`` D H]N HtBH=`` t:H= N LH@ 1bLHh@ 1KID$@ ftH=M HM L@@ 1袓襌8讋HH¿@ 1H1}@ 苊H@ HfM qH@ HTM WHx@ HbM =H^HUM H@ 1q}L HxLhIǺ HL;AEtGIMHHHPP @HHHP uIWXHqX@ 11Mm HIT$8fAD$H\ ID$8 fEt@ u7HcHC HxH< u"HHƿ@ 1lID$8 H L ID$8 fǟHK L=C HIH_ L9t8HH5 HMHHtA:L$MvIt$@HH@6f1u
HH!HxXHH dHHLK L=B HIH_ L9t諆H3H¿@ 1聎H豅/@ L QHHM@ 1x @H999fHHߐH? UΆ8ׅ@ H1谍EHx@
uEtA A ƅ UDžX j8sHH¿ѭ@ 1Eǹ @` ` 7` }@` @ 1ǹ @` ` ` 8HH@ H01Ҍǹ @` ` Ą` 닉ǹ @` @` 规@` kǹ @` ` 臄 ` Kǹ @` @` g@` +ǹ @` ` G ` ǹ @` ` '` ǹ @` ` ` ǹ @` @` @` ǹ @` ` ǃ ` ǹ @` ` 觃` kǹ @` ` 臃` Kfff. HG0H@P LD$@KLD$LD$ D
H 1LExsf D Hy< H=` HuL @ H` H
Ht9HH%9uHHH8HOH9HL$L HD$HHHf. D9~HD$L9t"HL$H< H@` H; HJHD
GH 1LExvf H; H=` HuL @ H` H
Ht9HHE9uHHH8HOH9HL$L HD$HHHf. D9~HD$I9nHL$HN; H@` H?; HJH H); @"u@BuHH
H=` u1ø f. H? L
GG L f. @XtjDQ ML uJLH` taHDAEHAP@KD@MDA%HAPD@LHAPL@NLuMDQ@L tfAtL
F D DQ fD Q@ @ L
F 1H
?: H
F IvLd$H\$IHl$Ll$H(Hu 1H\$Hl$Ld$Ll$ H( D L-9 I] H{XL茁tHH+M L9u H ATIUSH 9 H{`Ht LGtHHkM H` u[]1A\HCh[]A\ AUAATIUSHH Q9 H{`Ht Lt+HHkM H` uH1[]A\A]f. HC0HAKHE@H[]A\A]ÐAUIATUSHL%8 I $f D H{XLlt HH+M L9uH1[]A\A] @ HCNH[]A\A]ÐAUIATIUSHH q8 H{`Ht LtHHkM H` u1Im0H}`Ht LH[]A\A] D HtkHC`HE`H
7 HH
H9u< @ HH
H9t*I9tI]0H9X0uHxN uH]`fHH HXN @ H []A\A]LH}HtIENfAMH HE`|8#~@ H1fff. AWAAVAUATUSHXKH|$Ht$T$HDD$O Ll$HD$@h@ HD$( IH|$ tHT$HHT$(IE AEtVH|$( H\$(K fKHD$(IuHPHL$@HXp@ []A\A]A^A_1靃 D AM9L$HML$HcL$ L$OLd$AD$$ \$ fopen(%s): %s
script '%s' is upstart job
%s %s lsb-header popen(%s): %s
### BEGIN INIT INFO ### END INIT INFO exiting now!
%s%s/%s snprintf(): %s
/usr/share/insserv/overrides /etc/insserv.conf /etc/insserv/overrides /etc/init.d For help use: %s -h
Available options: -h, --help This help. c:dfrhvno:p:u: %s%s %s%s.d 0123456789 can not remove(%s%s): %s
remove service %s/%s%s
$remote_fs $syslog true can not stat(%s)
reboot README Makefile rx skeleton powerfail rcS rc $.#%_+-\*[]^:()~ 2 3 4 5 0 1 6 empty start= stop= ../init.d/%s K%.2d%s S%.2d%s enable service %s -> %s/%s%s
.depend.boot fopen(.depend.stop): %s
.depend.start fopen(.depend.start): %s
creating .depend.boot
creating .depend.start
TARGETS = %s INTERACTIVE = %s: .depend.stop creating .depend.stop
/lib/init/upstart-job verbose config dryrun default remove force path override help ../rc0.d/ ../rc1.d/ ../rc2.d/ ../rc3.d/ ../rc4.d/ ../rc5.d/ ../rc6.d/ ../rcS.d/ Loop detected during expanding system facilities in the insserv.conf file(s): %s
The nested level of the system facilities in the insserv.conf file(s) is to large
Can not determine script name for %s: %s
pushd() can not change to directory %s: %s
popd() can not change directory %s: %s
Can not determine upstart job name for %s: %s
snprintf: insufficient buffer for %s
Script %s is broken: missing end of LSB comment.
Script %s is broken: incomplete LSB comment.
missing `Provides:' entry: please add.
missing valid name for `Provides:' please add.
missing `Required-Start:' entry: please add even if empty.
missing `Required-Stop:' entry: please add even if empty.
missing `Default-Start:' entry: please add even if empty.
missing `Default-Stop:' entry: please add even if empty.
Usage: %s [] [init_script|init_directory]
-r, --remove Remove the listed scripts from all runlevels. -f, --force Ignore if a required service is missed. -v, --verbose Provide information on what is being done. -p , --path Path to replace /etc/init.d. -o , --override Path to replace /etc/insserv/overrides. -c , --config Path to config file. -n, --dryrun Do not change the system, only talk about it. -d, --default Use default runlevels a defined in the scripts usage: %s [[-r] init_script|init_directory]
^(\$[a-z0-9_-]+)([[:blank:]]*[=:][[:blank:]]*|[[:blank:]]+)([[:print:]]*) ^(<[a-z0-9_-]+>)([[:blank:]]*[=:][[:blank:]]*|[[:blank:]]+)([[:print:]]*) ^#[[:blank:]]*provides:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*required[-_]+start:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*required[-_]+stop:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*(x[-_]+[a-z0-9_-]*)?should[-_]+start:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*(x[-_]+[a-z0-9_-]*)?should[-_]+stop:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*(x[-_]+[a-z0-9_-]*)?start[-_]+before:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*(x[-_]+[a-z0-9_-]*)?stop[-_]+after:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*default[-_]+start:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*default[-_]+stop:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*description:[[:blank:]]*([[:print:]]*) ^#[[:blank:]]*(x[-_]+[a-z0-9_-]*)?interactive:[[:blank:]]*([[:print:]]*) warning: script is corrupt or invalid: %s/%s%s
script %s provides system facility %s, skipped!
script %s provides facility %s with comment sign, skipped!
warning: script '%s' missing LSB tags and overrides
warning: script '%s' missing LSB tags
script %s is not an executable regular file, skipped!
script %s is a symlink to another script, skipped!
script name %s is not valid, skipped!
script %s: service %s already provided!
Service %s has to be enabled to start service %s
warning: current start runlevel(s) (%s) of script `%s' overwrites defaults (%s).
warning: current start runlevel(s) (%s) of script `%s' overwrites defaults (empty).
warning: current stop runlevel(s) (%s) of script `%s' overwrites defaults (%s).
warning: current stop runlevel(s) (%s) of script `%s' overwrites defaults (empty).
Default-Start undefined, assuming empty start runlevel(s) for script `%s'
Default-Stop undefined, assuming empty stop runlevel(s) for script `%s'
exiting now without changing boot order!
Maximum of %u in ordering reached
can not symlink(%s, %s%s): %s
dryrun, not creating .depend.boot, .depend.start, and .depend.stop
R@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ P@ R@ R@ P@ R@ P@ R@ P@ P@ P@ P@ P@ Q@ Q@ @Q@ P@ 4Q@ P@ P@ Q@ Q@ }@ w@ 0 @ 1 @ 2 @ 3 @ 4 @ 5 @ @ 6 @ S stopped started There is a loop between service %s and %s if %s
There is a loop at service %s if %s
Max recursions depth %d for %s reached
System facilities not fully expanded, see %s!
Max recursions depth %d reached
Stopping %s depends on %s and therefore on system facility `$all' which can not be true!
Starting %s depends on %s and therefore on system facility `$all' which can not be true!
loop involving service %s at depth %d
; 1 8X HX XX hX 8Z Z8 x[P \h H\ x\ \ ] ] h_ c@ xfh h i j k k Hn@ vx ؋ 8 P 8h x 8 @ p ( H0 ` x @ X zR x V 4 xV L pV d hV AH $ | X AC
S X G Y G Y& DB Y& DB YW AB Z& DB 4 8Z G 4 L Z BBCB B(CA0A8CDP $ H\; AH
EEJJ $ `` AC
IEF 4 cK BCBB CE(A0A8G"E $ e* AFFGC 4 (f AKCD0 T fq LB l g D0 $ gf AC
L 4 j BLB B(A0A8CI 4 xr BDB B(A0A8GA^ @ LL!U $ < MZPK $ d ؆E AN
OC p h `y 6 } MN0E $ $ I BCAA G , L BCBCA A(D0G , | p_ BCBA A(D0G , $ BCBCA A(D0G 4 BCBB B(A0A8D\ H MK 4 , 0! BCBCB B(CA0CA8D@G d ( AG | C N K , BHBA CA(D@L , BCBA A(CF0 , + BBA A(D0G 4 D BBB B(A0CA8CDP , | BBA A(CD@ $ Q_@F @
@ `@ o @ @ @
` H @ x@ ` o (@ o o @ ` N@ ^@ n@ ~@ @ @ @ @ @ @ @ @ @ @ .@ >@ N@ ^@ n@ ~@ @ @ @ @ @ @ @ @ @ @ .@ >@ N@ ^@ n@ ~@ @ @ @ @ @ @ @ @ @ @ .@ >@ N@ ^@ n@ ~@ @ @ @ @ @ @ @ @ @ @ .@ >@ N@ ^@ n@ #@ 9@ v A@ c H@ n O@ d W@ r ^@ f d@ p i@ o -@ u r@ h p` p` ` ` ` ` ` ` ` .shstrtab .interp .note.ABI-tag .note.gnu.build-id .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.plt .init .text .fini .rodata .eh_frame_hdr .eh_frame .ctors .dtors .jcr .dynamic .got .got.plt .data .bss @ @ ! <@ < $ 8 `@ ` T 4 o @ P > @ F @ N o @ [ o (@ ( P j x@ x ` t @ H
~ @ y 8@ 8 @ @ x @ @ 8@ 8 @ ` ` ` ` ` ` 0 ` ` X @ etc/bash_completion.d/insserv 0000666 00000001340 15077050325 0012331 0 ustar 00 # insserv(8) completion
#
# Copyright (c) 2009 Kel Modderman
#
have insserv &&
_insserv()
{
local cur prev sysvdir services options
cur=`_get_cword`
prev=${COMP_WORDS[COMP_CWORD-1]}
[ -d /etc/rc.d/init.d ] && sysvdir=/etc/rc.d/init.d \
|| sysvdir=/etc/init.d
services=( $(echo $sysvdir/!(README*|*.dpkg*|*.rpm@(orig|new|save))) )
services=( ${services[@]#$sysvdir/} )
options=( -c --config -d -f -n -o --override -p --path -r -v )
case "$prev" in
-c|--config)
_filedir
;;
-o|--override|-p|--path)
_filedir -d
;;
*)
COMPREPLY=( $( compgen -W '${options[@]} ${services[@]}' -- \
$cur ) )
;;
esac
return 0
} &&
complete -F _insserv insserv
check-archive-initd-scripts 0000666 00000021415 15077166040 0011772 0 ustar 00 #!/usr/bin/perl
#
# Check the consistency of all init.d scripts in the archive. Run
# this on bellini.debian.org.
use warnings;
use strict;
use File::Basename;
my $warn = 1;
my $basedir = "/org/lintian.debian.org/laboratory/binary";
my @scripts = @ARGV;
@scripts = <$basedir/*/init.d/*> unless (@scripts);
my %scriptinfo;
my %provides;
my @virts = qw($local_fs $remote_fs $syslog $time $named
$portmap $network $all
$mail-transport-agent $x-font-server
$null $x-display-manager
);
my @harddepheaders = qw(required-start required-stop);
my @softdepheaders = qw(should-start
should-stop x-start-before x-stop-after);
my $lsbheaders = "Provides|Required-Start|Required-Stop|Default-Start|Default-Stop";
my $optheaders = "x-start-before|x-stop-after|should-start|should-stop";
for my $virt (@virts) {
$provides{$virt} = ['insserv/etc/insserv.conf'];
}
# Ignore obsolete scripts, as these are unlikely to cause problems.
for my $old (qw(glibc evms raid2 ldm sdm)) {
$provides{$old} = ['obsolete'];
}
# First pass to load the database
for my $initdscript (@scripts) {
next if $initdscript =~ m%/rc|/rcS|/README%;
my %lsbinfo = parse_lsb_header($initdscript);
$scriptinfo{$initdscript} = \%lsbinfo;
next unless ($lsbinfo{'found'});
my %checked;
for my $provide (split(/[ ,\t]+/, $lsbinfo{provides})) {
if (exists $provides{$provide}) {
push(@{$provides{$provide}}, $initdscript)
} else {
$provides{$provide} = [$initdscript];
}
$checked{$provide} = 1;
}
}
for my $provide (sort keys %provides) {
if (1 < scalar @{$provides{$provide}}) {
my %script;
map { $script{basename($_)} = 1; } @{$provides{$provide}};
if (1 < scalar keys %script) {
error(sprintf("scripts %s provide duplicate '%s'",
join(",", short_name(@{$provides{$provide}})),
$provide));
}
}
}
# Second pass, to see which dependencies are missing
for my $initdscript (@scripts) {
next unless ($scriptinfo{$initdscript}->{'found'});
my $short = short_name($initdscript);
my %checked;
my @hardmissing = ();
for my $header (@harddepheaders) {
my $list = $scriptinfo{$initdscript}->{$header};
next unless defined $list;
for my $facility (split(/[ ,\t]+/, $list)) {
next if exists $checked{$facility};
$checked{$facility} = 1;
push(@hardmissing, $facility)
unless exists $provides{$facility};
}
}
error("script $short depend on non-existing provides: "
. join(" ", @hardmissing)) if (@hardmissing);
my @softmissing = ();
for my $header (@softdepheaders) {
my $list = $scriptinfo{$initdscript}->{$header};
next unless defined $list;
for my $facility (split(/[ ,\t]+/, $list)) {
next if exists $checked{$facility};
$checked{$facility} = 1;
push(@softmissing, $facility)
unless exists $provides{$facility};
}
}
warning("script $short relate to non-existing provides: "
. join(" ", @softmissing)) if (@softmissing);
if (exists $checked{'$syslog'}
&& $scriptinfo{$initdscript}->{'default-start'} =~ m/s/i) {
error("script $short depend on \$syslog and start from rcS.d/");
}
if (!exists $checked{'$remote_fs'}
&& !exists $checked{'$syslog'}
&& $scriptinfo{$initdscript}->{'need_remote_fs'}
&& $scriptinfo{$initdscript}->{'default-start'} =~ m/s/i) {
warning("script $short possibly missing dependency on \$remote_fs");
} elsif (!exists $checked{'$local_fs'}
&& !exists $checked{'$remote_fs'}
&& !exists $checked{'$syslog'}
&& $scriptinfo{$initdscript}->{'need_local_fs'}
&& $scriptinfo{$initdscript}->{'default-start'} =~ m/s/i) {
warning("script $short possibly missing dependency on \$local_fs");
}
if (!exists $checked{'$local_fs'}
&& $scriptinfo{$initdscript}->{'need_syslog'}) {
warning("script $short possibly missing dependency on \$syslog");
}
my %provided;
for my $provide (split(/[ ,\t]+/,
$scriptinfo{$initdscript}->{provides})) {
$provided{$provide} = 1;
if ($provide =~ m/\$/) {
error("script $short provide virtual facility $provide");
}
}
my $basename = basename($initdscript, ".sh");
info("script $short does not provide its own name")
unless exists $provided{$basename};
# Detect common problems with runlevel settings.
my @startrl = sort split(/\s+/, lc($scriptinfo{$initdscript}->{'default-start'}));
my @stoprl = sort split(/\s+/, lc($scriptinfo{$initdscript}->{'default-stop'}));
unless ( @startrl || @stoprl) {
error("script $short do not start or stop in any runlevels");
}
# Scripts starting in rcS.d/ normally do not stop or only stop
# during hald and shutdown.
elsif ((array_equal(['s'], \@startrl) && array_equal([], \@stoprl))
|| ( array_equal(['s'], \@startrl)
&& array_equal(['0','6'], \@stoprl))) {
# OK
} else {
# Most scripts either start in rcS.d, or in runlevels 2-5
if (!array_equal(['2', '3', '4', '5'], \@startrl) &&
!array_equal(['s'], \@startrl) &&
(!array_equal([], \@startrl) && @stoprl)) {
# Some obvious errors (runlevels 2-5 are equivalent in Debian)
if (array_equal(['3', '5'], \@startrl)
|| array_equal(['3', '4', '5'], \@startrl)) {
error("script $short have inconsistent start runlevels: ",
join(" ", @startrl));
} else {
warning("script $short does not start in the usual runlevels: ",
join(" ", @startrl));
}
}
# And most scripts stop in runlevel (1) runlevels (0, 1, 6),
# only starts or only stops in (0) or (6).
if (!array_equal(['0', '1', '6'], \@stoprl) &&
!array_equal(['1'], \@stoprl) &&
!array_equal(['0', '6'], \@stoprl) &&
!(array_equal(['0'], \@stoprl) && !@startrl) &&
!(array_equal(['6'], \@stoprl) && !@startrl) &&
!(array_equal([], \@stoprl) && @startrl)) {
warning("script $short does not stop in the usual runlevels: ",
join(" ", @stoprl));
}
}
}
exit 0;
sub parse_lsb_header {
my $initdscript = shift;
my $short = short_name($initdscript);
my %lsbinfo;
unless (open(INIT, "<", $initdscript)) {
error("script $short is unreadable");
return ();
}
my $inheader = 0;
while () {
# print;
chomp;
if (m/^\#\#\# BEGIN INIT INFO\s*$/) {
$lsbinfo{'found'} = 1;
$inheader = 1;
}
$inheader = 0 if (m/\#\#\# END INIT INFO$/);
if ($inheader
&& m/^\# ($lsbheaders|$optheaders):\s*(\S?.*)$/i) {
# print "$1\n";
$lsbinfo{lc($1)} = $2;
}
s/\#.*$//; # Remove comments
$lsbinfo{'need_remote_fs'} = 1 if m%/usr/s?bin/%;
$lsbinfo{'need_local_fs'} = 1 if m%/var/%;
# Detect the use of tools resting in /usr/
$lsbinfo{'need_remote_fs'} = 1 if m%awk%;
$lsbinfo{'need_remote_fs'} = 1 if m%which%;
}
close(INIT);
# When running on bellini.debian.org, check if $syslog is needed
my $objdumpinfo = dirname($initdscript) . "/../objdump-info";
if ( -f $objdumpinfo) {
print "Checking for syslog symbol\n";
if (open(OBJDUMP, "<", $objdumpinfo)) {
while () {
$lsbinfo{'need_syslog'} = 1 if /GLIBC.* syslog/;
}
close OBJDUMP;
}
}
# Check that all the required headers are present
if (!$lsbinfo{'found'}) {
error("script $short is missing LSB header");
} else {
for my $key (split(/\|/, lc($lsbheaders))) {
if (!exists $lsbinfo{$key}) {
error("script $short missing LSB keyword '$key'");
}
}
}
return %lsbinfo
}
sub short_name {
my @scripts;
for my $script ( @_ ) {
my $copy = $script;
$copy =~ s%$basedir/%%g;
push @scripts, $copy;
}
if (wantarray) {
return @scripts;
} else {
return $scripts[0];
}
}
sub array_equal {
my ($a1, $a2) = @_;
return 0 if (scalar @{$a1} != scalar @{$a2});
my $i = 0;
while ($i < scalar @{$a1}) {
return 0 if $a1->[$i] ne $a2->[$i];
$i++;
}
return 1;
}
sub info {
print "info: @_\n";
}
sub warning {
print "warning: @_\n" if $warn;
}
sub error {
print "error: @_\n";
}
make-testsuite 0000666 00000001317 15077166040 0007447 0 ustar 00 #!/bin/sh
#
# Extract key information from the current to try to generate a test
# suite script to demonstrate detected bugs.
echo 'set +C'
echo "cat <<'EOF' > \$insconf"
grep -v '#' /etc/insserv.conf |grep -v '^$'
echo "EOF"
echo 'set -C'
echo
for f in /etc/init.d/*; do
name=$(basename $f)
case $name in
README|rc|rcS|skeleton)
;;
*)
echo "addscript $name <<'EOF'"
sed -n -r '/^### BEGIN INIT INFO/, /END INIT INFO/p' < $f
echo "EOF"
echo
;;
esac
done
echo 'cd $tmpdir/etc'
echo 'mkdir rc0.d rc1.d rc2.d rc3.d rc4.d rc5.d rc6.d rcS.d'
cd /etc
for f in rc?.d/*; do
case $f in
*/README)
;;
*)
echo ln -s $(readlink $f) $f
;;
esac
done
echo
echo list_rclinks
overrides/hotplug-net 0000666 00000000276 15077166040 0010756 0 ustar 00 ### BEGIN INIT INFO
# Provides: hotplug-net
# Required-Start: $local_fs ifupdown
# Required-Stop: $local_fs
# Default-Start: S
# Default-Stop: 0 6
### END INIT INFO
overrides/hotplug 0000666 00000000311 15077166040 0010160 0 ustar 00 ### BEGIN INIT INFO
# Provides: hotplug
# Required-Start: mountdevsubfs checkroot $local_fs
# Required-Stop: $local_fs
# Default-Start: S
# Default-Stop: 0 6
### END INIT INFO
overrides/devfsd 0000666 00000000335 15077166040 0007757 0 ustar 00 ### BEGIN INIT INFO
# Provides: devfsd
# Required-Start: mountdevsubfs
# Required-Stop: reboot
# Default-Start: S 1 2 3 4 5
# Default-Stop: 0 6
### END INIT INFO
# Reported to BTS as bug #324671
overrides/modutils 0000666 00000000270 15077166040 0010342 0 ustar 00 ### BEGIN INIT INFO
# Provides: modutils
# Required-Start: checkroot
# Required-Stop:
# Default-Start: S
# Default-Stop:
### END INIT INFO
# Reported to BTS as #335311
overrides/initrd-tools.sh 0000666 00000000244 15077166040 0011543 0 ustar 00 ### BEGIN INIT INFO
# Provides: initrd-tools
# Required-Start: mountdevsubfs
# Required-Stop:
# Default-Start: S
# Default-Stop:
### END INIT INFO
seq-changes 0000666 00000002430 15077166040 0006676 0 ustar 00 #! /bin/bash
# Script from Frans Pop
set -e
if [ -z "$1" ]; then
echo "Usage: insserv-seq-changes /var/lib/insserv/"
exit 1
fi
oldtar="$(tar tzf $1)"
for i in S $(seq 0 6); do
echo "Runlevel $i"
new="$(cd /etc/rc$i.d; ls -1 [KS]* | sort | nl)"
old="$(echo "$oldtar" | grep "^rc$i.d/[KS]" | cut -d/ -f2 | sort | nl)"
case $i in
S|0|6)
old="$(echo "$old" | sed -r "s/[KS][0-9]+//")"
new="$(echo "$new" | sed -r "s/[KS][0-9]+//")"
;;
*)
old="$(echo "$old" | sed -r "s/([KS])[0-9]+/\1_/")"
new="$(echo "$new" | sed -r "s/([KS])[0-9]+/\1_/")"
;;
esac
echo "$new" | while read num cmd; do
oldnum=$(echo "$old" | grep "[[:space:]]$cmd$" | awk '{print $1}')
if [ "$oldnum" ]; then
diff=$(($num - $oldnum))
else
oldnum="---"
diff=""
fi
if [ ${#cmd} -ge 16 ]; then
echo -e "$cmd\t$num\t$oldnum\t$diff"
elif [ ${#cmd} -ge 8 ]; then
echo -e "$cmd\t\t$num\t$oldnum\t$diff"
else
echo -e "$cmd\t\t\t$num\t$oldnum\t$diff"
fi
done
echo "$old" | while read num cmd; do
if ! echo "$new" | grep -q "[[:space:]]$cmd$"; then
if [ ${#cmd} -ge 16 ]; then
echo -e "$cmd\t---\t$oldnum"
elif [ ${#cmd} -ge 8 ]; then
echo -e "$cmd\t\t---\t$oldnum"
else
echo -e "$cmd\t\t\t---\t$oldnum"
fi
fi
done
echo
done
check-initd-order 0000666 00000032404 15077166040 0007777 0 ustar 00 #!/usr/bin/perl
#
# Author: Petter Reinholdtsen
# Date: 2005-08-21
#
# Read LSM init.d headers in SysV init.d scripts, and verify correct
# start order for all runlevels. It can also provide a graph.
#
# To generate a graph, run it like this
#
# check-initd-order -g > initorder.dotty && dotty initorder.dotty
use strict;
use warnings;
my $rcbase = "/etc";
my $overridepath = "/usr/share/insserv/overrides";
my $hostoverridepath = "/etc/insserv/overrides";
my $debug = 0;
my $errors = 0;
my %rcmap =
(
'B' => 'rc.boot',
'S' => 'rcS.d',
'1' => 'rc1.d',
'2' => 'rc2.d',
'3' => 'rc3.d',
'4' => 'rc4.d',
'5' => 'rc5.d',
'6' => 'rc6.d',
);
my %sysmap;
my %provideslist;
my %scriptorder;
my %opts;
# Used to draw graphs
my %gotrevdeps;
my %allprovides;
while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) {
shift @ARGV;
if (/^-([cdgko])$/) { $opts{$1}++; next }
if (/^-b$/) { $rcbase = shift; next }
if (/^-h|--help$/) { &usage; }
&usage("unknown option");
}
load_sysmap("$rcbase/insserv.conf");
$debug = $opts{'d'};
my $useoverrides = $opts{'o'} ? 0 : 1;
if ($opts{'g'}) {
graph_generate();
exit 0;
}
check_bootorder();
exit $errors > 0 ? 1 : 0;
sub usage {
print STDERR "check-initd-order: error: @_\n" if ($#_ >= 0);
print STDERR <) {
chomp;
s/\#.*$//;
next if m/^\s*$/;
if (m/^(\$\S+)\s+(\S.*\S*)\S*$/) {
my $virt = $1;
for my $dep (split(/\s+/, $2)) {
$dep =~ s/^\+//g;
$sysmap{$dep} = $virt;
}
}
}
close(CONF);
}
sub graph_addnode {
my ($isstopseq, $lsbinforef) = @_;
my %lsbinfo = %{$lsbinforef};
unless ($lsbinfo{'provides'}) {
error "File ". $lsbinfo{'file'} . " is missing the provides header\n";
$lsbinfo{'provides'} = $lsbinfo{'file'};
$lsbinfo{'provides'} =~ s/^[SK]\d{2}//;
}
my $key = $opts{'k'} ? 'stop' : 'start';
my $revkey = $opts{'k'} ? 'stop-after' : 'start-before';
my @provides = split(/\s+/, $lsbinfo{'provides'});
for my $name (@provides) {
if (exists $sysmap{$name}) {
graph_addnode($isstopseq,
{'provides' => $sysmap{$name},
"required-$key" => $name});
}
}
if (1 < @provides) {
my @providescopy = @provides;
my $lastprovide = shift @providescopy;
for my $provide (@providescopy) {
graph_addnode($isstopseq,
{'provides' => $lastprovide,
"required-$key" => $provide});
graph_addnode($isstopseq,
{'provides' => $provide,
"required-$key" => $lastprovide});
}
}
for my $provide (@provides) {
my $provideesc = $provide; $provideesc =~ s/"/\\"/g;
my %deps =
(
"required-$key" => 'blue',
"should-$key" => 'springgreen',
"$revkey" => 'yellow'
);
for $key (keys %deps) {
if (exists $lsbinfo{$key} && $lsbinfo{$key}) {
my @depends = split(/\s+/, $lsbinfo{$key});
my $dependonall = 0;
for my $pkg (@depends) {
$dependonall = 1 if ($pkg eq '$all');
}
for my $pkg (@depends) {
my $pkgesc = $pkg; $pkgesc =~ s/"/\\"/g;
my $color = $deps{$key};
if ($revkey eq $key) {
print "\"$provideesc\" -> \"$pkgesc\"[color=$color] ;\n";
$gotrevdeps{$pkg} = 1 unless $dependonall;
} else {
print "\"$pkgesc\" -> \"$provideesc\"[color=$color] ;\n";
$gotrevdeps{$provide} = 1 unless $dependonall;
}
}
}
}
print "\"$provideesc\" [shape=box];\n" unless $allprovides{$provide};
$allprovides{$provide} = 1;
}
}
sub graph_generate_mode {
my ($isstopseq) = @_;
my @dirs = $isstopseq ? $rcmap{6} : ($rcmap{S}, $rcmap{2});
for my $rcdir (@dirs) {
chdir "$rcbase/$rcdir/.";
my @scripts = $isstopseq ? : ;
for my $script (@scripts) {
my $lsbinforef = load_lsb_tags("$rcbase/$rcdir/$script",
$useoverrides);
unless (defined $lsbinforef) {
error "LSB header missing in $rcbase/$rcdir/$script\n";
$script =~ s/^[SK]\d{2}//;
$lsbinforef = {'provides' => $script,
'required-start' => '$remote_fs $syslog',
'required-stop' => '$remote_fs $syslog'};
}
graph_addnode($isstopseq, $lsbinforef);
}
}
# Mark all packages without any reverse dependencies as depending
# on $all
for my $provide (keys %allprovides) {
next unless (exists $gotrevdeps{$provide});
my $lsbinforef = {'provides' => '$all',
'required-start' => "$provide",
'required-stop' => "$provide"};
graph_addnode($isstopseq, $lsbinforef);
}
}
sub graph_generate {
print "# Generating graph\n";
print < $bootorder)) {
my $deporder;
if (exists $scriptorder{$tag}{$dep}) {
$deporder = $scriptorder{$tag}{$dep}
} else {
$deporder = exists $provideslist{$dep} ? $provideslist{$dep} : "?";
}
error(sprintf("Incorrect order %s@%s %s %s%s\n",
$dep, $deporder, 'S' eq $tag ? '>' : '<',
$name, $order));
}
}
}
}
}
sub check_bootorder {
my $bootorder = 0;
my @dirs = $opts{'k'} ? $rcmap{6} : ($rcmap{S}, $rcmap{2});
my @scripts;
for my $rcdir (@dirs) {
push(@scripts, $opts{'k'} ? <$rcbase/$rcdir/K*> : <$rcbase/$rcdir/S*>);
}
if ($opts{'k'}) {
$scriptorder{'K'}{'$all'} = 1;
} else {
# Calculate script order for the script before the scripts
# with the last boot sequence number.
my $tmpbootorder = 0;
my $allorder = 0;
my $maxorder = 0;
my $maxbootorder = 0;
for my $scriptpath (@scripts) {
my $script = $scriptpath;
$script =~ s%^.*/([^/]+)$%$1%;
$tmpbootorder++;
my ($tag, $order, $name) = $script =~ m/^(.)(\d{2})(.+)$/;
if ($order > $maxorder) {
$allorder = $maxbootorder;
$maxbootorder = $tmpbootorder;
$maxorder = $order;
}
my $lsbinforef = load_lsb_tags($scriptpath,
$useoverrides);
if (exists $lsbinforef->{'provides'}
&& $lsbinforef->{'provides'}) {
for my $provide (split(/\s+/, $lsbinforef->{'provides'})) {
$provideslist{$provide} = $order;
}
} else {
$provideslist{$script} = $order;
}
}
$scriptorder{'S'}{'$all'} = $allorder;
}
for my $scriptpath (@scripts) {
my $script = $scriptpath;
$script =~ s%^.*/([^/]+)$%$1%;
$bootorder++;
my ($tag, $order, $name) = $script =~ m/^(.)(\d{2})(.+)$/;
$scriptorder{$tag}{$name} = $bootorder;
$scriptorder{$tag}{$sysmap{$name}} = $bootorder
if (exists $sysmap{$name});
# print "$script\n";
# print "T: $tag O: $order N: $name\n";
my $lsbinforef = load_lsb_tags($scriptpath,
$useoverrides);
unless (defined $lsbinforef) {
error "LSB header missing in $scriptpath\n";
next;
}
my %lsbinfo = %{$lsbinforef};
if (exists $lsbinfo{'provides'} && $lsbinfo{'provides'}) {
for my $provide (split(/\s+/, $lsbinfo{'provides'})) {
$scriptorder{$tag}{$provide} = $bootorder;
$scriptorder{$tag}{$sysmap{$provide}} = $bootorder
if (exists $sysmap{$provide});
}
} else {
error "no LSB header provides value in script $scriptpath\n";
}
if ('S' eq $tag) {
check_deps($lsbinforef, $tag, $order, $bootorder, 'required-start', 1);
check_deps($lsbinforef, $tag, $order, $bootorder, 'should-start', 0);
# check_deps($lsbinforef, 'K', $order, $bootorder, 'start-before', 0);
}
if ('K' eq $tag) {
check_deps($lsbinforef, $tag, $order, $bootorder, 'required-stop', 1);
check_deps($lsbinforef, $tag, $order, $bootorder, 'should-stop', 0);
# check_deps($lsbinforef, 'S', $order, $bootorder, 'stop-after', 0);
}
}
}
sub load_lsb_tags {
my ($initfile, $useoverrides) = @_;
my $lsbinforef = load_lsb_tags_from_file($initfile);
if ($useoverrides) {
# Try override file
$initfile = readlink($initfile) if (-l $initfile);
my $basename = basename($initfile);
# Only read shipped override file when initscript does not
# contain LSB tags.
if (! defined($lsbinforef) && -f "$overridepath/$basename") {
print STDERR "Override $overridepath/$basename\n" if $debug;
$lsbinforef = load_lsb_tags_from_file("$overridepath/$basename");
}
# Always read the host override in $hostoverridepath.
if (-f "$hostoverridepath/$basename") {
print STDERR "Override $hostoverridepath/$basename\n" if $debug;
$lsbinforef = load_lsb_tags_from_file("$hostoverridepath/$basename");
}
}
return $lsbinforef;
}
sub load_lsb_tags_from_file {
my ($file) = @_;
print STDERR "Loading $file\n" if $debug;
### BEGIN INIT INFO
# Provides: xdebconfigurator
# Required-Start: $syslog
# Required-Stop: $syslog
# Default-Start: 2 3 4 5
# Default-Stop: 1 6
# Short-Description: Genererate xfree86 configuration at boot time
# Description: Preseed X configuration and use dexconf to
# genereate a new configuration file.
### END INIT INFO
unless (open(FILE, "<$file")) {
warn "error: Unable to read $file";
return;
}
my $found = 0;
my ($provides, $requiredstart, $requiredstop, $shouldstart, $shouldstop);
my ($startbefore, $stopafter);
while () {
chomp;
$found = 1 if (m/\#\#\# BEGIN INIT INFO/);
next unless $found;
last if (m/\#\#\# END INIT INFO/);
$provides = $1 if (m/^\# provides:\s+(\S*.*\S+)\s*$/i);
$requiredstart = $1 if (m/^\# required-start:\s+(\S*.*\S+)\s*$/i);
$requiredstop = $1 if (m/^\# required-stop:\s+(\S*.*\S+)\s*$/i);
$shouldstart = $1 if (m/^\# should-start:\s+(\S*.*\S+)\s*$/i);
$shouldstop = $1 if (m/^\# should-stop:\s+(\S*.*\S+)\s*$/i);
$startbefore = $1 if (m/^\# X-Start-Before:\s+(\S*.*\S+)\s*$/i);
$stopafter = $1 if (m/^\# X-Stop-After:\s+(\S*.*\S+)\s*$/i);
}
close(FILE);
return undef unless ($found);
# print "Provides: $provides\n" if $provides;
return {
'provides' => $provides,
'required-start' => $requiredstart,
'required-stop' => $requiredstop,
'should-start' => $shouldstart,
'should-stop' => $shouldstop,
'start-before' => $startbefore,
'stop-after' => $stopafter,
'file' => $file,
};
}